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 /op.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 'op.c')
-rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4045,7 +4045,7 @@ Perl_cv_ckproto(pTHX_ CV *cv, GV *gv, char *p) if (SvPOK(cv)) Perl_sv_catpvf(aTHX_ msg, " (%"SVf")", (SV *)cv); else - Perl_sv_catpvf(aTHX_ msg, ": none"); + Perl_sv_catpv(aTHX_ msg, ": none"); sv_catpv(msg, " vs "); if (p) Perl_sv_catpvf(aTHX_ msg, "(%s)", p); |