X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FAutoLoader.pm;h=c45483b02d670daeeb56f7efcab4a1e0e7e1df24;hb=d6a06c6b3ce238e0862e09fdca0c17e9d40e9b2c;hp=e2d71700d480c740f4709cb5a35f4acd80f3f4ae;hpb=1be0b951896569eac7ad6c5fd5fd8c3ab526543b;p=p5sagit%2Fp5-mst-13.2.git

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//;