From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 23 Feb 2006 13:42:29 +0000 (+0000)
Subject: Recalculate dstr in Perl_sv_setsv_flags, as dstr may have been upgraded.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff920335f21fa0dd5c981a4f17dee5ac5ad41b6b;p=p5sagit%2Fp5-mst-13.2.git

Recalculate dstr in Perl_sv_setsv_flags, as dstr may have been upgraded.

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

diff --git a/sv.c b/sv.c
index ffe3772..5b63207 100644
--- a/sv.c
+++ b/sv.c
@@ -3456,6 +3456,8 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
 	    SvUPGRADE(dstr, (U32)stype);
     }
 
+    /* dstr may have been upgraded.  */
+    dtype = SvTYPE(dstr);
     sflags = SvFLAGS(sstr);
 
     if (sflags & SVf_ROK) {