summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-10-07 01:14:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-10-07 01:14:49 +0000
commitc46656bf11c0c1d1d557a19e888166002e145d35 (patch)
tree6f16fabf4273bc0a4026547d0b06c8699e1c5760 /perl-install
parent84dc6e1ef501b25d8fe20c0f99a21c5491fbf685 (diff)
downloaddrakx-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.pm2
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;