1 files changed, 1 insertions, 0 deletions
diff --git a/doop.c b/doop.c
index 8502d1a9e2..5390331fee 100644
--- a/doop.c
+++ b/doop.c
@@ -594,6 +594,7 @@ do_trans_UU_complex(SV *sv)
 I32
 do_trans(SV *sv)
 {
+    dTHR;
     STRLEN len;
 
     if (SvREADONLY(sv) && !(PL_op->op_private & OPpTRANS_IDENTICAL))