X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=taint.c;h=3ce09423d8da2b2822fff76f85f32845d0223eab;hb=01ca579eedb21d1163dfcced9189fc4352bc9dcd;hp=2dc43a4ab4f2bab0c0dcabf11baccfb0e16fc621;hpb=af702f0e61214b54e323d12ffeaff4e64bee707c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/taint.c b/taint.c
index 2dc43a4..3ce0942 100644
--- a/taint.c
+++ b/taint.c
@@ -55,10 +55,12 @@ taint_env(void)
 	if (!svp || *svp == &sv_undef)
 	    break;
 	if (SvTAINTED(*svp)) {
+	    dTHR;
 	    TAINT;
 	    taint_proper("Insecure %s%s", "$ENV{DCL$PATH}");
 	}
 	if ((mg = mg_find(*svp, 'e')) && MgTAINTEDDIR(mg)) {
+	    dTHR;
 	    TAINT;
 	    taint_proper("Insecure directory in %s%s", "$ENV{DCL$PATH}");
 	}