Add two missing dVAR's.

p4raw-id: //depot/perl@33671

diff --git a/perl.c b/perl.c
index 9813d6d..d7a07eb 100644 (file)
--- 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 (file)
--- 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()