This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix punctuation in a panic message
authorZefram <zefram@fysh.org>
Wed, 1 Feb 2012 13:03:24 +0000 (13:03 +0000)
committerZefram <zefram@fysh.org>
Wed, 1 Feb 2012 13:03:24 +0000 (13:03 +0000)
op.c

diff --git a/op.c b/op.c
index 09f45d0..a9296f3 100644 (file)
--- a/op.c
+++ b/op.c
@@ -9113,7 +9113,7 @@ Perl_ck_entersub_args_proto(pTHX_ OP *entersubop, GV *namegv, SV *protosv)
     const char *e = NULL;
     PERL_ARGS_ASSERT_CK_ENTERSUB_ARGS_PROTO;
     if (SvTYPE(protosv) == SVt_PVCV ? !SvPOK(protosv) : !SvOK(protosv))
-       Perl_croak(aTHX_ "panic: ck_entersub_args_proto CV with no proto,"
+       Perl_croak(aTHX_ "panic: ck_entersub_args_proto CV with no proto, "
                   "flags=%lx", (unsigned long) SvFLAGS(protosv));
     if (SvTYPE(protosv) == SVt_PVCV)
         proto = CvPROTO(protosv), proto_len = CvPROTOLEN(protosv);