From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 20 Jun 1998 21:12:01 +0000 (+0000)
Subject: undo goofed change 1157 (backed out the fix instead of keeping it)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=249edfdff1b2b750e894ee5a0b6cb64d2640ca02;p=p5sagit%2Fp5-mst-13.2.git

undo goofed change 1157 (backed out the fix instead of keeping it)

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

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 "";
 }