Fix error-eating thinko from 6c7ca962 / 40097e49
Peter Rabbitson [Sat, 16 Jul 2016 11:59:30 +0000 (13:59 +0200)]
( cherry-pick of c8215e2c )

$@ is not visible in $SIG{__DIE__}

t/00describe_environment.t

index 13cb79b..30ef53d 100644 (file)
@@ -56,7 +56,7 @@ use Test::More 'no_plan';
 
 # 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;