diff options
| author | tilpner | 2020-05-17 20:43:49 +0200 |
|---|---|---|
| committer | tilpner | 2020-05-17 20:43:49 +0200 |
| commit | 95a44c07d26b25818fd1a4ae62f57440e4fe7aa2 (patch) | |
| tree | aa82b2f1aa373d1799c69461b6b27be4a37d00ae | |
| parent | 1fa8f16379cf381b00a8ae81bf227b74c96b2ab5 (diff) | |
| download | noscript-95a44c07d26b25818fd1a4ae62f57440e4fe7aa2.tar.gz noscript-95a44c07d26b25818fd1a4ae62f57440e4fe7aa2.tar.xz noscript-95a44c07d26b25818fd1a4ae62f57440e4fe7aa2.zip | |
html5_events: port to Regexp::Assemble
| -rw-r--r-- | html5_events/html5_events.pl | 7 |
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"); |