From: Abhijit Menon-Sen <ams@wiw.org>
Date: Fri, 20 May 2005 14:21:21 +0000 (+0000)
Subject: Previously overlooked $SIG{DIE} patch from Slaven Rezic.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bb65ef264c49216eb3114d66755a0fdd23f7151b;p=p5sagit%2Fp5-mst-13.2.git

Previously overlooked $SIG{DIE} patch from Slaven Rezic.
http://groups-beta.google.com/group/perl.perl5.porters/msg/2d10ba2c390ecc41

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

diff --git a/ext/Storable/MANIFEST b/ext/Storable/MANIFEST
index 37415e5..c12ecb5 100644
--- a/ext/Storable/MANIFEST
+++ b/ext/Storable/MANIFEST
@@ -25,6 +25,7 @@ t/integer.t		    For "use integer" testing
 t/interwork56.t		    Test combatibility kludge for 64bit data under 5.6.x
 t/just_plain_nasty.t	    Corner case corner.
 t/lock.t		    See if Storable works
+t/sig_die.t		    See if Storable works
 t/make_56_interwork.pl	    Make test data for interwork56.t
 t/make_downgrade.pl	    Make test data for downgrade.t
 t/malice.t		    See if Storable copes with corrupt files
diff --git a/ext/Storable/Storable.pm b/ext/Storable/Storable.pm
index 51e4f9c..69e9f51 100644
--- a/ext/Storable/Storable.pm
+++ b/ext/Storable/Storable.pm
@@ -28,7 +28,10 @@ $VERSION = '2.15';
 # Use of Log::Agent is optional
 #
 
-eval "use Log::Agent";
+{
+    local $SIG{__DIE__};
+    eval "use Log::Agent";
+}
 
 require Carp;
 
diff --git a/ext/Storable/t/sig_die.t b/ext/Storable/t/sig_die.t
new file mode 100644
index 0000000..e69de29