From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Sun, 13 Apr 2008 10:28:31 +0000 (+0000)
Subject: Add two missing dVAR's.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a2e578dad2f237dd09854deb3a557d2eeeb56a83;p=p5sagit%2Fp5-mst-13.2.git

Add two missing dVAR's.

p4raw-id: //depot/perl@33671
---

diff --git a/perl.c b/perl.c
index 9813d6d..d7a07eb 100644
--- a/perl.c
+++ b/perl.c
@@ -4245,6 +4245,8 @@ S_validate_suid(pTHX_ PerlIO *rsfp)
 
     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)
 	    ||
diff --git a/perlio.c b/perlio.c
index 4efc88d..b935ca6 100644
--- a/perlio.c
+++ b/perlio.c
@@ -3131,6 +3131,9 @@ PerlIOStdio_close(pTHX_ PerlIO *f)
 	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()