diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-30 15:02:59 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-30 15:02:59 +0000 |
| commit | d43047f679ab6a72106d50f2f0ca58530ca31845 (patch) | |
| tree | a44a20f48eb348d9f9417363d8f4bf509ff4d07e | |
| parent | 0908aa8eba697d699e4df007c6e3f5e2bb2a19ce (diff) | |
| download | drakx-d43047f679ab6a72106d50f2f0ca58530ca31845.tar drakx-d43047f679ab6a72106d50f2f0ca58530ca31845.tar.gz drakx-d43047f679ab6a72106d50f2f0ca58530ca31845.tar.bz2 drakx-d43047f679ab6a72106d50f2f0ca58530ca31845.tar.xz drakx-d43047f679ab6a72106d50f2f0ca58530ca31845.zip | |
fix handling of commented empty line
| -rw-r--r-- | perl-install/Xconfig/parse.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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, $_) = |