Bug in Safe 2.21 (or Opcode) re propagating exceptions

In the context of PostgreSQL PL/Perl, which uses Safe, David Wheeler
pointed me to a bug in Safe 2.21. The effect is that an exception thrown
from a closure gets lost.

I've boiled it down to this:

    perl -MSafe -e 'Safe->new->reval(q{sub { die @_ }})->(qq{ok\n})'

That should die with "ok" but doesn't on 5.10.1 or 5.11.4 or 5.8.6.
It does die, correctly, on a whole bunch of other versions I have
lying around locally.

This is a heads up as I'm starting to dig. Any thoughts most welcome...

Tim.