diff options
author | Zefram <zefram@fysh.org> | 2012-02-01 13:03:24 +0000 |
---|---|---|
committer | Zefram <zefram@fysh.org> | 2012-02-01 13:03:24 +0000 |
commit | cb19749284bf34360f80c77777fe490944d4e049 (patch) | |
tree | 303a92a0f42f980075c261b147374bb494629e84 | |
parent | 5f945c9e40a9ce7dfe0420d20a2c484c5927cd5e (diff) | |
download | perl-cb19749284bf34360f80c77777fe490944d4e049.tar.gz |
fix punctuation in a panic message
-rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |