fix sorter regex
This commit is contained in:
parent
d70a819f02
commit
f955ee37e8
@ -1,5 +1,5 @@
|
||||
#
|
||||
# Fanboy Adblock Sorter v1.4 (21/03/2011)
|
||||
# Fanboy Adblock Sorter v1.5 (22/03/2011)
|
||||
# License: http://creativecommons.org/licenses/by/3.0/
|
||||
# Usage: perl sort.pl <filename.txt>
|
||||
#
|
||||
@ -35,7 +35,7 @@ my $current = [];
|
||||
# Check "!", "[]" and "#" (Firefox and Opera)
|
||||
#
|
||||
while ( <$fh> ) {
|
||||
if ( m/^[!#\[]/ ) {
|
||||
if ( m/^(?:[!\[]|#\s)/ ) {
|
||||
output $current, $fhout;
|
||||
$current = [ $_ ];
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user