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");
|
open(INFILE,"<$infile");
|
||||||
my $content = '';
|
my $content = '';
|
||||||
while(my $line = <INFILE>) {
|
while(my $line = <INFILE>) {
|
||||||
$line =~ s/^#\s{1,4}([\d\*])/ $1/g;
|
$line =~ s/^#\s*([\d\*])/ $1/g;
|
||||||
$content .= $line;
|
$content .= $line;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue