diff options
| author | Steffen Müller <0mgwtfbbq@sneakemail.com> | 2007-01-09 20:15:36 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-01-10 10:54:27 +0000 |
| commit | 017a05de2c6af847d65b8a8a506f2eb7d434ad53 (patch) | |
| tree | ad9804e0f710a103d3cfa06dcaa7482bbd794676 | |
| parent | 3645c8c73799ab045cd376836963afb9afa783f0 (diff) | |
| download | perl-017a05de2c6af847d65b8a8a506f2eb7d434ad53.tar.gz | |
Bug in AutoLoader.pm causing endless loop
Message-ID: <45A3DBC8.4010203@sneakemail.com>
p4raw-id: //depot/perl@29743
| -rw-r--r-- | lib/AutoLoader.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm index e74043157f..25b392848a 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 |