Compile under threads and MacOSX. For some reason newSVpvf

[perl5.git] / universal.c

diff --git a/universal.c b/universal.c
index a198fe6..f7b8691 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -361,7 +361,7 @@ XS(XS_version_new)
        if (items == 3 )
        {
            char *vs = savepvn(SvPVX(ST(2)),SvCUR(ST(2)));
        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));
        }
 
        PUSHs(new_version(version));