From: Andy Dougherty <doughera@lafayette.edu>
Date: Thu, 30 Jul 1998 10:22:36 +0000 (-0400)
Subject: Remove redundant dTHR
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=757bacf18b7701025bd8ce289fb64c6895ed088b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);