From c46656bf11c0c1d1d557a19e888166002e145d35 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 7 Oct 2004 01:14:49 +0000 Subject: fix parsing fully commented Section. eg: #Section "Extensions" # Option "Composite" "Enable" # Option "RENDER" "Enable" #Endsection --- perl-install/Xconfig/parse.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/Xconfig/parse.pm') 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; -- cgit v1.2.1