From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 3 May 2009 12:46:19 +0000 (+0200)
Subject: Remove warnings "Exiting given/when via next/last"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f31522f37e820514ddb375096cb97bd860835f6c;p=p5sagit%2Fp5-mst-13.2.git

Remove warnings "Exiting given/when via next/last"

See bug [perl #65114] possible unnecesary warning / Exiting given via next.
Those warnings were not necessary.
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 8305d82..d85ec11 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -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));