Better with arbitrary number of white space

This commit is contained in:
Mikael Nordin 2017-01-16 15:24:27 +01:00 committed by GitHub
parent 4e953583a7
commit 474937e74c

View file

@ -154,7 +154,7 @@ sub uncomment {
open(INFILE,"<$infile");
my $content = '';
while(my $line = <INFILE>) {
$line =~ s/^#\s{1,4}([\d\*])/ $1/g;
$line =~ s/^#\s*([\d\*])/ $1/g;
$content .= $line;
}