Fail if the config file cannot be sensibly parsed as an keyfile - i18n fix.

git-svn-id: http://emdebian.org/svn/current@7704 563faec7-e20c-0410-992a-a66f704d0ccd
This commit is contained in:
codehelp 2010-12-25 11:01:32 +00:00
parent d605cd7ccb
commit 44e091ad7b

View file

@ -831,7 +831,7 @@ sub cascade {
$file = shift; $file = shift;
$config = Config::Auto::parse($file, format => 'ini'); $config = Config::Auto::parse($file, format => 'ini');
if (not defined $config or (scalar keys %$config) == 0) { if (not defined $config or (scalar keys %$config) == 0) {
die ("$progname: ". _g("Failed to parse '$file'!\n")); die ("$progname: ". sprintf(_g("Failed to parse '%s'!\n"), $file));
} }
foreach $key (%$config) { foreach $key (%$config) {
$type = lc($key) if (ref $key ne "HASH"); $type = lc($key) if (ref $key ne "HASH");