was Re: hashing order difference?

Message-ID: <Pine.OSF.4.10.10102231036100.79050-100000@aspara.forte.com>

p4raw-id: //depot/perl@8913

diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t
index 181c842..ee74d93 100755 (executable)
--- a/t/op/lex_assign.t
+++ b/t/op/lex_assign.t
@@ -244,7 +244,7 @@ lc $cstr                    # lc
 quotemeta $cstr                        # quotemeta
 @$aref                         # rv2av
 @$undefed                      # rv2av undef
-each %h==1                     # each
+(each %h) % 2 == 1             # each
 values %h                      # values
 keys %h                                # keys
 %$href                         # rv2hv