diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-02 09:37:04 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-02 09:37:04 +0000 |
| commit | a7fce7e16a936eb048fedb9b30adc592bcb2c657 (patch) | |
| tree | 65138c4ebd3ac19a448e8e27fbf5f58d3f153477 /lib/base.pm | |
| parent | 8478abc46295ec4915771037b890b319744b48cf (diff) | |
| download | perl-a7fce7e16a936eb048fedb9b30adc592bcb2c657.tar.gz | |
Fix [perl #35162] $SIG{__DIE__} = 'IGNORE' is base.pm is illegal
p4raw-id: //depot/perl@24360
Diffstat (limited to 'lib/base.pm')
| -rw-r--r-- | lib/base.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/base.pm b/lib/base.pm index 832b6a4a9a..001914be4d 100644 --- a/lib/base.pm +++ b/lib/base.pm @@ -2,7 +2,7 @@ package base; use strict 'vars'; use vars qw($VERSION); -$VERSION = '2.06'; +$VERSION = '2.07'; # constant.pm is slow sub SUCCESS () { 1 } @@ -78,7 +78,7 @@ sub import { unless defined ${$base.'::VERSION'}; } else { - local $SIG{__DIE__} = 'IGNORE'; + local $SIG{__DIE__}; eval "require $base"; # Only ignore "Can't locate" errors from our eval require. # Other fatal errors (syntax etc) must be reported. |