X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=taint.c;h=e163eb4135514914fb100482a78f51e17b8ec6b6;hb=a9ef352ac26829339bf17aa20568b3bde2fb1dd0;hp=cdf9a7e535f60a51934144119b5ba95bb3fb0e50;hpb=142393a6492fce5c4bb6f282b1ba1d8da7c0064b;p=p5sagit%2Fp5-mst-13.2.git diff --git a/taint.c b/taint.c index cdf9a7e..e163eb4 100644 --- a/taint.c +++ b/taint.c @@ -50,6 +50,7 @@ taint_env(void) return; #ifdef VMS + { int i = 0; char name[10 + TYPE_DIGITS(int)] = "DCL$PATH"; @@ -71,6 +72,7 @@ taint_env(void) } i++; } + } #endif /* VMS */ svp = hv_fetch(GvHVn(PL_envgv),"PATH",4,FALSE);