diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-27 14:52:21 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-28 22:58:52 -0800 |
| commit | dcbac5bbcda3f6b893eade5bc95878a443cbe563 (patch) | |
| tree | 8e69379c182533f93148eb4a6dc7ed69d197cdb1 /pp_ctl.c | |
| parent | 6ad282c70d80576d5d66b25af19780fde18afd42 (diff) | |
| download | perl-dcbac5bbcda3f6b893eade5bc95878a443cbe563.tar.gz | |
diag_listed_as galore
In two instances, I actually modified to code to avoid %s for a
constant string, as it should be faster that way.
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1394,6 +1394,7 @@ S_dopoptolabel(pTHX_ const char *label) case CXt_FORMAT: case CXt_EVAL: case CXt_NULL: + /* diag_listed_as: Exiting subroutine via %s */ Perl_ck_warner(aTHX_ packWARN(WARN_EXITING), "Exiting %s via %s", context_name[CxTYPE(cx)], OP_NAME(PL_op)); if (CxTYPE(cx) == CXt_NULL) @@ -1531,6 +1532,7 @@ S_dopoptoloop(pTHX_ I32 startingblock) case CXt_FORMAT: case CXt_EVAL: case CXt_NULL: + /* diag_listed_as: Exiting subroutine via %s */ Perl_ck_warner(aTHX_ packWARN(WARN_EXITING), "Exiting %s via %s", context_name[CxTYPE(cx)], OP_NAME(PL_op)); if ((CxTYPE(cx)) == CXt_NULL) |