[perl #39778] Segfault when using a Namespace with an Iterator

[via RT]

# New Ticket Created by  Matt Diephouse 
# Please include the string:  [perl #39778]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=39778 >


Trying to use an Iterator with a NameSpace makes Parrot segfault:

   mini:~/Projects/parrot mdiep$ cat test.pir
   .sub main :main
     .local pmc iter, ns
     ns = get_namespace

     iter = new .Iterator, ns
   loop:
     unless iter goto loop_end
     $P0 = shift iter

     $S0 = $P0
     print $S0
     print "\n"
     goto loop

   loop_end:
     end
   .end

   mini:~/Projects/parrot mdiep$ parrot test.pir
   Segmentation fault
   mini:~/Projects/parrot mdiep$

This is bad for 2 reasons: I need to iterate through the items in the  
namespace and parrot should never segfault.

--
Matt Diephouse