Change 32005: use base problem

[Rafael Garcia-Suarez]

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.