HTTP/2 200 cache-control: max-age=43200 server: Combust/Plack (Perl) vary: Accept-Encoding content-encoding: gzip content-length: 1381 content-type: text/html; charset=utf-8 last-modified: Sat, 11 Oct 2025 15:51:31 GMT date: Sat, 11 Oct 2025 15:51:31 GMT strict-transport-security: max-age=15768000 Front page | perl.perl5.porters | Postings from July 2008

Re: [perl #57244] crash with recursive regexp

Thread Previous | Thread Next

On Thu, Jul 24, 2008 at 8:32 AM, via RT Zefram
<perlbug-followup@perl.org> wrote:
> $ cat x1.pl
> use re "eval";
> my $dqstring_rx = qr/"(?:[^"\\]+|\\(?:e|x\{([0-9a-fA-F]+)\}))*"/;
> my $sqstring_rx = qr/'(?:aaa|bbb)'/;
> my $string_rx = qr/$dqstring_rx|$sqstring_rx/o;
> my $array_rx = qr/\[(??{$datum_rx}),*\]/o;          <-- $datum_rx refers to $main::datum_rx
> my $datum_rx = qr/$string_rx|$array_rx/o;
> "['aaa','bbb',]" =~ /\A$array_rx\z/;
That should be
my $datum_rx;
my $array_rx = qr/\[(??{$datum_rx}),*\]/o;
$datum_rx = qr/$string_rx|$array_rx/o;
but that's not related to the bug in Perl.

Thread Previous | Thread Next

• [perl #57244] crash with recursive regexp by Zefram
• Re: [perl #57244] crash with recursive regexp by demerphq
• Re: [perl #57244] crash with recursive regexp by Eric Brine
• Re: [perl #57244] crash with recursive regexp by Zefram