$NetBSD: patch-ad,v 1.1.1.1 2000/09/05 09:18:21 jlam Exp $

--- installperl.orig	Wed Mar  8 07:22:41 2000
+++ installperl	Wed Aug 30 15:09:30 2000
@@ -56,7 +56,7 @@
 }
 
 my @scripts = qw(utils/c2ph utils/h2ph utils/h2xs utils/perlbug utils/perldoc
-		utils/pl2pm utils/splain utils/perlcc utils/dprofpp
+		utils/pl2pm utils/splain utils/perlcc
 		x2p/s2p x2p/find2perl 
 		pod/pod2man pod/pod2html pod/pod2latex pod/pod2text
 		pod/pod2usage pod/podchecker pod/podselect);
@@ -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.