[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 (executable)
--- 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 } )  ||