From 3c21775ba6a6c27698c22f21649e7fef0bb0573f Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 17 May 2006 21:01:54 +0000
Subject: [PATCH] Oops, missed a SvVOK.

p4raw-id: //depot/perl@28219
---
 util.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
2.7.4