Probe for $SIG{__DIE__} localization in testing

dagolden · Jul 21, 2018 · a5da679 · a5da679
1 parent fefa219
commit a5da679
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/t/sig_die.t b/t/sig_die.t
@@ -8,6 +8,18 @@ use Path::Tiny;
 
 use lib 't/fakelib';
 
+# probe for working $SIG{__DIE__} localization
+my $called;
+{
+    local $SIG{__DIE__} = sub { $called++ };
+    {
+        local $SIG{__DIE__};
+        eval { die };
+    }
+}
+plan skip_all => "\$SIG{__DIE__} won't localize"
+  if $called;
+
 my $file = path( scalar tmpnam() );
 ok $file, 'Got a filename via tmpnam()';