From 9d40e17d44e193330835b996e62e268e9aa05d1b Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 30 Jun 2003 09:42:22 +0000
Subject: "Missing" dTHX for Win32's re-direction of getuid etc.

p4raw-id: //depot/perlio@19892
---
 perl.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl.c')

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();
-- 
cgit v1.2.1