From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 30 Jun 2003 09:42:22 +0000 (+0000)
Subject: "Missing" dTHX for Win32's re-direction of getuid etc.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d40e17d44e193330835b996e62e268e9aa05d1b;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perlio@19892
---

diff --git a/perl.c b/perl.c
index d0bf931..69d7084 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();