diff options
-rwxr-xr-x | bin/slxsettings | 5 | ||||
-rw-r--r-- | lib/OpenSLX/Basics.pm | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/bin/slxsettings b/bin/slxsettings index be318bb5..976640ee 100755 --- a/bin/slxsettings +++ b/bin/slxsettings @@ -90,7 +90,10 @@ while (scalar @ARGV) { # fetch current content of local settings file... my $fileName = "$openslxConfig{'config-path'}/settings"; my $configObj = Config::General->new( - -ConfigFile => $fileName, -SplitPolicy => 'equalsign', + -ConfigFile => $fileName, + -SplitDelimiter => '\s*=\s*', + -SplitPolicy => 'custom', + -StoreDelimiter => '=', ); my %settings = $configObj->getall(); diff --git a/lib/OpenSLX/Basics.pm b/lib/OpenSLX/Basics.pm index fb7db676..3aebb54e 100644 --- a/lib/OpenSLX/Basics.pm +++ b/lib/OpenSLX/Basics.pm @@ -170,7 +170,10 @@ sub openslxInit vlog(0, "reading config-file $f..."); } my %config = ParseConfig( - -ConfigFile => $f, -AutoTrue => 1, -LowerCaseNames => 1 + -AutoTrue => 1, + -ConfigFile => $f, + -LowerCaseNames => 1, + -SplitPolicy => 'equalsign', ); foreach my $key (keys %config) { # N.B.: these config files are used by shell-scripts, too, so in |