This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Previously overlooked $SIG{DIE} patch from Slaven Rezic.
authorAbhijit Menon-Sen <ams@wiw.org>
Fri, 20 May 2005 14:21:21 +0000 (14:21 +0000)
committerAbhijit Menon-Sen <ams@wiw.org>
Fri, 20 May 2005 14:21:21 +0000 (14:21 +0000)
http://groups-beta.google.com/group/perl.perl5.porters/msg/2d10ba2c390ecc41

p4raw-id: //depot/perl@24512

ext/Storable/MANIFEST
ext/Storable/Storable.pm
ext/Storable/t/sig_die.t [new file with mode: 0644]

index 37415e5..c12ecb5 100644 (file)
@@ -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/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
 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
index 51e4f9c..69e9f51 100644 (file)
@@ -28,7 +28,10 @@ $VERSION = '2.15';
 # Use of Log::Agent is optional
 #
 
 # Use of Log::Agent is optional
 #
 
-eval "use Log::Agent";
+{
+    local $SIG{__DIE__};
+    eval "use Log::Agent";
+}
 
 require Carp;
 
 
 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