From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 23 Nov 2006 19:29:57 +0000 (+0000)
Subject: Change 29364 forgot to turn the POK flag on.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fcddd32efab0f0f60189d0d1c0b1d6cb7d2d9d2a;p=p5sagit%2Fp5-mst-13.2.git

Change 29364 forgot to turn the POK flag on.

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

diff --git a/sv.c b/sv.c
index b29d2ec..c7de314 100644
--- a/sv.c
+++ b/sv.c
@@ -3489,6 +3489,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
             SvGROW(dstr, len + 1);
             Copy(ptr, SvPVX(dstr), len + 1, char);
             SvCUR_set(dstr, len);
+	    SvPOK_only(dstr);
 	} else {
 	    SvOK_off(dstr);
 	}