Remove redundant dTHR

	Message-Id: <Pine.SUN.3.96.980730101627.17514B-100000@newton.phys>

p4raw-id: //depot/maint-5.005/perl@1689

diff --git a/mg.c b/mg.c
index 75c14d0..35400e7 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -520,7 +520,6 @@ magic_get(SV *sv, MAGIC *mg)
        break;
     case '?':
        {
-           dTHR;
            sv_setiv(sv, (IV)STATUS_CURRENT);
 #ifdef COMPLEX_STATUS
            LvTARGOFF(sv) = PL_statusvalue;

diff --git a/sv.c b/sv.c
index 72007b1..d669ee7 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -2097,7 +2097,6 @@ sv_setsv(SV *dstr, register SV *sstr)
     if (sflags & SVf_ROK) {
        if (dtype >= SVt_PV) {
            if (dtype == SVt_PVGV) {
-               dTHR;
                SV *sref = SvREFCNT_inc(SvRV(sstr));
                SV *dref = 0;
                int intro = GvINTRO(dstr);