$NetBSD: patch-ad,v 1.5 2000/08/27 20:55:58 jlam Exp $

--- installperl.orig	Wed Mar  8 07:22:41 2000
+++ installperl
@@ -224,7 +224,7 @@
 safe_unlink("$installbin/s$perl_verbase$ver$exe_ext");
 if ($d_dosuid) {
     copy("suidperl$exe_ext", "$installbin/s$perl_verbase$ver$exe_ext");
-    chmod(04711, "$installbin/s$perl_verbase$ver$exe_ext");
+    chmod(04111, "$installbin/s$perl_verbase$ver$exe_ext");
 }
 
 # Install library files.
@@ -326,19 +326,19 @@
 	      (-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] ")))
-    {
-	unlink($usrbinperl);
-	( $Config{'d_link'} eq 'define' &&
-	  eval { CORE::link $instperl, $usrbinperl } )	||
-	eval { symlink $expinstperl, $usrbinperl }	||
-	copy($instperl, $usrbinperl);
-
-	$mainperl_is_instperl = 1;
-    }
+#    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] ")))
+#    {
+#	unlink($usrbinperl);
+#	( $Config{'d_link'} eq 'define' &&
+#	  eval { CORE::link $instperl, $usrbinperl } )	||
+#	eval { symlink $expinstperl, $usrbinperl }	||
+#	copy($instperl, $usrbinperl);
+#
+#	$mainperl_is_instperl = 1;
+#    }
 }
 
 # Make links to ordinary names if installbin directory isn't current directory.