Change 23623 by [EMAIL PROTECTED] on 2004/12/07 15:27:09
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.
Affected files ...
... //depot/perl/gv.c#211 edit
Differences ...
==== //depot/perl/gv.c#211 (text) ====
Index: perl/gv.c
--- perl/gv.c#210~23608~ Fri Dec 3 13:51:45 2004
+++ perl/gv.c Tue Dec 7 07:27:09 2004
@@ -1093,7 +1093,8 @@
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));
}
End of Patch.
