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

[Matt Diephouse]

# 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

[Allison Randal via RT]

Fixed in r18215.