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 (file)
--- 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 (file)
--- 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 (file)
index 0000000..e69de29