Update to Perl 5.005_01.

4 files changed, 31 insertions, 49 deletions

diff --git a/lang/perl5.14/files/patch-ab b/lang/perl5.14/files/patch-ab
index e713b0655e91..5945ef412853 100644
--- a/lang/perl5.14/files/patch-ab
+++ b/lang/perl5.14/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.14/files/patch-ac b/lang/perl5.14/files/patch-ac
index b97fb42c955b..76bdab280b5b 100644
--- a/lang/perl5.14/files/patch-ac
+++ b/lang/perl5.14/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.14/files/patch-ad b/lang/perl5.14/files/patch-ad
index e6863c22280f..47f99960867e 100644
--- a/lang/perl5.14/files/patch-ad
+++ b/lang/perl5.14/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.14/files/patch-ae b/lang/perl5.14/files/patch-ae
index 1c95a05a5dba..c701adb3382b 100644
--- a/lang/perl5.14/files/patch-ae
+++ b/lang/perl5.14/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) ;;