This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make op.c:S_aassign_scan() non-recursive
authorDavid Mitchell <davem@iabyn.com>
Thu, 30 May 2019 13:22:09 +0000 (14:22 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 24 Jun 2019 10:40:07 +0000 (11:40 +0100)
commite0f9da3349f858d1a43f62c82fd92e0db93e5dd2
treee76b706088092d23944029ee4d342396066fb929
parent7d3bb7a6857f9a9b7f94fc0a8a3a3444becc928f
make op.c:S_aassign_scan() non-recursive

With this commit and some previous ones, the following code no longer
blows the stack:

    my $e = "1";
    $e = "do { \$x; $e}" for 1..100_000;
    $e = "\@x = $e";
    eval $e;
op.c