diff options
| author | Gisle Aas <gisle@aas.no> | 2000-06-09 22:00:11 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-29 14:47:06 +0000 |
| commit | aafed681d129a57a40f6f1dbe3a5794aa1fa2e04 (patch) | |
| tree | b2e35c3ba06ba1157e3a3bf407374056473e749f /utils/perldoc.PL | |
| parent | 348bfb393c643f00d711c1bc1cb2f0526cb19d7f (diff) | |
| download | perl-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
Diffstat (limited to 'utils/perldoc.PL')
| -rw-r--r-- | utils/perldoc.PL | 2 |
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; } |