summaryrefslogtreecommitdiff
path: root/lang/perl5.8/files
diff options
context:
space:
mode:
authorMark Murray <markm@FreeBSD.org>1998-08-06 10:43:22 +0000
committerMark Murray <markm@FreeBSD.org>1998-08-06 10:43:22 +0000
commit0d626d564a4b345ce22d143998b03a74f6f9b6b6 (patch)
tree797f351bd440e3d6f26b0d0a41b156c35018119e /lang/perl5.8/files
parentAdd checksum for 3.3.2-patch3 (diff)
Update to Perl 5.005_01.
Diffstat (limited to 'lang/perl5.8/files')
-rw-r--r--lang/perl5.8/files/patch-ab32
-rw-r--r--lang/perl5.8/files/patch-ac8
-rw-r--r--lang/perl5.8/files/patch-ad34
-rw-r--r--lang/perl5.8/files/patch-ae6
4 files changed, 31 insertions, 49 deletions
diff --git a/lang/perl5.8/files/patch-ab b/lang/perl5.8/files/patch-ab
index e713b0655e91..5945ef412853 100644
--- a/lang/perl5.8/files/patch-ab
+++ b/lang/perl5.8/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.8/files/patch-ac b/lang/perl5.8/files/patch-ac
index b97fb42c955b..76bdab280b5b 100644
--- a/lang/perl5.8/files/patch-ac
+++ b/lang/perl5.8/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.8/files/patch-ad b/lang/perl5.8/files/patch-ad
index e6863c22280f..47f99960867e 100644
--- a/lang/perl5.8/files/patch-ad
+++ b/lang/perl5.8/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.8/files/patch-ae b/lang/perl5.8/files/patch-ae
index 1c95a05a5dba..c701adb3382b 100644
--- a/lang/perl5.8/files/patch-ae
+++ b/lang/perl5.8/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) ;;