Change 19896 by [EMAIL PROTECTED] on 2003/06/30 20:20:54
Integrate #19892, #19895 from perlio to compile and avoid
crashing on Win32.
Affected files ...
... //depot/perl/perl.c#498 integrate
Differences ...
==== //depot/perl/perl.c#498 (text) ====
Index: perl/perl.c
--- perl/perl.c#497~19890~ Mon Jun 30 01:41:51 2003
+++ perl/perl.c Mon Jun 30 13:20:54 2003
@@ -3405,6 +3405,9 @@
bool
Perl_doing_taint(int argc, char *argv[], char *envp[])
{
+#ifdef WIN32
+ /* Doh - what is a uid anyway? */
+#else
int uid = PerlProc_getuid();
int euid = PerlProc_geteuid();
int gid = PerlProc_getgid();
@@ -3416,6 +3419,7 @@
#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. */
End of Patch.
