"Missing" dTHX for Win32's re-direction of getuid etc.

p4raw-id: //depot/perlio@19892

1 files changed, 1 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index d0bf93130d..69d7084096 100644
--- a/perl.c
+++ b/perl.c
@@ -3333,6 +3333,7 @@ S_init_ids(pTHX)
 bool
 Perl_doing_taint(int argc, char *argv[], char *envp[])
 {
+    dTHX;
     int uid  = PerlProc_getuid();
     int euid = PerlProc_geteuid();
     int gid  = PerlProc_getgid();