bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support whitespace and escaped slashes in /regex/

Browse source
This commit is contained in:
Juerd Waalboer 2018-09-04 23:17:03 +02:00
parent feddb8c788
commit a9482754eb
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
plugins/warnings
View file

@ -6,10 +6,14 @@
sub _read_warnings {
open my $fh, 'revbank.warnings' or die $!;
return map {
my ($matcher, $text) = split " ", $_, 2;
chomp $text;
my ($regex) = $matcher =~ m[^/([^/]+)/$];
my ($regex, $products, $text) = m[^
(?:
/((?>[^/\\]++|\\.)*+)/ # /regex with support for \/escaped\/ slashes/
| (\S+) # products IDs, comma separated
)
\s+
(.*)
]x;
$regex
? sub {
@ -18,7 +22,7 @@ sub _read_warnings {
}
: sub {
my ($id, $desc) = @_;
(grep { $_ eq $id } split /,/, $matcher) ? $text : ();
(grep { $_ eq $id } split /,/, $products) ? $text : ();
}
} grep /\S/, grep !/^\s*#/, readline $fh;
}