Same bug, I guess ... and it's still not present in my perl v5.8.7 built for i486-linux:
sidhekin@blackbox:~$ perl foreach my $thing (qw/foo bar baz/) { print "$thing -> "; my $c = chop ${\$thing}; print " $thing,$c\n"; } __END__ Modification of a read-only value attempted at - line 3. foo ->
print "Just another Perl ${\(trickster and hacker)},"
The Sidhekin proves Sidhe did it!
In reply to Re^2: foreach funny business
by Sidhekin
in thread foreach funny business
by krunchky
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |