Another SvVOK(). I believe that this is the last.

p4raw-id: //depot/perl@28221

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index fde009532d..d273ec43d1 100644
--- a/util.c
+++ b/util.c
@@ -4298,7 +4298,7 @@ Perl_upg_version(pTHX_ SV *ver)
 	version = savepvn(tbuf, len);
     }
 #ifdef SvVOK
-    else if ( (mg = SvVOK(ver)) ) { /* already a v-string */
+    else if ( (mg = SvVSTRING_mg(ver)) ) { /* already a v-string */
 	version = savepvn( (const char*)mg->mg_ptr,mg->mg_len );
 	qv = 1;
     }