mirror of
https://codeberg.org/scip/Config-General.git
synced 2025-12-16 20:21:01 +01:00
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:
@@ -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.
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user