diff options
| author | Gisle Aas <aas@bergen.sn.no> | 1997-06-11 12:00:00 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
| commit | 720cbd8665fdedebd0f7cae0dc4967e04f04a521 (patch) | |
| tree | 09dd34f8f0d75a6d5e05d94ed3e3bf236183b412 /lib/AutoLoader.pm | |
| parent | 4dcba7838f3fd83292ddf7d8be7a7a2e8a4f9854 (diff) | |
| download | perl-720cbd8665fdedebd0f7cae0dc4967e04f04a521.tar.gz | |
LWP and SIG __DIE__ traps not playing well together!
Diffstat (limited to 'lib/AutoLoader.pm')
| -rw-r--r-- | lib/AutoLoader.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm index e2d71700d4..c45483b02d 100644 --- a/lib/AutoLoader.pm +++ b/lib/AutoLoader.pm @@ -27,7 +27,7 @@ AUTOLOAD { } } my $save = $@; - eval {require $name}; + eval {local $SIG{__DIE__};require $name}; if ($@) { if (substr($AUTOLOAD,-9) eq '::DESTROY') { *$AUTOLOAD = sub {}; @@ -38,7 +38,7 @@ AUTOLOAD { # There is a slight risk that we could pick up the wrong file here # but autosplit should have warned about that when splitting. if ($name =~ s/(\w{12,})\.al$/substr($1,0,11).".al"/e){ - eval {require $name}; + eval {local $SIG{__DIE__};require $name}; } if ($@){ $@ =~ s/ at .*\n//; |