[perl #122995] Perl 5.20 regression: Hang when compiling while(1) in a list

# New Ticket Created by  Father Chrysostomos 
# Please include the string:  [perl #122995]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=122995 >


This hangs at compile time:

$ perl5.20.1  -e 'sub foo { () = ($a, my $b, ($c, do { while(1) {} })) }'
^C

I found this by reading the source code.  (C.f. commit 71a29c3c6e
which fixed a similar bug long ago.)

I’ll have a fix ready soon.

-- 

Father Chrysostomos

• [perl #122995] Perl 5.20 regression: Hang when compiling while(1) in a list by Father Chrysostomos via RT
• [perl #122995] Perl 5.20 regression: Hang when compiling while(1) in a list by James E Keenan via RT
• [perl #122995] Perl 5.20 regression: Hang when compiling while(1) in a list by Father Chrysostomos