# New Ticket Created by [EMAIL PROTECTED]
# Please include the string: [perl #34130]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=34130 >
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help of perlbug 1.35 running under perl v5.8.5.
-----------------------------------------------------------------
[Please enter your report here]
The each function loops infinitely on anonymous hashes.
This example:
while( my ($k, $v) = each %{{qw(one 1 two 2 three 3)}} ){
print "$k $v\n";
}
prints "three 3" forever.
On the other hand,
print join ' ', keys %{{qw(one 1 two 2 three 3)}};
and
print join ' ', values %{{qw(one 1 two 2 three 3)}};
both work as expected.
-Gyepi
[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
category=core
severity=medium
---
Site configuration information for perl v5.8.5:
Configured by gyepi at Fri Sep 24 13:41:50 EDT 2004.
Summary of my perl5 (revision 5 version 8 subversion 5) configuration:
Platform:
osname=linux, osvers=2.4.26, archname=i386-linux
uname='linux nome.praxis-sw.com 2.4.26 #11 mon jul 12 13:47:30 edt 2004
i686 i686 i386 gnulinux '
[snipped irrelevant stuff]
