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

1.27: - "make test" complained about uninitialized value

Browse Source 
in :146, which is now fixed.


git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@15 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
Thomas von Dein
2009-10-10 16:13:50 +00:00
parent 60c541d1c0
commit 2c5ee3d876
3 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Changelog
View File

@@ -1,3 +1,6 @@
1.27: - "make test" complained about uninitialized value
in :146, which is now fixed.
1.26: - added filehandle capability to -file. 1.26: - added filehandle capability to -file.
- added -String parameter to new(), which allows - added -String parameter to new(), which allows
one to supply the whole config as a string. one to supply the whole config as a string.

6
General.pm
View File

@@ -17,7 +17,7 @@ use FileHandle;
use strict; use strict;
use Carp; use Carp;
$Config::General::VERSION = "1.26"; $Config::General::VERSION = "1.27";
sub new { sub new {
# #
@@ -143,7 +143,7 @@ sub _read {
my(@stuff, @content, $c_comment, $longline, $hier, $hierend, @hierdoc); my(@stuff, @content, $c_comment, $longline, $hier, $hierend, @hierdoc);
local $_; local $_;
if ($flag eq "SCALAR") { if ($flag && $flag eq "SCALAR") {
if (ref($fh) eq "ARRAY") { if (ref($fh) eq "ARRAY") {
@stuff = @{$fh}; @stuff = @{$fh};
} }
@@ -1011,7 +1011,7 @@ Thomas Linden <tom@daemon.de>
=head1 VERSION =head1 VERSION
1.26 1.27
=cut =cut

2
README
View File

@@ -59,4 +59,4 @@ AUTHOR
VERSION VERSION
1.26 1.27