summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-01-14 09:28:14 +0000
committerNicholas Clark <nick@ccl4.org>2005-01-14 09:28:14 +0000
commit54667de8ae602ad3606b45ba6b72a2519d132842 (patch)
treee89648c029ddff62aacb1485f2e1989cbf1e8d71 /op.c
parente90aabebafdd77f6f0dc6cf0b24db209e9442e31 (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 38a10df86e..ab9f374e21 100644
--- a/op.c
+++ b/op.c
@@ -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);