Improve the "Prototype mismatch" error message when

the redefined subroutine didn't have any prototype.

p4raw-id: //depot/perl@22474

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index ca24417157..b695a63553 100644
--- a/op.c
+++ b/op.c
@@ -3911,6 +3911,8 @@ Perl_cv_ckproto(pTHX_ CV *cv, GV *gv, char *p)
 	    Perl_sv_catpvf(aTHX_ msg, " sub %"SVf, name);
 	if (SvPOK(cv))
 	    Perl_sv_catpvf(aTHX_ msg, " (%"SVf")", (SV *)cv);
+	else
+	    Perl_sv_catpvf(aTHX_ msg, ": none");
 	sv_catpv(msg, " vs ");
 	if (p)
 	    Perl_sv_catpvf(aTHX_ msg, "(%s)", p);