diff options
| author | Shawn <svicalifornia@gmail.com> | 2007-10-01 05:45:32 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-02 12:08:47 +0000 |
| commit | bd3d0583950212b2f79deb8cb857c0f408cdf2aa (patch) | |
| tree | 5096f82de10812c56cd790f9e16cbbe938483d82 /lib | |
| parent | e57fbd1f71f640a63a14acad7388e9d89f869e36 (diff) | |
| download | perl-bd3d0583950212b2f79deb8cb857c0f408cdf2aa.tar.gz | |
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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/base.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/base.pm b/lib/base.pm index abbacb6b34..be4c667e67 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; |