This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Oops, missed a SvVOK.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 17 May 2006 21:01:54 +0000 (21:01 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 17 May 2006 21:01:54 +0000 (21:01 +0000)
p4raw-id: //depot/perl@28219

util.c

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