PPPort IVSIZE and SvPV_nolen

[p5sagit/p5-mst-13.2.git] / toke.c

diff --git a/toke.c b/toke.c
index 6bacaea..f0f15b9 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -7435,7 +7435,7 @@ Perl_scan_num(pTHX_ char *start, YYSTYPE* lvalp)
     case 'v':
 vstring:
                sv = NEWSV(92,5); /* preallocate storage space */
-               s = new_vstring(s,sv);
+               s = scan_vstring(s,sv);
        break;
     }