1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
$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.
|
