source:
ProjectBuilder/devel/pb-doc/AppConfig::File.patch@
1804
Last change on this file since 1804 was 39, checked in by , 17 years ago | |
---|---|
File size: 681 bytes |
-
/usr/lib/perl5/vendor_perl/5.8.8/AppConfig/File.pm
old new 20 20 21 21 require 5.005; 22 22 23 use AppConfig ;23 use AppConfig qw(:argcount); 24 24 use AppConfig::State; 25 25 use File::HomeDir; 26 26 … … 227 227 228 228 my $nargs = $state->_argcount($variable); 229 229 230 # Fix a bug if the variable is a hash - 1 has been created as a key 231 if ($nargs eq AppConfig::ARGCOUNT_HASH) { 232 delete $state->{ VARIABLE }->{ $variable }{1}; 233 } 234 230 235 # variables prefixed '-' are reset to their default values 231 236 if ($flag eq '-') { 232 237 $state->_default($variable);
Note:
See TracBrowser
for help on using the repository browser.