diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-10-18 19:11:55 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-10-18 19:11:55 +0000 |
| commit | 00e0e810c1b6ec448029dccbfb10081759cf8705 (patch) | |
| tree | 0131eca81ee65ad5c912770b24fbcf9dcd826c5e /dump.c | |
| parent | 8c28b960db3547273cd8c89c0eaafc8e99cf70c1 (diff) | |
| download | perl-00e0e810c1b6ec448029dccbfb10081759cf8705.tar.gz | |
Using explicit printf-like APIs with a format of "%s" isn't the world's
most efficient idea.
p4raw-id: //depot/perl@29042
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -280,12 +280,12 @@ Perl_pv_pretty( pTHX_ SV *dsv, char const * const str, const STRLEN count, sv_setpvn(dsv, "", 0); if ( start_color != NULL ) - Perl_sv_catpvf( aTHX_ dsv, "%s", start_color); + Perl_sv_catpv( aTHX_ dsv, start_color); pv_escape( dsv, str, count, max, &escaped, flags | PERL_PV_ESCAPE_NOCLEAR ); if ( end_color != NULL ) - Perl_sv_catpvf( aTHX_ dsv, "%s", end_color); + Perl_sv_catpv( aTHX_ dsv, end_color); if ( dq == '"' ) sv_catpvn( dsv, "\"", 1 ); |