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 (file)
--- 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;
     }