diff options
Diffstat (limited to 'lang/perl5.6/files')
| -rw-r--r-- | lang/perl5.6/files/patch-ab | 32 | ||||
| -rw-r--r-- | lang/perl5.6/files/patch-ac | 8 | ||||
| -rw-r--r-- | lang/perl5.6/files/patch-ad | 34 | ||||
| -rw-r--r-- | lang/perl5.6/files/patch-ae | 6 |
4 files changed, 31 insertions, 49 deletions
diff --git a/lang/perl5.6/files/patch-ab b/lang/perl5.6/files/patch-ab index e713b0655e91..5945ef412853 100644 --- a/lang/perl5.6/files/patch-ab +++ b/lang/perl5.6/files/patch-ab @@ -1,29 +1,11 @@ ---- 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 @@ +--- installperl.ORIG Thu Jul 30 15:58:50 1998 ++++ installperl Thu Jul 30 16:02:16 1998 +@@ -269,7 +269,7 @@ (-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 } || ++ 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] "))) diff --git a/lang/perl5.6/files/patch-ac b/lang/perl5.6/files/patch-ac index b97fb42c955b..76bdab280b5b 100644 --- a/lang/perl5.6/files/patch-ac +++ b/lang/perl5.6/files/patch-ac @@ -1,6 +1,6 @@ ---- hints/freebsd.sh.orig Wed Apr 23 16:01:37 1997 -+++ hints/freebsd.sh Tue Jun 3 14:29:50 1997 -@@ -63,6 +63,7 @@ +--- hints/freebsd.sh.ORIG Fri Jul 24 06:00:19 1998 ++++ hints/freebsd.sh Thu Jul 30 16:04:24 1998 +@@ -68,6 +68,7 @@ d_setreuid='define' d_setegid='undef' d_seteuid='undef' @@ -8,7 +8,7 @@ test -r ./broken-db.msg && . ./broken-db.msg ;; # -@@ -76,12 +77,18 @@ +@@ -81,12 +82,18 @@ d_setreuid='define' d_setegid='undef' d_seteuid='undef' diff --git a/lang/perl5.6/files/patch-ad b/lang/perl5.6/files/patch-ad index e6863c22280f..47f99960867e 100644 --- a/lang/perl5.6/files/patch-ad +++ b/lang/perl5.6/files/patch-ad @@ -1,6 +1,6 @@ ---- perl.h.ORIG Mon Apr 28 17:36:10 1997 -+++ perl.h Fri May 23 11:56:49 1997 -@@ -223,6 +223,15 @@ +--- perl.h.ORIG Thu Jul 30 17:04:42 1998 ++++ perl.h Thu Jul 30 17:06:34 1998 +@@ -361,6 +361,15 @@ # include <sys/param.h> #endif @@ -16,26 +16,26 @@ /* Use all the "standard" definitions? */ #if defined(STANDARD_C) && defined(I_STDLIB) ---- perl5.004/perl.c.ORIG Fri May 16 00:14:03 1997 -+++ perl.c Fri May 23 11:56:49 1997 -@@ -1917,6 +1917,20 @@ +--- perl.c.ORIG Thu Jul 30 17:04:23 1998 ++++ perl.c Thu Jul 30 17:04:57 1998 +@@ -2124,6 +2124,20 @@ croak("Can't swap uid and euid"); /* really paranoid */ - if (Stat(SvPVX(GvSV(curcop->cop_filegv)),&tmpstatbuf) < 0) + if (PerlLIO_stat(SvPVX(GvSV(PL_curcop->cop_filegv)),&tmpstatbuf) < 0) croak("Permission denied"); /* testing full pathname here */ +#if (defined(BSD) && (BSD >= 199306)) +#ifdef IAMSUID -+ { -+ struct statfs stfs; ++ { ++ struct statfs stfs; + -+ if (fstatfs(fileno(rsfp),&stfs) < 0) -+ croak("Can't statfs filesystem of script \"%s\"",origfilename); ++ if (fstatfs(fileno(PL_rsfp),&stfs) < 0) ++ croak("Can't statfs filesystem of script \"%s\"",PL_origfilename); + -+ if (stfs.f_flags & MNT_NOSUID) -+ croak("Permission denied"); -+ } ++ if (stfs.f_flags & MNT_NOSUID) ++ croak("Permission denied"); ++ } +#endif /* IAMSUID */ +#endif /* BSD */ + - if (tmpstatbuf.st_dev != statbuf.st_dev || - tmpstatbuf.st_ino != statbuf.st_ino) { - (void)PerlIO_close(rsfp); + if (tmpstatbuf.st_dev != PL_statbuf.st_dev || + tmpstatbuf.st_ino != PL_statbuf.st_ino) { + (void)PerlIO_close(PL_rsfp); diff --git a/lang/perl5.6/files/patch-ae b/lang/perl5.6/files/patch-ae index 1c95a05a5dba..c701adb3382b 100644 --- a/lang/perl5.6/files/patch-ae +++ b/lang/perl5.6/files/patch-ae @@ -1,6 +1,6 @@ ---- makedepend.SH.orig Mon Sep 8 21:27:36 1997 -+++ makedepend.SH Mon Sep 8 21:29:04 1997 -@@ -60,6 +60,7 @@ +--- makedepend.SH.ORIG Fri Jul 24 06:00:58 1998 ++++ makedepend.SH Thu Jul 30 17:08:37 1998 +@@ -67,6 +67,7 @@ # to be out of date. I don't know if OS/2 has touch, so do this: case "$osname" in os2) ;; |