X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lib%2Fperl%2FConfig.pm;h=552690caccea76fa85eeb8feb2a1dfff67125e4a;hb=d60ede19ab84382101d313e3185b1a0ef6714088;hp=aa62b9a90081ba06ea36f4040598271415307252;hpb=c1d7055ed3ee447b02c7e430e0512e1aab5f6676;p=libucw.git

diff --git a/lib/perl/Config.pm b/lib/perl/Config.pm
index aa62b9a9..552690ca 100644
--- 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.
 
-package Sherlock::Config;
+package UCW::Config;
 
 use strict;
 use warnings;
@@ -14,6 +14,9 @@ use Getopt::Long;
 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 = @_;
@@ -41,7 +44,7 @@ sub Parse(@) {
 			} 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");
 			}
 		}
 	}