blob: e713b0655e91266366bd5bceb460398e97d2b24b (
plain) (
blame)
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
|
--- installperl.ORIG Mon May 12 05:22:27 1997
+++ installperl Fri May 23 11:40:27 1997
@@ -93,7 +93,7 @@
safe_unlink("$installbin/sperl$ver$exe_ext");
if ($d_dosuid) {
copy("suidperl$exe_ext", "$installbin/sperl$ver$exe_ext");
- chmod(04711, "$installbin/sperl$ver$exe_ext");
+ chmod(04111, "$installbin/sperl$ver$exe_ext");
}
# Install library files.
@@ -156,11 +156,12 @@
(-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) &&
+# (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 ('') { # MarkM - May 1997. Take the NO route always.
unlink($usrbinperl);
eval { CORE::link $instperl, $usrbinperl } ||
eval { symlink $expinstperl, $usrbinperl } ||
|
