diff options
| -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"); |