diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2003-06-30 14:24:57 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2003-06-30 14:24:57 +0000 |
| commit | 23340c0f002bdb71a989789b894e159f81453bff (patch) | |
| tree | cd7e4cf6c72cc7e42c35eb9d1e617649b9d705fb /perl.c | |
| parent | 0384d2fffd4e9480d75fd2afa397b45866ec8ac8 (diff) | |
| download | perl-23340c0f002bdb71a989789b894e159f81453bff.tar.gz | |
Win32 hack for doing_taint()
p4raw-id: //depot/perlio@19895
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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. */ |