Eliminate most *printf-like calls that use a simple "%c" format,

replacing them with constructions that are more efficient because they
avoid the overhead of the *printf format parser and interpreter code.

p4raw-id: //depot/perl@32034

1 files changed, 4 insertions, 2 deletions

diff --git a/utf8.c b/utf8.c
index a761d82a4b..c665a417ce 100644
--- a/utf8.c
+++ b/utf8.c
@@ -2167,12 +2167,14 @@ Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim, UV f
 		 default: break;
 		 }
 		 if (ok) {
-		     Perl_sv_catpvf(aTHX_ dsv, "\\%c", ok);
+		     const unsigned char string = (unsigned char) ok;
+		     sv_catpvn(dsv, &string, 1);
 		 }
 	     }
 	     /* isPRINT() is the locale-blind version. */
 	     if (!ok && (flags & UNI_DISPLAY_ISPRINT) && isPRINT(c)) {
-	         Perl_sv_catpvf(aTHX_ dsv, "%c", c);
+		 const unsigned char string = (unsigned char) c;
+		 sv_catpvn(dsv, &string, 1);
 		 ok = 1;
 	     }
 	 }