X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FAutoLoader.pm;h=e33a4bee94e133daa6bb3cd930699861ceeb4945;hb=3e7dd34d07ec3fbcf1e108a3270d6009e068e8eb;hp=25b392848a350a7e6fc77d066e93af3e47703685;hpb=017a05de2c6af847d65b8a8a506f2eb7d434ad53;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm
index 25b3928..e33a4be 100644
--- a/lib/AutoLoader.pm
+++ b/lib/AutoLoader.pm
@@ -102,7 +102,7 @@ sub find_filename {
 	    # (and failing) to find the 'lib/auto/foo/bar.al' because it
 	    # looked for 'lib/lib/auto/foo/bar.al', given @INC = ('lib').
 
-	    if (-r $filename) {
+	    if (defined $filename and -r $filename) {
 		unless ($filename =~ m|^/|s) {
 		    if ($is_dosish) {
 			unless ($filename =~ m{^([a-z]:)?[\\/]}is) {