From: Gisle Aas <gisle@aas.no>
Date: Fri, 9 Jun 2000 20:00:11 +0000 (+0200)
Subject: Re: [ID 20000525.003] perldoc fails when Makefile.PL is in cwd
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aafed681d129a57a40f6f1dbe3a5794aa1fa2e04;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20000525.003] perldoc fails when Makefile.PL is in cwd
Message-ID: <m3n1kud9as.fsf@eik.g.aas.no>

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

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index c7e9970..dc145e3 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -203,7 +203,7 @@ if (-f "Makefile.PL") {
     eval q{ use lib qw(. lib); 1; } or die;
 
     # don't add if superuser
-    if ($< && $>) {   # don't be looking too hard now!
+    if ($< && $> && -f "blib") {   # don't be looking too hard now!
 	eval q{ use blib; 1 };
 	warn $@ if $@ && $opt_v;
     }