From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 25 Aug 2005 08:45:04 +0000 (+0000)
Subject: Fix miniperl build with threaded perl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=261fcdab08d4144aee77d6e62cd6bdfc3c1a418e;p=p5sagit%2Fp5-mst-13.2.git

Fix miniperl build with threaded perl

p4raw-id: //depot/perl@25326
---

diff --git a/util.c b/util.c
index f23e9cb..8dd0784 100644
--- a/util.c
+++ b/util.c
@@ -4227,17 +4227,17 @@ Perl_vnumify(pTHX_ SV *vs)
     }
 
     digit = SvIV(*av_fetch(av, 0, 0));
-    sv_setpvf(sv, "%d.", (int)PERL_ABS(digit));
+    Perl_sv_setpvf(aTHX_ sv, "%d.", (int)PERL_ABS(digit));
     for ( i = 1 ; i < len ; i++ )
     {
 	digit = SvIV(*av_fetch(av, i, 0));
 	if ( width < 3 ) {
 	    const int denom = (int)pow(10,(3-width));
 	    const div_t term = div((int)PERL_ABS(digit),denom);
-	    sv_catpvf(sv, "%0*d_%d", width, term.quot, term.rem);
+	    Perl_sv_catpvf(aTHX_ sv, "%0*d_%d", width, term.quot, term.rem);
 	}
 	else {
-	    sv_catpvf(sv, "%0*d", width, (int)digit);
+	    Perl_sv_catpvf(aTHX_ sv, "%0*d", width, (int)digit);
 	}
     }
 
@@ -4246,7 +4246,7 @@ Perl_vnumify(pTHX_ SV *vs)
 	digit = SvIV(*av_fetch(av, len, 0));
 	if ( alpha && width == 3 ) /* alpha version */
 	    sv_catpvn(sv,"_",1);
-	sv_catpvf(sv, "%0*d", width, (int)digit);
+	Perl_sv_catpvf(aTHX_ sv, "%0*d", width, (int)digit);
     }
     else /* len == 0 */
     {
@@ -4293,10 +4293,10 @@ Perl_vnormal(pTHX_ SV *vs)
 	return sv;
     }
     digit = SvIV(*av_fetch(av, 0, 0));
-    sv_setpvf(sv, "v%"IVdf, (IV)digit);
+    Perl_sv_setpvf(aTHX_ sv, "v%"IVdf, (IV)digit);
     for ( i = 1 ; i <= len-1 ; i++ ) {
 	digit = SvIV(*av_fetch(av, i, 0));
-	sv_catpvf(sv, ".%"IVdf, (IV)digit);
+	Perl_sv_catpvf(aTHX_ sv, ".%"IVdf, (IV)digit);
     }
 
     if ( len > 0 )
@@ -4304,9 +4304,9 @@ Perl_vnormal(pTHX_ SV *vs)
 	/* handle last digit specially */
 	digit = SvIV(*av_fetch(av, len, 0));
 	if ( alpha )
-	    sv_catpvf(sv, "_%"IVdf, (IV)digit);
+	    Perl_sv_catpvf(aTHX_ sv, "_%"IVdf, (IV)digit);
 	else
-	    sv_catpvf(sv, ".%"IVdf, (IV)digit);
+	    Perl_sv_catpvf(aTHX_ sv, ".%"IVdf, (IV)digit);
     }
 
     if ( len <= 2 ) { /* short version, must be at least three */
@@ -4341,9 +4341,9 @@ Perl_vstringify(pTHX_ SV *vs)
 	qv = 1;
     
     if ( qv )
-	return vnormal(vs);
+	return Perl_vnormal(aTHX_ vs);
     else
-	return vnumify(vs);
+	return Perl_vnumify(aTHX_ vs);
 }
 
 /*