Change 33671 by [EMAIL PROTECTED] on 2008/04/13 10:28:31
Add two missing dVAR's.
Affected files ...
... //depot/perl/perl.c#867 edit
... //depot/perl/perlio.c#386 edit
Differences ...
==== //depot/perl/perl.c#867 (text) ====
Index: perl/perl.c
--- perl/perl.c#866~33639~ 2008-04-03 08:41:26.000000000 -0700
+++ perl/perl.c 2008-04-13 03:28:31.000000000 -0700
@@ -4245,6 +4245,8 @@
if (PL_euid != PL_uid || PL_egid != PL_gid) { /* (suidperl doesn't
exist, in fact) */
# ifndef SETUID_SCRIPTS_ARE_SECURE_NOW
+ dVAR;
+
PerlLIO_fstat(PerlIO_fileno(rsfp),&PL_statbuf); /* may be either
wrapped or real suid */
if ((PL_euid != PL_uid && PL_euid == PL_statbuf.st_uid &&
PL_statbuf.st_mode & S_ISUID)
||
==== //depot/perl/perlio.c#386 (text) ====
Index: perl/perlio.c
--- perl/perlio.c#385~33504~ 2008-03-13 06:01:44.000000000 -0700
+++ perl/perlio.c 2008-04-13 03:28:31.000000000 -0700
@@ -3131,6 +3131,9 @@
IV result = 0;
int saveerr = 0;
int dupfd = -1;
+#ifdef USE_ITHREADS
+ dVAR;
+#endif
#ifdef SOCKS5_VERSION_NAME
/* Socks lib overrides close() but stdio isn't linked to
that library (though we are) - so we must call close()
End of Patch.
