diff options
Diffstat (limited to 'lang/perl5.12/files/patch-ad')
| -rw-r--r-- | lang/perl5.12/files/patch-ad | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/lang/perl5.12/files/patch-ad b/lang/perl5.12/files/patch-ad index e6863c22280f..47f99960867e 100644 --- a/lang/perl5.12/files/patch-ad +++ b/lang/perl5.12/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); |