This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 7d3bb7a) | patch
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
treee76b706088092d23944029ee4d342396066fb929tree | snapshot
parent7d3bb7a6857f9a9b7f94fc0a8a3a3444becc928fcommit | diff
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 diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.