Win32 hack for doing_taint()

p4raw-id: //depot/perlio@19895

diff --git a/perl.c b/perl.c
index 9e8d5ea..6e56566 100644 (file)
--- 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. */