From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 30 Jun 2003 14:24:57 +0000 (+0000)
Subject: Win32 hack for doing_taint()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=23340c0f002bdb71a989789b894e159f81453bff;p=p5sagit%2Fp5-mst-13.2.git

Win32 hack for doing_taint()

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

diff --git a/perl.c b/perl.c
index 9e8d5ea..6e56566 100644
--- a/perl.c
+++ b/perl.c
@@ -3405,7 +3405,9 @@ S_init_ids(pTHX)
 bool
 Perl_doing_taint(int argc, char *argv[], char *envp[])
 {
-    dTHX;
+#ifdef WIN32
+ /* Doh - what is a uid anyway? */
+#else
     int uid  = PerlProc_getuid();
     int euid = PerlProc_geteuid();
     int gid  = PerlProc_getgid();
@@ -3417,6 +3419,7 @@ Perl_doing_taint(int argc, char *argv[], char *envp[])
 #endif
     if (uid && (euid != uid || egid != gid))
 	return 1;
+#endif /* Win32 */
     /* This is a really primitive check; environment gets ignored only
      * if -T are the first chars together; otherwise one gets
      *  "Too late" message. */