Better with arbitrary number of white space
This commit is contained in:
parent
4e953583a7
commit
474937e74c
1 changed files with 1 additions and 1 deletions
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue