Try to fix RT #81529

[pplu]

I've written code to try to fix the case where you call throws_ok, the code doesn't die, and the test passes (RT#81529).

The test in t/Exception.t that doesn't throw ("throws_ok: normal exit matched") is failing due to this code change.

Just thought you'd like to consider this new behaviour, since the original (passing the test) is very confusing.

[pplu]

Hi, any thoughts on this?

[exodist]

I need to look a bit deeper. I suspect this will fail for code that actually throws a 0, or an empty string as an exception. Instead I think a fix will requite use of this pattern:

my $throws = !eval { $code->(); 1 };
my $error = $@;

0, empty string, and undef are all valid as exceptions, so ultimately throws_ok will need to see if the eval passes or fails.

$ perl -e 'die undef'; perl -e 'die ""'; perl -e 'die 0'
Died at -e line 1.
Died at -e line 1.
0 at -e line 1.