Last change
on this file since 1823 was 39, checked in by Bruno Cornec, 17 years ago |
Add a patch to AppConfig::File to solve the issue around automatically create '1' key entry in all hashes
|
File size:
681 bytes
|
Rev | Line | |
---|
[39] | 1 | --- /usr/lib/perl5/vendor_perl/5.8.8/AppConfig/File.pm.orig 2007-08-09 17:44:26.000000000 +0200
|
---|
| 2 | +++ /usr/lib/perl5/vendor_perl/5.8.8/AppConfig/File.pm 2007-08-09 18:04:46.000000000 +0200
|
---|
| 3 | @@ -20,7 +20,7 @@
|
---|
| 4 |
|
---|
| 5 | require 5.005;
|
---|
| 6 |
|
---|
| 7 | -use AppConfig;
|
---|
| 8 | +use AppConfig qw(:argcount);
|
---|
| 9 | use AppConfig::State;
|
---|
| 10 | use File::HomeDir;
|
---|
| 11 |
|
---|
| 12 | @@ -227,6 +227,11 @@
|
---|
| 13 |
|
---|
| 14 | my $nargs = $state->_argcount($variable);
|
---|
| 15 |
|
---|
| 16 | + # Fix a bug if the variable is a hash - 1 has been created as a key
|
---|
| 17 | + if ($nargs eq AppConfig::ARGCOUNT_HASH) {
|
---|
| 18 | + delete $state->{ VARIABLE }->{ $variable }{1};
|
---|
| 19 | + }
|
---|
| 20 | +
|
---|
| 21 | # variables prefixed '-' are reset to their default values
|
---|
| 22 | if ($flag eq '-') {
|
---|
| 23 | $state->_default($variable);
|
---|
Note:
See
TracBrowser
for help on using the repository browser.