Change 32005 by [EMAIL PROTECTED] on 2007/10/02 12:08:47
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/perl/lib/base.pm#40 edit
Differences ...
==== //depot/perl/lib/base.pm#40 (text) ====
Index: perl/lib/base.pm
--- perl/lib/base.pm#39~31895~ 2007-09-19 00:52:40.000000000 -0700
+++ perl/lib/base.pm 2007-10-02 05:08:47.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.
