1.33 - fixed bug in _parse_value() which caused perl to complain

with "Use of uninitialized value in..." if a value was
	   empty.


git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@22 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
Thomas von Dein
2009-10-10 16:17:43 +00:00
parent f9c0a5a8f3
commit 0073500add
3 changed files with 11 additions and 3 deletions

View File

@@ -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.

View File

@@ -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 <tom@daemon.de>
=head1 VERSION
1.32
1.33
=cut

2
README
View File

@@ -59,4 +59,4 @@ AUTHOR
VERSION
1.32
1.33