From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 23 Nov 2006 16:59:04 +0000 (+0000)
Subject: Remove superfluous SvROK()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a9fe210d2c78e54078c497ec463a09bde9076605;p=p5sagit%2Fp5-mst-13.2.git

Remove superfluous SvROK()

p4raw-id: //depot/perl@29363
---

diff --git a/sv.c b/sv.c
index c509b03..bcfbe8f 100644
--- a/sv.c
+++ b/sv.c
@@ -3481,8 +3481,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
     sflags = SvFLAGS(sstr);
 
     if (sflags & SVf_ROK) {
-	if (dtype == SVt_PVGV &&
-	    SvROK(sstr) && SvTYPE(SvRV(sstr)) == SVt_PVGV) {
+	if (dtype == SVt_PVGV && SvTYPE(SvRV(sstr)) == SVt_PVGV) {
 	    sstr = SvRV(sstr);
 	    if (sstr == dstr) {
 		if (GvIMPORTED(dstr) != GVf_IMPORTED