[perl #125657] Rethrowing of exceptions by print_exception in src/core/Exception.pm doesn't preserve stacktrace

[via RT]

# New Ticket Created by  Rob Hoelz 
# Please include the string:  [perl #125657]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=125657 >


For an example, see the attached script.

I understand that if the if $! { ... } block is hit, there's a limited amount 
of work that can be done, but I think we could probably go out of our way to 
get the backtrace where the exception happened more often so that's what the 
user sees.
my class BadException is Exception {
    method gist {
        die 'nope';
    }
}

sub baz {
    BadException.new.throw;
}

sub bar {
    baz();
}

sub foo {
    bar();
}

foo();