From 757bacf18b7701025bd8ce289fb64c6895ed088b Mon Sep 17 00:00:00 2001
From: Andy Dougherty <doughera@lafayette.edu>
Date: Thu, 30 Jul 1998 06:22:36 -0400
Subject: [PATCH] Remove redundant dTHR

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

p4raw-id: //depot/maint-5.005/perl@1689
---
 mg.c | 1 -
 sv.c | 1 -
 2 files changed, 2 deletions(-)

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