From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 7 Dec 2004 15:27:09 +0000 (+0000)
Subject: Revert part of the change to gv_fullname4(), as the change seems to
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6a7a3232b24e0c60b7a4ad46995cb317ceb96144;p=p5sagit%2Fp5-mst-13.2.git

Revert part of the change to gv_fullname4(), as the change seems to
be fractionally slower. Re-investigation prompted by a comment from
Tim Bunce, who seems to be more on the ball than I am.

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

diff --git a/gv.c b/gv.c
index 7f630d9..937e0d6 100644
--- a/gv.c
+++ b/gv.c
@@ -1093,7 +1093,8 @@ Perl_gv_fullname4(pTHX_ SV *sv, GV *gv, const char *prefix, bool keepmain)
 	name = "__ANON__";
 	
     if (keepmain || strNE(name, "main")) {
-	Perl_sv_catpvf(aTHX_ sv,"%s::", name);
+	sv_catpv(sv,name);
+	sv_catpvn(sv,"::", 2);
     }
     sv_catpvn(sv,GvNAME(gv),GvNAMELEN(gv));
 }