# New Ticket Created by Will Coleda
# Please include the string: [perl #60044]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60044 >
I would expect both of these programs to output the same thing, but it
looks like rethrow is generating the same output that throw would
here.
What is the difference supposed to be between these two ops?
$ cat foo.pir
.sub foo :main
bar()
.end
.sub bar
baz()
.end
.sub baz
die "eek"
.end
$ ../../parrot foo.pir
eek
current instr.: 'baz' pc 24 (foo.pir:10)
called from Sub 'bar' pc 19 (foo.pir:6)
called from Sub 'foo' pc 7 (foo.pir:2)
$ cat bar.pir
.sub foo :main
push_eh eh
bar()
pop_eh
end
eh:
.get_results($P0)
rethrow $P0
.end
.sub bar
baz()
.end
.sub baz
die "eek"
.end
$ ../../parrot bar.pir
eek
current instr.: 'foo' pc 16 (bar.pir:9)
--
Will "Coke" Coleda
