Initial 3-way merge from (5.001m, thr1m, 5.003) plus fixups.

p4raw-id: //depot/thrperl@4

1 files changed, 1 insertions, 0 deletions

diff --git a/doop.c b/doop.c
index c906db70d1..5b76367305 100644
--- a/doop.c
+++ b/doop.c
@@ -31,6 +31,7 @@ do_trans(sv,arg)
 SV *sv;
 OP *arg;
 {
+    dTHR;
     register short *tbl;
     register U8 *s;
     register U8 *send;