--- /usr/lib/perl5/vendor_perl/5.8.8/AppConfig/File.pm.orig	2007-08-09 17:44:26.000000000 +0200
+++ /usr/lib/perl5/vendor_perl/5.8.8/AppConfig/File.pm	2007-08-09 18:04:46.000000000 +0200
@@ -20,7 +20,7 @@
 
 require 5.005;
 
-use AppConfig;
+use AppConfig qw(:argcount);
 use AppConfig::State;
 use File::HomeDir;
 
@@ -227,6 +227,11 @@
 
 		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);