Change 12078 by jhi@alpha on 2001/09/18 22:54:21
Subject: [PATCH bleadperl] added tainting for getcwd for Win32
From: Nikola Knezevic <[EMAIL PROTECTED]>
Date: Tue, 18 Sep 2001 18:06:44 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/win32/win32.c#168 edit
Differences ...
==== //depot/perl/win32/win32.c#168 (text) ====
Index: perl/win32/win32.c
--- perl/win32/win32.c.~1~ Tue Sep 18 17:00:06 2001
+++ perl/win32/win32.c Tue Sep 18 17:00:06 2001
@@ -3612,6 +3612,10 @@
sv_setpv(sv, ptr);
PerlEnv_free_childdir(ptr);
+#ifndef INCOMPLETE_TAINTS
+ SvTAINTED_on(sv);
+#endif
+
EXTEND(SP,1);
SvPOK_on(sv);
ST(0) = sv;
End of Patch.
