Hello,
When I try to run the code below I get "panic: reg_node overrun trying to emit 46 at test.pl line 26." (Line 26 is "our $re_title = qr/^".) I'm at a loss at how to fix this. Thanks in advance for any hints.
perl -v says:
This is perl 5, version 14, subversion 2 (v5.14.2) built for i686-linux-gnu-thread-multi-64int
use strict;
use warnings;
use utf8;
my $re_address_word = qr/\b(?:
universit|center|centre|institute?|sciences?|college|research|
avenue|street|philosophy|professor|address|department|
umass
)\b/ix;
our $re_publication_word = qr/\b(?:
forthcoming|editors?|edited|publish\w*|press|volume
to\sappear\sin|draft|editor\w*|reprints?|excerpt|
circulation|cite
)\b/ix;
my $re_notitle = qr/
$re_address_word |
$re_publication_word |
\b(?:thanks?|
@|
[12]\d{3}|
abstract
)/ix;
our $re_title = qr/^
(?!.*$re_notitle?.*)
\p{IsAlpha}
/x;