Add a new macro SvVSTRING_mg that returns vstring magic, if any.

SvVOK used to do that, in stealth mode, but now it returns a
boolean like it used to. Patch suggested by John Peacock.

p4raw-id: //depot/perl@28218

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 4c186ec3c4..c9a44027e8 100644
--- a/sv.c
+++ b/sv.c
@@ -3676,7 +3676,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
 	SvFLAGS(dstr) |= sflags & (SVf_IOK|SVp_IOK|SVf_NOK|SVp_NOK|SVf_UTF8
 				   |SVf_AMAGIC);
 	{
-	    const MAGIC * const smg = SvVOK(sstr);
+	    const MAGIC * const smg = SvVSTRING_mg(sstr);
 	    if (smg) {
 		sv_magic(dstr, NULL, PERL_MAGIC_vstring,
 			 smg->mg_ptr, smg->mg_len);