Re^2: Each on anonymous hash is causing endless loop.

Thanks, good explanation!

I was expecting some kind of constant folding ...

C:\>perl -M5.012
my $x = 5;
while ( say {a=>1,b=>2}  ) { die "abort" unless --$x }
__END__
HASH(0xf5b3d0)
HASH(0xf5b508)
HASH(0xf5b3d0)
HASH(0xf5b508)
HASH(0xf5b3d0)
abort at - line 2.

C:\>
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on Re^2: Each on anonymous hash is causing endless loop. Download Code