Change 33519 by [EMAIL PROTECTED] on 2008/03/13 22:10:34
Integrate:
[ 32005]
Subject: use base problem
From: Shawn <[EMAIL PROTECTED]>
Date: Mon, 01 Oct 2007 12:45:32 -0700
Message-ID: <[EMAIL PROTECTED]>
(This patch is actually not needed for 5.10, but useful for earlier
perls)
Affected files ...
... //depot/maint-5.8/perl/lib/base.pm#18 integrate
Differences ...
==== //depot/maint-5.8/perl/lib/base.pm#18 (text) ====
Index: perl/lib/base.pm
--- perl/lib/base.pm#17~32469~ 2007-11-23 12:37:18.000000000 -0800
+++ perl/lib/base.pm 2008-03-13 15:10:34.000000000 -0700
@@ -100,7 +100,7 @@
or make that module available in [EMAIL PROTECTED] ([EMAIL PROTECTED]
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;
End of Patch.
