Some Perl modules have moved to UCW namespace.

[libucw.git] / lib / perl / Config.pm

diff --git a/lib/perl/Config.pm b/lib/perl/Config.pm
index aa62b9a90081ba06ea36f4040598271415307252..552690caccea76fa85eeb8feb2a1dfff67125e4a 100644 (file)
--- a/lib/perl/Config.pm
+++ b/lib/perl/Config.pm
@@ -5,7 +5,7 @@
 #      This software may be freely distributed and used according to the terms
 #      of the GNU Lesser General Public License.
 
 #      This software may be freely distributed and used according to the terms
 #      of the GNU Lesser General Public License.
 

-package Sherlock::Config;
+package UCW::Config;

 
 use strict;
 use warnings;
 
 use strict;
 use warnings;


@@ -14,6 +14,9 @@ use Getopt::Long;
 our %Sections = ();
 
 our $DefaultConfigFile = "";
 our %Sections = ();
 
 our $DefaultConfigFile = "";

+our $Usage = "-C, --config filename   Override the default configuration file
+-S, --set sec.item=val  Manual setting of a configuration item";
+

 
 sub Parse(@) {
        my @options = @_;
 
 sub Parse(@) {
        my @options = @_;


@@ -41,7 +44,7 @@ sub Parse(@) {
                        } elsif (ref $var eq "ARRAY") {
                                push @$var, $val;
                        } elsif (ref $var) {
                        } elsif (ref $var eq "ARRAY") {
                                push @$var, $val;
                        } elsif (ref $var) {

-                               die ("Sherlock::Config::Parse: don't know how to set $o");
+                               die ("UCW::Config::Parse: don't know how to set $o");

                        }
                }
        }
                        }
                }
        }