diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-03 14:46:19 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-03 14:46:19 +0200 |
| commit | f31522f37e820514ddb375096cb97bd860835f6c (patch) | |
| tree | 499765072e9b1560f3564f4cd6d6cdf78584e3b7 /pp_ctl.c | |
| parent | b017ed238008af06e2764e644dee23e72b0847ec (diff) | |
| download | perl-f31522f37e820514ddb375096cb97bd860835f6c.tar.gz | |
Remove warnings "Exiting given/when via next/last"
See bug [perl #65114] possible unnecesary warning / Exiting given via next.
Those warnings were not necessary.
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -1251,9 +1251,9 @@ PP(pp_flop) static const char * const context_name[] = { "pseudo-block", - "when", + NULL, /* CXt_WHEN never actually needs "block" */ NULL, /* CXt_BLOCK never actually needs "block" */ - "given", + NULL, /* CXt_GIVEN never actually needs "block" */ NULL, /* CXt_LOOP_FOR never actually needs "loop" */ NULL, /* CXt_LOOP_PLAIN never actually needs "loop" */ NULL, /* CXt_LOOP_LAZYSV never actually needs "loop" */ @@ -1280,8 +1280,6 @@ S_dopoptolabel(pTHX_ const char *label) case CXt_FORMAT: case CXt_EVAL: case CXt_NULL: - case CXt_GIVEN: - case CXt_WHEN: if (ckWARN(WARN_EXITING)) Perl_warner(aTHX_ packWARN(WARN_EXITING), "Exiting %s via %s", context_name[CxTYPE(cx)], OP_NAME(PL_op)); |