From 95a44c07d26b25818fd1a4ae62f57440e4fe7aa2 Mon Sep 17 00:00:00 2001 From: tilpner Date: Sun, 17 May 2020 20:43:49 +0200 Subject: html5_events: port to Regexp::Assemble --- html5_events/html5_events.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'html5_events') 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"); -- cgit v1.2.3