diff --git a/Changelog b/Changelog index 1b5d6a4..c6f2392 100644 --- a/Changelog +++ b/Changelog @@ -1,3 +1,8 @@ + 1.32 - fixed bug in _parse_value() which caused perl to complain + with "Use of uninitialized value in..." if a value was + empty. + + 1.32 - *argl* ... I forgot Interpolated.pm, don't know how that could happen, in 1.29 it was "lost". However - I added it again now. diff --git a/General.pm b/General.pm index 8423fc4..ce168ca 100644 --- a/General.pm +++ b/General.pm @@ -18,7 +18,7 @@ use strict; use Carp; use Exporter; -$Config::General::VERSION = "1.32"; +$Config::General::VERSION = "1.33"; use vars qw(@ISA @EXPORT); @ISA = qw(Exporter); @@ -446,6 +446,9 @@ sub _parse_value { # my($this, $option, $value) =@_; + # avoid "Use of uninitialized value" + $value ||= ""; + # make true/false values to 1 or 0 (-AutoTrue) if ($this->{AutoTrue}) { if ($value =~ /$this->{AutoTrueFlags}->{true}/io) { @@ -1437,7 +1440,7 @@ Thomas Linden =head1 VERSION -1.32 +1.33 =cut diff --git a/README b/README index 9442a46..6d26ef5 100644 --- a/README +++ b/README @@ -59,4 +59,4 @@ AUTHOR VERSION - 1.32 + 1.33