From: Steffen Müller <0mgwtfbbq@sneakemail.com>
Date: Tue, 9 Jan 2007 19:15:36 +0000 (+0100)
Subject: Bug in AutoLoader.pm causing endless loop
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=017a05de2c6af847d65b8a8a506f2eb7d434ad53;p=p5sagit%2Fp5-mst-13.2.git

Bug in AutoLoader.pm causing endless loop
Message-ID: <45A3DBC8.4010203@sneakemail.com>

p4raw-id: //depot/perl@29743
---

diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm
index e740431..25b3928 100644
--- a/lib/AutoLoader.pm
+++ b/lib/AutoLoader.pm
@@ -15,7 +15,7 @@ BEGIN {
     $is_epoc = $^O eq 'epoc';
     $is_vms = $^O eq 'VMS';
     $is_macos = $^O eq 'MacOS';
-    $VERSION = '5.61';
+    $VERSION = '5.62';
 }
 
 AUTOLOAD {
@@ -89,9 +89,11 @@ sub find_filename {
 	if (defined($filename = $INC{"$pkg.pm"})) {
 	    if ($is_macos) {
 		$pkg =~ tr#/#:#;
-		$filename =~ s#^(.*)$pkg\.pm\z#$1auto:$pkg:$func.al#s;
+		$filename = undef
+		  unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto:$pkg:$func.al#s;
 	    } else {
-		$filename =~ s#^(.*)$pkg\.pm\z#$1auto/$pkg/$func.al#s;
+		$filename = undef
+		  unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto/$pkg/$func.al#s;
 	    }
 
 	    # if the file exists, then make sure that it is a