diff options
| author | Oliver Tappe | 2007-07-25 18:12:55 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2007-07-25 18:12:55 +0200 |
| commit | 97a2a1aacff3acaa9a67555eb487877b1599714b (patch) | |
| tree | 09701197dcb106ed50d29f8be3859119ae6b1a60 /lib | |
| parent | * some more work at UTF-8-compliance I forgot before (diff) | |
| download | core-97a2a1aacff3acaa9a67555eb487877b1599714b.tar.gz core-97a2a1aacff3acaa9a67555eb487877b1599714b.tar.xz core-97a2a1aacff3acaa9a67555eb487877b1599714b.zip | |
* reduced use of Config::General to object-oriented mode only, as it is
cleaner and avoids the risks of automatic imports being changed between
versions (a problem Reiner has mentioned)
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1273 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/OpenSLX/Basics.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/OpenSLX/Basics.pm b/lib/OpenSLX/Basics.pm index 6c4fa87e..45a37986 100644 --- a/lib/OpenSLX/Basics.pm +++ b/lib/OpenSLX/Basics.pm @@ -168,12 +168,13 @@ sub openslxInit if ($verboseLevel >= 2) { vlog(0, "reading config-file $f..."); } - my %config = ParseConfig( + my $configObject = Config::General->new( -AutoTrue => 1, -ConfigFile => $f, -LowerCaseNames => 1, -SplitPolicy => 'equalsign', ); + my %config = $configObject->getall(); foreach my $key (keys %config) { # N.B.: these config files are used by shell-scripts, too, so in # order to comply with shell-style, the config files use shell |