diff options
| -rw-r--r-- | toke.c | 3 | ||||
| -rw-r--r-- | universal.c | 3 |
2 files changed, 6 insertions, 0 deletions
@@ -6089,6 +6089,7 @@ Perl_yylex(pTHX) TOKEN(0); s++; if (PL_lex_brackets <= 0) + /* diag_listed_as: Unmatched right %s bracket */ yyerror("Unmatched right square bracket"); else --PL_lex_brackets; @@ -6267,6 +6268,7 @@ Perl_yylex(pTHX) rightbracket: s++; if (PL_lex_brackets <= 0) + /* diag_listed_as: Unmatched right %s bracket */ yyerror("Unmatched right curly bracket"); else PL_expect = (expectation)PL_lex_brackstack[--PL_lex_brackets]; @@ -9666,6 +9668,7 @@ S_pmflag(pTHX_ const char* const valid_flags, U32 * pmfl, char** s, char* charse yyerror(Perl_form(aTHX_ "Regexp modifiers \"/%c\" and \"/%c\" are mutually exclusive", *charset, c)); } else if (c == 'a') { + /* diag_listed_as: Regexp modifier "/%c" may appear a maximum of twice */ yyerror("Regexp modifier \"/a\" may appear a maximum of twice"); } else { diff --git a/universal.c b/universal.c index 85b91d0295..969acbd03a 100644 --- a/universal.c +++ b/universal.c @@ -312,15 +312,18 @@ Perl_croak_xs_usage(const CV *const cv, const char *const params) const HV *const stash = GvSTASH(gv); if (HvNAME_get(stash)) + /* diag_listed_as: SKIPME */ Perl_croak_nocontext("Usage: %"HEKf"::%"HEKf"(%s)", HEKfARG(HvNAME_HEK(stash)), HEKfARG(GvNAME_HEK(gv)), params); else + /* diag_listed_as: SKIPME */ Perl_croak_nocontext("Usage: %"HEKf"(%s)", HEKfARG(GvNAME_HEK(gv)), params); } else { /* Pants. I don't think that it should be possible to get here. */ + /* diag_listed_as: SKIPME */ Perl_croak_nocontext("Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params); } } |