Comment lines may have leading whitespace.
PR: 71773 Submitted by: Antoine Brodin <antoine.brodin@laposte.net>
This commit is contained in:
parent
47977544b7
commit
5420294f63
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user