From 0b166b6635cf199f072db516b2a523ee659394d5 Mon Sep 17 00:00:00 2001
From: Ilya Zakharevich <ilya@math.ohio-state.edu>
Date: Mon, 28 Jul 1997 16:23:32 +1200
Subject: [PATCH] Perldoc tiny patch to avoid $0

Editing $0 may be not-so-portable.

Enjoy,

p5p-msgid: 199709122141.RAA16846@monk.mps.ohio-state.edu
---
 utils/perldoc.PL | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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.
-- 
2.7.4