From 617e632eccd2fc9a2158b64c2153973730238df6 Mon Sep 17 00:00:00 2001 From: Nikola Knezevic Date: Tue, 18 Sep 2001 20:06:44 +0200 Subject: [PATCH] added tainting for getcwd for Win32 Message-ID: <11018348611.20010918180644@tesla.rcub.bg.ac.yu> p4raw-id: //depot/perl@12078 --- win32/win32.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/win32/win32.c b/win32/win32.c index 905a987..eacb248 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -3612,6 +3612,10 @@ XS(w32_GetCwd) sv_setpv(sv, ptr); PerlEnv_free_childdir(ptr); +#ifndef INCOMPLETE_TAINTS + SvTAINTED_on(sv); +#endif + EXTEND(SP,1); SvPOK_on(sv); ST(0) = sv; -- 2.7.4