diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-17 21:01:54 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-17 21:01:54 +0000 |
| commit | 3c21775ba6a6c27698c22f21649e7fef0bb0573f (patch) | |
| tree | c8396f27aeae1550aa89148a45550d1cc167ab59 /util.c | |
| parent | b0a11fe104a0ad4cbfcb5d90e8c0fbdfd46e46ac (diff) | |
| download | perl-3c21775ba6a6c27698c22f21649e7fef0bb0573f.tar.gz | |
Oops, missed a SvVOK.
p4raw-id: //depot/perl@28219
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |