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

p4raw-id: //depot/perl@28221

diff --git a/util.c b/util.c
index fde0095..d273ec4 100644 (file)
--- 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;
     }