Add dTHR so that it compiles miniperl in threaded mode

p4raw-id: //depot/perl@1667

1 files changed, 1 insertions, 0 deletions

diff --git a/doop.c b/doop.c
index 9dc9b047b4..2685a0bdeb 100644
--- a/doop.c
+++ b/doop.c
@@ -463,6 +463,7 @@ do_chop(register SV *astr, register SV *sv)
 {
     STRLEN len;
     char *s;
+    dTHR;
     
     if (SvTYPE(sv) == SVt_PVAV) {
 	register I32 i;