[ PATCH 5.004 68 ] Text::ParseWords, ^W fixed, version 3.1

[p5sagit/p5-mst-13.2.git] / taint.c

diff --git a/taint.c b/taint.c
index af943e0..3ce0942 100644 (file)
--- a/taint.c
+++ b/taint.c
@@ -8,9 +8,7 @@
 #include "perl.h"
 
 void
-taint_proper(f, s)
-const char *f;
-char *s;
+taint_proper(const char *f, char *s)
 {
     dTHR;      /* just for taint */
     char *ug;
@@ -33,7 +31,7 @@ char *s;
 }
 
 void
-taint_env()
+taint_env(void)
 {
     SV** svp;
     MAGIC* mg;
@@ -57,10 +55,12 @@ taint_env()
        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}");
        }