1 files changed, 4 insertions, 3 deletions
diff --git a/doio.c b/doio.c
index 6bb3fa5979..5ad1e285f1 100644
--- a/doio.c
+++ b/doio.c
@@ -1073,9 +1073,10 @@ register SV **sp;
 
     if (tainting) {
 	while (++mark <= sp) {
-	    MAGIC *mg;
-	    if (SvMAGICAL(*mark) && (mg = mg_find(*mark, 't')) && mg->mg_len & 1)
-		tainted = TRUE;
+	    if (SvTAINTED(*mark)) {
+		TAINT;
+		break;
+	    }
 	}
 	mark = oldmark;
     }