Compile under threads and MacOSX. For some reason newSVpvf

was not exapnded.

p4raw-id: //depot/perl@18686

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)));
-           version = newSVpvf("v%s",vs);
+           version = Perl_newSVpvf(aTHX_ "v%s",vs);
        }
 
        PUSHs(new_version(version));