From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 17 Jan 1999 12:04:06 +0000 (+0000)
Subject: fix silent taint failures under -U
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=17406bd6f93ce68d32d15aac8a0764813616ecc2;p=p5sagit%2Fp5-mst-13.2.git

fix silent taint failures under -U

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

diff --git a/doio.c b/doio.c
index 48e6c62..1719bf1 100644
--- a/doio.c
+++ b/doio.c
@@ -1167,7 +1167,7 @@ apply(I32 type, register SV **mark, register SV **sp)
 
 #define APPLY_TAINT_PROPER() \
     STMT_START {							\
-	if (PL_tainting && PL_tainted) { goto taint_proper_label; }	\
+	if (PL_tainted) { TAINT_PROPER(what); }				\
     } STMT_END
 
     /* This is a first heuristic; it doesn't catch tainting magic. */
@@ -1354,10 +1354,6 @@ nothing in the core.
     }
     return tot;
 
-  taint_proper_label:
-    TAINT_PROPER(what);
-    return 0;	/* this should never happen */
-
 #undef APPLY_TAINT_PROPER
 }