diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2005-05-20 14:21:21 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2005-05-20 14:21:21 +0000 |
| commit | bb65ef264c49216eb3114d66755a0fdd23f7151b (patch) | |
| tree | fd306e5594629e6d3eec07b02811d51c2e174b6b /ext/Storable | |
| parent | 5c36f62652b0995b0bfdb6299979b72fd3223d6b (diff) | |
| download | perl-bb65ef264c49216eb3114d66755a0fdd23f7151b.tar.gz | |
Previously overlooked $SIG{DIE} patch from Slaven Rezic.
http://groups-beta.google.com/group/perl.perl5.porters/msg/2d10ba2c390ecc41
p4raw-id: //depot/perl@24512
Diffstat (limited to 'ext/Storable')
| -rw-r--r-- | ext/Storable/MANIFEST | 1 | ||||
| -rw-r--r-- | ext/Storable/Storable.pm | 5 | ||||
| -rw-r--r-- | ext/Storable/t/sig_die.t | 0 |
3 files changed, 5 insertions, 1 deletions
diff --git a/ext/Storable/MANIFEST b/ext/Storable/MANIFEST index 37415e557b..c12ecb56fd 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 51e4f9cda8..69e9f5139f 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 0000000000..e69de29bb2 --- /dev/null +++ b/ext/Storable/t/sig_die.t |