diff options
Diffstat (limited to 'lang/perl5.12/files/patch-ab')
-rw-r--r-- | lang/perl5.12/files/patch-ab | 70 |
1 files changed, 29 insertions, 41 deletions
diff --git a/lang/perl5.12/files/patch-ab b/lang/perl5.12/files/patch-ab index ba42c1827211..e713b0655e91 100644 --- a/lang/perl5.12/files/patch-ab +++ b/lang/perl5.12/files/patch-ab @@ -1,41 +1,29 @@ ---- perl.c.orig Tue Feb 27 13:30:44 1996 -+++ perl.c Sun Jun 2 09:22:34 1996 -@@ -1606,10 +1606,10 @@ - (void)setegid(statbuf.st_gid); - #else - #ifdef HAS_SETREGID -- (void)setregid((Gid_t)-1,statbuf.st_gid); -+ (void)setregid((Gid_t)gid,statbuf.st_gid); - #else - #ifdef HAS_SETRESGID -- (void)setresgid((Gid_t)-1,statbuf.st_gid,(Gid_t)-1); -+ (void)setresgid((Gid_t)gid,statbuf.st_gid,(Gid_t)gid); - #else - setgid(statbuf.st_gid); - #endif -@@ -1624,10 +1624,10 @@ - (void)seteuid(statbuf.st_uid); /* all that for this */ - #else - #ifdef HAS_SETREUID -- (void)setreuid((Uid_t)-1,statbuf.st_uid); -+ (void)setreuid((Uid_t)uid,statbuf.st_uid); - #else - #ifdef HAS_SETRESUID -- (void)setresuid((Uid_t)-1,statbuf.st_uid,(Uid_t)-1); -+ (void)setresuid((Uid_t)uid,statbuf.st_uid,(Uid_t)uid); - #else - setuid(statbuf.st_uid); - #endif -@@ -1641,10 +1641,10 @@ - (void)seteuid((Uid_t)uid); - #else - #ifdef HAS_SETREUID -- (void)setreuid((Uid_t)-1,(Uid_t)uid); -+ (void)setreuid((Uid_t)uid,(Uid_t)uid); - #else - #ifdef HAS_SETRESUID -- (void)setresuid((Uid_t)-1,(Uid_t)uid,(Uid_t)-1); -+ (void)setresuid((Uid_t)uid,(Uid_t)uid,(Uid_t)uid); - #else - setuid((Uid_t)uid); - #endif +--- 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 } || |