Fix error-eating thinko from 6c7ca962
[dbsrgits/DBIx-Class.git] / t / 00describe_environment.t
index 87b4697..fc1c694 100644 (file)
@@ -51,7 +51,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;