fixed rt.cpan.org#39814.

git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@99 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
Thomas von Dein
2014-05-01 11:19:25 +00:00
parent 010403fd8a
commit 480548e19d
5 changed files with 25 additions and 8 deletions

View File

@@ -32,7 +32,7 @@ use Carp::Heavy;
use Carp;
use Exporter;
$Config::General::VERSION = "2.53";
$Config::General::VERSION = "2.54";
use vars qw(@ISA @EXPORT_OK);
use base qw(Exporter);
@@ -632,12 +632,12 @@ sub _read {
# Remove comments and empty lines
s/(?<!\\)#.*$//; # .+ => .* bugfix rt.cpan.org#44600
next if /^\s*#/;
next if /^\s*$/;
#next if /^\s*$/;
# look for multiline option, indicated by a trailing backslash
if (/(?<!\\)\\$/) {
chop;
chop; # remove trailing backslash
s/^\s*//;
$longline .= $_;
next;
@@ -706,6 +706,9 @@ sub _read {
next;
}
else {
# ignore empty lines
next if /^\s*$/;
# look for include statement(s)
my $incl_file;
my $path = '';
@@ -2745,7 +2748,7 @@ Thomas Linden <tlinden |AT| cpan.org>
=head1 VERSION
2.53
2.54
=cut