Properly handle tainted operations when -U is set.

p4raw-id: //depot/maint-5.004/perl@3234

1 files changed, 1 insertions, 5 deletions

diff --git a/doio.c b/doio.c
index 238f00ec20..2302b1e81b 100644
--- a/doio.c
+++ b/doio.c
@@ -1126,7 +1126,7 @@ register SV **sp;
     SV **oldmark = mark;
 
 #define APPLY_TAINT_PROPER() \
-    if (!(tainting && tainted)) {} else { goto taint_proper_label; }
+    if (!tainted) {} else { TAINT_PROPER(what); }
 
     /* This is a first heuristic; it doesn't catch tainting magic. */
     if (tainting) {
@@ -1306,10 +1306,6 @@ register SV **sp;
     }
     return tot;
 
-  taint_proper_label:
-    TAINT_PROPER(what);
-    return 0;	/* this should never happen */
-
 #undef APPLY_TAINT_PROPER
 }