| Subject: | Deep recursion warning in Regexp::Trie |
| Date: | Fri, 31 Jul 2020 19:26:20 +0000 |
| To: | "bug-Regexp-Trie [...] rt.cpan.org" <bug-Regexp-Trie [...] rt.cpan.org> |
| From: | Ben Martin <bmartin [...] mathworks.com> |
Running Regexp::Trie can cause deep recursion for moderately large lists. I've found that after upgrading to a newer version of perl, I needed to add the "no warnings 'recursion'" here:
for my $char (sort keys %$self){
my $qchar = quotemeta $char;
if (ref $self->{$char}){
+ no warnings 'recursion';
if (defined (my $recurse = _regexp($self->{$char}))){
push @alt, $qchar . $recurse;
}else{