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