From: Gisle Aas <aas@bergen.sn.no>
Date: Wed, 11 Jun 1997 00:00:00 +0000 (+1200)
Subject: LWP and SIG __DIE__ traps not playing well together!
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=720cbd8665fdedebd0f7cae0dc4967e04f04a521;p=p5sagit%2Fp5-mst-13.2.git

LWP and SIG __DIE__ traps not playing well together!
---

diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm
index e2d7170..c45483b 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//;