From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 17 May 2006 23:13:51 +0000 (+0000)
Subject: Another SvVOK(). I believe that this is the last.
X-Git-Tag: accepted/trunk/20130322.191538~17628
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=666cce2658c56eefabca0e55834cf49f983984a8;p=platform%2Fupstream%2Fperl.git

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
--- 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;
     }