1 files changed, 0 insertions, 42 deletions
diff --git a/lang/perl5.12/files/patch-ae b/lang/perl5.12/files/patch-ae
deleted file mode 100644
index 01e5a89ca562..000000000000
--- a/lang/perl5.12/files/patch-ae
+++ /dev/null
@@ -1,42 +0,0 @@
---- perl.h.old	Tue May  6 12:22:21 1997
-+++ perl.h	Tue May  6 12:26:50 1997
-@@ -223,6 +223,15 @@
- #   include <sys/param.h>
- #endif
- 
-+/* needed for IAMSUID case for 4.4BSD systems 
-+ * XXX there should probably be a Configure variable
-+ */
-+
-+#ifdef I_SYS_PARAM
-+#if (defined (BSD) && (BSD >= 199306))
-+#   include <sys/mount.h>
-+#endif /* !BSD */
-+#endif /* !I_SYS_PARAM */
- 
- /* Use all the "standard" definitions? */
- #if defined(STANDARD_C) && defined(I_STDLIB)
---- perl.c.old	Sun Apr 27 15:04:13 1997
-+++ perl.c	Tue May  6 12:27:40 1997
-@@ -1912,6 +1912,20 @@
- 		croak("Can't swap uid and euid");	/* really paranoid */
- 	    if (Stat(SvPVX(GvSV(curcop->cop_filegv)),&tmpstatbuf) < 0)
- 		croak("Permission denied");	/* testing full pathname here */
-+#if (defined(BSD) && (BSD >= 199306))
-+#ifdef IAMSUID
-+        {
-+            struct statfs stfs;
-+
-+            if (fstatfs(fileno(rsfp),&stfs) < 0)
-+                croak("Can't statfs filesystem of script \"%s\"",origfilename);
-+
-+            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);
-