X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fbase.pm;h=be4c667e674f60f31a3a5d4d0f98a1dfb1fe413c;hb=d81018543234fe5f8d429eb7048c0b50792ea031;hp=abbacb6b34295b37ac8af47b90ae158630b99b9a;hpb=00ed247ad44f2548d0ea02a06b0a1bb418a1c315;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/base.pm b/lib/base.pm
index abbacb6..be4c667 100644
--- a/lib/base.pm
+++ b/lib/base.pm
@@ -100,7 +100,7 @@ Base class package "$base" is empty.
     or make that module available in \@INC (\@INC contains: @INC).
 ERROR
                 }
-                $sigdie = $SIG{__DIE__};
+                $sigdie = $SIG{__DIE__} || undef;
             }
             # Make sure a global $SIG{__DIE__} makes it out of the localization.
             $SIG{__DIE__} = $sigdie if defined $sigdie;