diff options
| author | James Mastros <theorb@desert-island.me.uk> | 2009-06-06 20:46:21 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-06-27 16:41:00 +0200 |
| commit | fe13d51d6409065a0214793b416a2eb3fe209949 (patch) | |
| tree | c03b23501d91904230b9c1f81bbd638271d46325 /op.c | |
| parent | 0e637710e635c1f42e13242e1ea416e9304090f6 (diff) | |
| download | perl-fe13d51d6409065a0214793b416a2eb3fe209949.tar.gz | |
Add test to make sure everything that outputs an exception or warning has a matching entry in perldiag (and fix it so that more of the existing ones do).
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -3857,7 +3857,7 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *idop, OP *arg) SV *meth; if (version->op_type != OP_CONST || !SvNIOKp(vesv)) - Perl_croak(aTHX_ "Version number must be constant number"); + Perl_croak(aTHX_ "Version number must be a constant number"); /* Make copy of idop so we don't free it twice */ pack = newSVOP(OP_CONST, 0, newSVsv(((SVOP*)idop)->op_sv)); @@ -8961,6 +8961,7 @@ const_sv_xsub(pTHX_ CV* cv) if (items != 0) { NOOP; #if 0 + /* diag_listed_as: SKIPME */ Perl_croak(aTHX_ "usage: %s::%s()", HvNAME_get(GvSTASH(CvGV(cv))), GvNAME(CvGV(cv))); #endif |