From d43047f679ab6a72106d50f2f0ca58530ca31845 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 30 Jul 2002 15:02:59 +0000 Subject: fix handling of commented empty line --- perl-install/Xconfig/parse.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/Xconfig/parse.pm') diff --git a/perl-install/Xconfig/parse.pm b/perl-install/Xconfig/parse.pm index d94c772c9..bc492eebd 100644 --- a/perl-install/Xconfig/parse.pm +++ b/perl-install/Xconfig/parse.pm @@ -55,7 +55,7 @@ sub raw_from_file { #- internal if (/^$/) { $comment .= "\n" if $comment; next; - } elsif (/^#\W/) { + } elsif (/^#\W/ || /^#$/) { s/^#\s+/# /; $comment .= "$_\n"; next; @@ -91,7 +91,7 @@ sub raw_from_file { #- internal s/(\s*#.*)/$comment_on_line = $1; ''/e; if (/^$/) { - die "$line: weird"; + die "$file:$line: weird"; } (my $name, my $Option, $_) = -- cgit v1.2.1