From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 28 Apr 2000 20:41:16 +0000 (+0000)
Subject: perldoc might fail via "use blib" (from Hugo van der Sanden)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d0835e5b9f4d08cfe9f05554f2ea840cf12958e;p=p5sagit%2Fp5-mst-13.2.git

perldoc might fail via "use blib" (from Hugo van der Sanden)

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

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 297250c..5d136b3 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -204,7 +204,8 @@ if (-f "Makefile.PL") {
 
     # don't add if superuser
     if ($< && $>) {   # don't be looking too hard now!
-	eval q{ use blib; 1 } or die;
+	eval q{ use blib; 1 };
+	warn $@ if $@ && $opt_v;
     }
 }
 
@@ -791,7 +792,7 @@ One useful value for C<PERLDOC_PAGER> is C<less -+C -E>.
 
 =head1 VERSION
 
-This is perldoc v2.01.
+This is perldoc v2.03.
 
 =head1 AUTHOR
 
@@ -803,6 +804,9 @@ and others.
 =cut
 
 #
+# Version 2.03: Sun Apr 23 16:56:34 BST 2000
+#	Hugo van der Sanden <hv@crypt0.demon.co.uk>
+#	don't die when 'use blib' fails
 # Version 2.02: Mon Mar 13 18:03:04 MST 2000
 #       Tom Christiansen <tchrist@perl.com>
 #	Added -U insecurity option