Comment lines may have leading whitespace.

PR:		71773
Submitted by:	Antoine Brodin <antoine.brodin@laposte.net>
This commit is contained in:
des 2004-09-15 21:10:46 +00:00
parent 47977544b7
commit 5420294f63

View File

@ -66,7 +66,7 @@ MAIN:{
while (<GENERIC>) {
my $line = $_;
chomp();
if ($opts{'c'} && m/^\#/) {
if ($opts{'c'} && m/^\s*\#/) {
if ($blank) {
print "\n";
$blank = 0;