1.27: - "make test" complained about uninitialized value

in :146, which is now fixed.


git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@15 be1acefe-a474-0410-9a34-9b3221f2030f

Changelog

@@ -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.
          - added -String parameter to new(), which allows
            one to supply the whole config as a string.

General.pm

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

README

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