foreach (0) { map { x() } 0 } causes attempt to free unreferenced scalar

I can reproduce this in 5.8.8 but it doesn't happen in
bleadperl, so I
guess it must have been fixed somewhere along the line.

Steve Hay via RT wrote:
> I can reproduce this in 5.8.8 but it doesn't happen in
bleadperl, so I
> guess it must have been fixed somewhere along the
line.

Confirmed.

$ perl -wle 'foreach (0) { map { x() } 0 } '
Undefined subroutine &main:
called at -e line 1.
Attempt to free unreferenced scalar: SV 0x1801bd0, Perl
interpreter: 0x1800400.

$ bleadperl -wle 'foreach (0) { map { x() } 0 } '
Undefined subroutine &main:
called at -e line 1.



-- 
Hating the web since 1994.