X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_sys.c;h=9fee8c90bd518d5e0fc5defe850adaad31efac85;hb=dfcfdb64cf0cdaf3745a1082d9b4a94480414c62;hp=a2d57219f8b636b4f34ebb4d7bfce9456f0ab98b;hpb=52a55424e4624fc79eb8894fb91c5e2f4a9018ab;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_sys.c b/pp_sys.c
index a2d5721..9fee8c9 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3412,6 +3412,7 @@ PP(pp_chdir)
         }
         else {            
             PUSHi(0);
+            TAINT_PROPER("chdir");
             RETURN;
         }
     }
@@ -3513,9 +3514,8 @@ PP(pp_rename)
 
 PP(pp_link)
 {
-    dSP;
 #ifdef HAS_LINK
-    dTARGET;
+    dSP; dTARGET;
     STRLEN n_a;
     char *tmps2 = POPpx;
     char *tmps = SvPV(TOPs, n_a);