diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-01-14 09:28:14 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-01-14 09:28:14 +0000 |
| commit | 54667de8ae602ad3606b45ba6b72a2519d132842 (patch) | |
| tree | e89648c029ddff62aacb1485f2e1989cbf1e8d71 /toke.c | |
| parent | e90aabebafdd77f6f0dc6cf0b24db209e9442e31 (diff) | |
| download | perl-54667de8ae602ad3606b45ba6b72a2519d132842.tar.gz | |
sv_catpvf holds no advantage over sv_catpv when the "pattern" isn't.
p4raw-id: //depot/perl@23798
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -285,11 +285,11 @@ S_tokereport(pTHX_ char* s, I32 rv) } } if (name) - Perl_sv_catpvf(aTHX_ report, "%s", name); + Perl_sv_catpv(aTHX_ report, name); else if ((char)rv > ' ' && (char)rv < '~') Perl_sv_catpvf(aTHX_ report, "'%c'", (char)rv); else if (!rv) - Perl_sv_catpvf(aTHX_ report, "EOF"); + Perl_sv_catpv(aTHX_ report, "EOF"); else Perl_sv_catpvf(aTHX_ report, "?? %"IVdf, (IV)rv); switch (type) { |