X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F00describe_environment.t;h=fc1c6942e9e12c1627abbe4ee8033035d0ce56c2;hb=63ee8b7896e02ee888eb26251fc28311721832c5;hp=0beb5b0f18cfff1b4a1c5e9ba13737b9e4a53c9d;hpb=2c038b0a90ff69084cbdac688105eaa68036d18d;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/00describe_environment.t b/t/00describe_environment.t
index 0beb5b0..fc1c694 100644
--- a/t/00describe_environment.t
+++ b/t/00describe_environment.t
@@ -48,6 +48,15 @@ use strict;
 use warnings;
 
 use Test::More 'no_plan';
+
+# Things happen... unfortunately
+$SIG{__DIE__} = sub {
+  die $_[0] unless defined $^S and ! $^S;
+
+  diag "Something horrible happened while assembling the diag data\n$_[0]";
+  exit 0;
+};
+
 use Config;
 use File::Find 'find';
 use Digest::MD5 ();