source: ProjectBuilder/devel/pb-doc/AppConfig::File.patch@ 310

/usr/lib/perl5/vendor_perl/5.8.8/AppConfig/File.pm

@@ -20 +20 @@
 
 require 5.005;
 
-use AppConfig;
+use AppConfig qw(:argcount);
 use AppConfig::State;
 use File::HomeDir;
 
@@ -227 +227 @@
 
         my $nargs = $state->_argcount($variable);
 
+        # Fix a bug if the variable is a hash - 1 has been created as a key
+        if ($nargs eq AppConfig::ARGCOUNT_HASH) {
+            delete $state->{ VARIABLE }->{ $variable }{1};
+        }
+
         # variables prefixed '-' are reset to their default values
         if ($flag eq '-') {
             $state->_default($variable);