--- installperl.ORIG	Thu Jul 30 15:58:50 1998
+++ installperl	Thu Jul 30 16:02:16 1998
@@ -269,7 +269,7 @@
 	      (-l $usrbinperl) &&
 	      ((readlink $usrbinperl) eq $expinstperl));
     }
-    if ((! $mainperl_is_instperl) &&
+    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] ")))