summaryrefslogtreecommitdiff
path: root/html5_events
diff options
context:
space:
mode:
authortilpner2020-05-17 20:43:49 +0200
committertilpner2020-05-17 20:43:49 +0200
commit95a44c07d26b25818fd1a4ae62f57440e4fe7aa2 (patch)
treeaa82b2f1aa373d1799c69461b6b27be4a37d00ae /html5_events
parent1fa8f16379cf381b00a8ae81bf227b74c96b2ab5 (diff)
downloadnoscript-95a44c07d26b25818fd1a4ae62f57440e4fe7aa2.tar.gz
noscript-95a44c07d26b25818fd1a4ae62f57440e4fe7aa2.tar.xz
noscript-95a44c07d26b25818fd1a4ae62f57440e4fe7aa2.zip
html5_events: port to Regexp::Assemble
Diffstat (limited to 'html5_events')
-rw-r--r--html5_events/html5_events.pl7
1 files changed, 4 insertions, 3 deletions
diff --git a/html5_events/html5_events.pl b/html5_events/html5_events.pl
index 0406ff1..cee2568 100644
--- a/html5_events/html5_events.pl
+++ b/html5_events/html5_events.pl
@@ -3,7 +3,7 @@ use strict;
require LWP::UserAgent;
use LWP::Simple;
-use Regexp::List;
+use Regexp::Assemble;
use File::stat;
use File::Basename;
use List::MoreUtils qw(uniq);
@@ -69,8 +69,9 @@ sub create_re
print OUT join("\n", @all_events);
close OUT;
- my $l = Regexp::List->new;
- my $re = $l->list2re(@all_events);
+ my $l = Regexp::Assemble->new;
+ $l->add(@all_events);
+ my $re = $l->re;
$re =~ s/\(\?[-^]\w+:(.*)\)/$1/;
open (OUT, ">$cache");