# 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