Add two missing dVAR's.

p4raw-id: //depot/perl@33671

2 files changed, 5 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 9813d6dcb3..d7a07eb959 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 4efc88d668..b935ca6b26 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()