diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-10-07 01:14:49 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-10-07 01:14:49 +0000 |
commit | c46656bf11c0c1d1d557a19e888166002e145d35 (patch) | |
tree | 6f16fabf4273bc0a4026547d0b06c8699e1c5760 /perl-install | |
parent | 84dc6e1ef501b25d8fe20c0f99a21c5491fbf685 (diff) | |
download | drakx-c46656bf11c0c1d1d557a19e888166002e145d35.tar drakx-c46656bf11c0c1d1d557a19e888166002e145d35.tar.gz drakx-c46656bf11c0c1d1d557a19e888166002e145d35.tar.bz2 drakx-c46656bf11c0c1d1d557a19e888166002e145d35.tar.xz drakx-c46656bf11c0c1d1d557a19e888166002e145d35.zip |
fix parsing fully commented Section. eg:
#Section "Extensions"
# Option "Composite" "Enable"
# Option "RENDER" "Enable"
#Endsection
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/Xconfig/parse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/Xconfig/parse.pm b/perl-install/Xconfig/parse.pm index ae270b9e8..ab2838b43 100644 --- a/perl-install/Xconfig/parse.pm +++ b/perl-install/Xconfig/parse.pm @@ -59,7 +59,7 @@ sub raw_from_file { #- internal if (/^$/) { $comment .= "\n" if $comment; next; - } elsif (/^#\W/ || /^#$/) { + } elsif (@objs ? m/^#\W/ || /^#$/ : /^#/) { s/^#\s+/# /; $comment .= "$_\n"; next; |