From: Artur Bergman <sky@nanisky.com>
Date: Mon, 10 Feb 2003 18:11:35 +0000 (+0000)
Subject: Compile under threads and MacOSX. For some reason newSVpvf
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9be22fdc5e6401d34a392a30fcc1c5fb0eb6723f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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));