1997-08-31 16:20:53 +00:00
|
|
|
--- 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 } ||
|
