|
Last change
on this file since 310 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.
