From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 9 Jun 2005 15:32:09 +0000 (+0000)
Subject: Revert part of previous patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b66123c53820a22c6f99c01c120ac0461ea5a675;p=p5sagit%2Fp5-mst-13.2.git

Revert part of previous patch

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

diff --git a/util.c b/util.c
index 9468e6b..ae831e4 100644
--- a/util.c
+++ b/util.c
@@ -4049,7 +4049,7 @@ Perl_vnumify(pTHX_ SV *vs)
     len = av_len((AV *)vs);
     if ( len == -1 )
     {
-	Perl_sv_catpv(aTHX_ sv,"0");
+	sv_catpvn(sv,"0",1);
 	return sv;
     }
     digit = SvIVX(*av_fetch((AV *)vs, 0, 0));
@@ -4066,14 +4066,14 @@ Perl_vnumify(pTHX_ SV *vs)
 	if ( (int)PERL_ABS(digit) != 0 || len == 1 )
 	{
 	    if ( digit < 0 ) /* alpha version */
-		Perl_sv_catpv(aTHX_ sv,"_");
+		sv_catpvn(sv,"_",1);
 	    /* Don't display additional trailing zeros */
 	    Perl_sv_catpvf(aTHX_ sv,"%03d", (int)PERL_ABS(digit));
 	}
     }
     else /* len == 0 */
     {
-	 Perl_sv_catpv(aTHX_ sv,"000");
+	 sv_catpvn(sv,"000",3);
     }
     return sv;
 }
@@ -4102,7 +4102,7 @@ Perl_vnormal(pTHX_ SV *vs)
     len = av_len((AV *)vs);
     if ( len == -1 )
     {
-	Perl_sv_catpv(aTHX_ sv,"");
+	sv_catpvn(sv,"",0);
 	return sv;
     }
     digit = SvIVX(*av_fetch((AV *)vs, 0, 0));
@@ -4118,7 +4118,7 @@ Perl_vnormal(pTHX_ SV *vs)
     
     if ( len <= 2 ) { /* short version, must be at least three */
 	for ( len = 2 - len; len != 0; len-- )
-	    Perl_sv_catpv(aTHX_ sv,".0");
+	    sv_catpvn(sv,".0",2);
     }
 
     return sv;