summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGisle Aas <gisle@aas.no>2000-06-09 22:00:11 +0200
committerJarkko Hietaniemi <jhi@iki.fi>2000-08-29 14:47:06 +0000
commitaafed681d129a57a40f6f1dbe3a5794aa1fa2e04 (patch)
treeb2e35c3ba06ba1157e3a3bf407374056473e749f
parent348bfb393c643f00d711c1bc1cb2f0526cb19d7f (diff)
downloadperl-aafed681d129a57a40f6f1dbe3a5794aa1fa2e04.tar.gz
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
-rw-r--r--utils/perldoc.PL2
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index c7e9970dd4..dc145e3e35 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;
}