Add dTHR so that it compiles miniperl in threaded mode

p4raw-id: //depot/perl@1667

1 files changed, 2 insertions, 1 deletions

diff --git a/mg.c b/mg.c
index 3efa41764b..45ec354c46 100644
--- a/mg.c
+++ b/mg.c
@@ -1149,6 +1149,7 @@ magic_setpos(SV *sv, MAGIC *mg)
     SSize_t pos;
     STRLEN len;
     STRLEN ulen;
+    dTHR;
 
     mg = 0;
     
@@ -1166,7 +1167,7 @@ magic_setpos(SV *sv, MAGIC *mg)
     }
     len = SvPOK(lsv) ? SvCUR(lsv) : sv_len(lsv);
 
-    WITH_THR(pos = SvIV(sv) - PL_curcop->cop_arybase);
+    pos = SvIV(sv) - PL_curcop->cop_arybase;
 
     if (IN_UTF8) {
 	ulen = sv_len_utf8(lsv);