This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Compile under threads and MacOSX. For some reason newSVpvf
[perl5.git] / universal.c
index a198fe6..f7b8691 100644 (file)
@@ -361,7 +361,7 @@ XS(XS_version_new)
        if (items == 3 )
        {
            char *vs = savepvn(SvPVX(ST(2)),SvCUR(ST(2)));
-           version = newSVpvf("v%s",vs);
+           version = Perl_newSVpvf(aTHX_ "v%s",vs);
        }
 
        PUSHs(new_version(version));