From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 17 May 2006 21:01:54 +0000 (+0000)
Subject: Oops, missed a SvVOK.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c21775ba6a6c27698c22f21649e7fef0bb0573f;p=p5sagit%2Fp5-mst-13.2.git

Oops, missed a SvVOK.

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

diff --git a/util.c b/util.c
index 3474660..fde0095 100644
--- a/util.c
+++ b/util.c
@@ -4253,7 +4253,7 @@ Perl_new_version(pTHX_ SV *ver)
     }
 #ifdef SvVOK
     {
-	const MAGIC* const mg = SvVOK(ver);
+	const MAGIC* const mg = SvVSTRING_mg(ver);
 	if ( mg ) { /* already a v-string */
 	    const STRLEN len = mg->mg_len;
 	    char * const version = savepvn( (const char*)mg->mg_ptr, len);