[perl #39851] [BUG] .HLL doesn't reset the .namespace

[via RT]

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


Switching HLLs with C< .HLL > doesn't reset the namespace. This leads  
to some confusing bugs. Parrot should assume C< .namespace > whenever  
it sees C< .HLL '...', '...' >.

   mini:~/Projects/parrot mdiep$ cat test.pir
   .HLL '_Tcl', ''
   .namespace ['Foo'; 'Bar']

   .HLL 'Tcl', ''

   .sub main :main
     $P0 = get_namespace
     $P0 = $P0.'name'()
     $S0 = join "::", $P0
     print $S0 # should print "tcl", but actually prints "tcl::Foo::Bar"
     print "\n"
     end
   .end

   mini:~/Projects/parrot mdiep$ parrot test.pir
   tcl::Foo::Bar
   mini:~/Projects/parrot mdiep$

--
Matt Diephouse