From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Sun, 2 Dec 2001 02:41:25 +0000 (+0100)
Subject: chdir() with an empty tainted argument on Win32
X-Git-Tag: accepted/trunk/20130322.191538~29072
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b7ab37f8bff0781ac7e13d6f0ea336950697b9f0;p=platform%2Fupstream%2Fperl.git

chdir() with an empty tainted argument on Win32
Message-ID: <j8vi0uorud2fa9vp0q2dpmn7tpr5hqec1d@4ax.com>

p4raw-id: //depot/perl@13424
---

diff --git a/pp_sys.c b/pp_sys.c
index a2d5721..6c0085f 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3412,6 +3412,7 @@ PP(pp_chdir)
         }
         else {            
             PUSHi(0);
+            TAINT_PROPER("chdir");
             RETURN;
         }
     }