From a4d725261607987fc109939ee708fdb1e2fee68e Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 19 Jun 1998 21:18:47 +0000
Subject: [PATCH] fix perldoc to ignore unfound null filenames

p4raw-id: //depot/perl@1156
---
 utils/perldoc.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index ac71dd6..5b12696 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -226,7 +226,7 @@ sub check_file {
 	return minus_f_nocase($dir,$file);
     } else {
 	my $path = minus_f_nocase($dir,$file);
-        return $path if containspod($path);
+        return $path if length $path and containspod($path);
     }
     return "";
 }
-- 
2.7.4