From: Shawn <svicalifornia@gmail.com>
Date: Mon, 1 Oct 2007 12:45:32 +0000 (-0700)
Subject: use base problem
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd3d0583950212b2f79deb8cb857c0f408cdf2aa;p=p5sagit%2Fp5-mst-13.2.git

use base problem
Message-ID: <1191267932.150186.12570@d55g2000hsg.googlegroups.com>

(This patch is actually not needed for 5.10, but useful for earlier perls)

p4raw-id: //depot/perl@32005
---

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;