( cherry-pick of
c8215e2c )
$@ is not visible in $SIG{__DIE__}
# Things happen... unfortunately
$SIG{__DIE__} = sub {
- die unless defined $^S and ! $^S;
+ die $_[0] unless defined $^S and ! $^S;
diag "Something horrible happened while assembling the diag data\n$_[0]";
exit 0;