Skip Menu |
Report information
Id: 122995
Status: resolved
Priority: 0/
Queue: perl5

Owner: Nobody
Requestors:
Cc:
AdminCc:

Operating System: (no value)
PatchStatus: (no value)
Severity: low
Type:
Perl Version:
  • 5.20.0
  • 5.20.1
Fixed In: 5.22.0



Subject: Perl 5.20 regression: Hang when compiling while(1) in a list
Download (untitled) / with headers
text/plain 267b
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
RT-Send-CC: perl5-porters [...] perl.org
Download (untitled) / with headers
text/plain 481b
On Thu Oct 16 15:53:16 2014, sprout wrote: Show quoted text
> 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. >
Confirmed comparing 5.16.3 vs 5.20.1. Have you been able to bisect to determine the problematic commit? Thank you very much. Jim Keenan -- James E Keenan (jkeenan@cpan.org)
RT-Send-CC: perl5-porters [...] perl.org
Download (untitled) / with headers
text/plain 727b
On Thu Oct 16 16:33:41 2014, jkeenan wrote: Show quoted text
> On Thu Oct 16 15:53:16 2014, sprout wrote:
> > 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. > >
> > Confirmed comparing 5.16.3 vs 5.20.1. Have you been able to bisect to > determine the problematic commit?
It’s probably not necessary. The bad code was added by 7d3c8a683 according to git-blame. I have just fixed it in 0d42e77, which should be backported to maint-5.20, IMO. (Please leave this ticket open till then.) -- Father Chrysostomos
Subject: Your ticket against Perl 5 has been resolved
Download (untitled) / with headers
text/plain 222b
Thanks for submitting this ticket The issue should be resolved with the release today of Perl v5.22. If you find that the problem persists, feel free to reopen this ticket -- Karl Williamson for the Perl 5 porters team


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

For issues related to this RT instance (aka "perlbug"), please contact perlbug-admin at perl.org