From: David Dyck <david.dyck@fluke.com>
Date: Mon, 1 Oct 2001 12:17:36 +0000 (-0700)
Subject: [ID 20011001.009] /usr/bin/perl (in addition to /usr/local/bin/perl)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=835f8a63f39ee0b6fcc61424cf4e964d4562ffbb;p=p5sagit%2Fp5-mst-13.2.git

[ID 20011001.009] /usr/bin/perl (in addition to /usr/local/bin/perl)
Message-Id: <200110011917.MAA11879@dd.tc.fluke.com>

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

diff --git a/installperl b/installperl
index 86d9c2c..fb16bab 100755
--- a/installperl
+++ b/installperl
@@ -425,11 +425,7 @@ if ($Config{installusrbinperl} && $Config{installusrbinperl} eq 'define' &&
 	      (-l $usrbinperl) &&
 	      ((readlink $usrbinperl) eq $expinstperl));
     }
-    if ((! $mainperl_is_instperl) &&
-	(yn("Many scripts expect perl to be installed as $usrbinperl.\n" . 
-	     "Do you wish to have $usrbinperl be the same as\n" .
-	     "$expinstperl? [y] ")))
-    {
+    if (! $mainperl_is_instperl) {
 	unlink($usrbinperl);
 	( $Config{'d_link'} eq 'define' &&
 	  eval { CORE::link $instperl, $usrbinperl } )	||