perlhash iter busted

[Sam Ruby]

Test case attached.
- Sam Ruby
Index: t/pmc/perlhash.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/perlhash.t,v
retrieving revision 1.48
diff -u -r1.48 perlhash.t
--- t/pmc/perlhash.t    1 Oct 2004 21:16:52 -0000       1.48
+++ t/pmc/perlhash.t    3 Dec 2004 19:18:51 -0000
@@ -19,7 +19,7 @@
 
 =cut
 
-use Parrot::Test tests => 36;
+use Parrot::Test tests => 37;
 use Test::More;
 
 output_is(<<CODE, <<OUTPUT, "Initial PerlHash tests");
@@ -1215,4 +1215,19 @@
 0
 OUTPUT
 
+output_is(<< 'CODE', << 'OUTPUT', "iter");
+##PIR##
+.sub __main__ @MAIN
+    new P0, .PerlHash
+    set P0['a'], 'x'
+    iter P1, P0
+    shift P2, P1
+    print P2
+    print "\n"
+    end
+.end
+CODE
+a
+OUTPUT
+
 1;