From: Ilya Zakharevich <ilya@math.ohio-state.edu>
Date: Mon, 28 Jul 1997 04:23:32 +0000 (+1200)
Subject: Perldoc tiny patch to avoid $0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0b166b6635cf199f072db516b2a523ee659394d5;p=p5sagit%2Fp5-mst-13.2.git

Perldoc tiny patch to avoid $0

Editing $0 may be not-so-portable.

Enjoy,

p5p-msgid: 199709122141.RAA16846@monk.mps.ohio-state.edu
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 38ea9ee..0f43c36 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -45,10 +45,11 @@ print OUT <<'!NO!SUBS!';
 # the perl manuals, though it too is written in perl.
 
 if(@ARGV<1) {
-        $0 =~ s,.*/,,;
+	$me = $0;		# Editing $0 is unportable
+        $me =~ s,.*/,,;
 	die <<EOF;
-Usage: $0 [-h] [-v] [-t] [-u] [-m] [-l] PageName|ModuleName|ProgramName
-       $0 -f PerlFunc
+Usage: $me [-h] [-v] [-t] [-u] [-m] [-l] PageName|ModuleName|ProgramName
+       $me -f PerlFunc
 
 We suggest you use "perldoc perldoc" to get aquainted 
 with the system.