scip/Config-General
1
0
Fork 0
mirror of https://codeberg.org/scip/Config-General.git synced 2025-12-17 12:41:07 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

5
Changelog
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 1.32 - *argl* ... I forgot Interpolated.pm, don't know how that
could happen, in 1.29 it was "lost". However - could happen, in 1.29 it was "lost". However -
I added it again now. I added it again now.

7
General.pm
View File

@@ -18,7 +18,7 @@ use strict;
use Carp; use Carp;
use Exporter; use Exporter;
$Config::General::VERSION = "1.32"; $Config::General::VERSION = "1.33";
use vars qw(@ISA @EXPORT); use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter); @ISA = qw(Exporter);
@@ -446,6 +446,9 @@ sub _parse_value {
# #
my($this, $option, $value) =@_; my($this, $option, $value) =@_;
# avoid "Use of uninitialized value"
$value ||= "";
# make true/false values to 1 or 0 (-AutoTrue) # make true/false values to 1 or 0 (-AutoTrue)
if ($this->{AutoTrue}) { if ($this->{AutoTrue}) {
if ($value =~ /$this->{AutoTrueFlags}->{true}/io) { if ($value =~ /$this->{AutoTrueFlags}->{true}/io) {
@@ -1437,7 +1440,7 @@ Thomas Linden <tom@daemon.de>
=head1 VERSION =head1 VERSION
1.32 1.33
=cut =cut

2
README
View File

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