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 (file)
--- 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