fix line number of try block

Each 'try' block has a nextstate COP prepended to it. Currently this cop
has the line number of the line following the end of the try block. Fix
it so that it has the line number of the line containing the 'try'
keyword instead.

This is achieved using the same technique as other block-introducing
keywords like 'while': set the .ival of the 'try' token returned by the
lexer to the current line number, then set PL_parser->copline back to that
value after parsing the block but before creating the COP.

This issue was showing up as a failure in

    cd t; ./TEST -deparse op/try.t

since that test script is line-number sensitive.

1 files changed, 488 insertions, 486 deletions

diff --git a/perly.act b/perly.act
index 6cd3943690..38138617f8 100644
--- a/perly.act
+++ b/perly.act
@@ -6,7 +6,7 @@
 
 case 2:
 #line 139 "perly.y"
-    {
+                        {
 			  parser->expect = XSTATE;
                           (yyval.ival) = 0;
 			}
@@ -15,7 +15,7 @@ case 2:
 
   case 3:
 #line 144 "perly.y"
-    {
+                        {
 			  newPROG(block_end((ps[-1].val.ival),(ps[0].val.opval)));
 			  PL_compiling.cop_seq = 0;
 			  (yyval.ival) = 0;
@@ -25,7 +25,7 @@ case 2:
 
   case 4:
 #line 150 "perly.y"
-    {
+                        {
 			  parser->expect = XTERM;
                           (yyval.ival) = 0;
 			}
@@ -34,7 +34,7 @@ case 2:
 
   case 5:
 #line 155 "perly.y"
-    {
+                        {
 			  PL_eval_root = (ps[0].val.opval);
 			  (yyval.ival) = 0;
 			}
@@ -43,7 +43,7 @@ case 2:
 
   case 6:
 #line 160 "perly.y"
-    {
+                        {
 			  parser->expect = XBLOCK;
                           (yyval.ival) = 0;
 			}
@@ -52,7 +52,7 @@ case 2:
 
   case 7:
 #line 165 "perly.y"
-    {
+                        {
 			  PL_pad_reset_pending = TRUE;
 			  PL_eval_root = (ps[0].val.opval);
 			  (yyval.ival) = 0;
@@ -64,7 +64,7 @@ case 2:
 
   case 8:
 #line 173 "perly.y"
-    {
+                        {
 			  parser->expect = XSTATE;
                           (yyval.ival) = 0;
 			}
@@ -73,7 +73,7 @@ case 2:
 
   case 9:
 #line 178 "perly.y"
-    {
+                        {
 			  PL_pad_reset_pending = TRUE;
 			  PL_eval_root = (ps[0].val.opval);
 			  (yyval.ival) = 0;
@@ -85,7 +85,7 @@ case 2:
 
   case 10:
 #line 186 "perly.y"
-    {
+                        {
 			  parser->expect = XSTATE;
                           (yyval.ival) = 0;
 			}
@@ -94,7 +94,7 @@ case 2:
 
   case 11:
 #line 191 "perly.y"
-    {
+                        {
 			  PL_pad_reset_pending = TRUE;
 			  PL_eval_root = (ps[0].val.opval);
 			  (yyval.ival) = 0;
@@ -106,7 +106,7 @@ case 2:
 
   case 12:
 #line 199 "perly.y"
-    {
+                        {
 			  parser->expect = XSTATE;
                           (yyval.ival) = 0;
 			}
@@ -115,7 +115,7 @@ case 2:
 
   case 13:
 #line 204 "perly.y"
-    {
+                        {
 			  PL_eval_root = (ps[0].val.opval);
 			  (yyval.ival) = 0;
 			}
@@ -124,7 +124,7 @@ case 2:
 
   case 14:
 #line 209 "perly.y"
-    {
+                        {
 			  parser->expect = XSTATE;
 			  (yyval.ival) = 0;
 			}
@@ -133,7 +133,7 @@ case 2:
 
   case 15:
 #line 214 "perly.y"
-    {
+                        {
 			  PL_eval_root = (ps[0].val.opval);
 			  (yyval.ival) = 0;
 			}
@@ -142,7 +142,7 @@ case 2:
 
   case 16:
 #line 222 "perly.y"
-    { if (parser->copline > (line_t)(ps[-3].val.ival))
+                        { if (parser->copline > (line_t)(ps[-3].val.ival))
 			      parser->copline = (line_t)(ps[-3].val.ival);
 			  (yyval.opval) = block_end((ps[-2].val.ival), (ps[-1].val.opval));
 			}
@@ -151,7 +151,7 @@ case 2:
 
   case 17:
 #line 230 "perly.y"
-    { if (parser->copline > (line_t)(ps[-6].val.ival))
+                        { if (parser->copline > (line_t)(ps[-6].val.ival))
 			      parser->copline = (line_t)(ps[-6].val.ival);
 			  (yyval.opval) = block_end((ps[-5].val.ival), (ps[-2].val.opval));
 			}
@@ -160,14 +160,14 @@ case 2:
 
   case 18:
 #line 237 "perly.y"
-    { (yyval.ival) = block_start(TRUE);
+                        { (yyval.ival) = block_start(TRUE);
 			  parser->parsed_sub = 0; }
 
     break;
 
   case 19:
 #line 242 "perly.y"
-    { if (parser->copline > (line_t)(ps[-3].val.ival))
+                        { if (parser->copline > (line_t)(ps[-3].val.ival))
 			      parser->copline = (line_t)(ps[-3].val.ival);
 			  (yyval.opval) = block_end((ps[-2].val.ival), (ps[-1].val.opval));
 			}
@@ -176,20 +176,20 @@ case 2:
 
   case 20:
 #line 249 "perly.y"
-    { (yyval.ival) = block_start(FALSE);
+                        { (yyval.ival) = block_start(FALSE);
 			  parser->parsed_sub = 0; }
 
     break;
 
   case 21:
 #line 255 "perly.y"
-    { (yyval.opval) = NULL; }
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 22:
 #line 257 "perly.y"
-    {   (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval));
+                        {   (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval));
 			    PL_pad_reset_pending = TRUE;
 			    if ((ps[-1].val.opval) && (ps[0].val.opval))
 				PL_hints |= HINT_BLOCK_SCOPE;
@@ -199,13 +199,13 @@ case 2:
 
   case 23:
 #line 266 "perly.y"
-    { (yyval.opval) = NULL; }
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 24:
 #line 268 "perly.y"
-    {   (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval));
+                        {   (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval));
 			    PL_pad_reset_pending = TRUE;
 			    if ((ps[-1].val.opval) && (ps[0].val.opval))
 				PL_hints |= HINT_BLOCK_SCOPE;
@@ -215,7 +215,7 @@ case 2:
 
   case 25:
 #line 277 "perly.y"
-    {
+                        {
 			  (yyval.opval) = (ps[0].val.opval) ? newSTATEOP(0, NULL, (ps[0].val.opval)) : NULL;
 			}
 
@@ -223,13 +223,13 @@ case 2:
 
   case 26:
 #line 281 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 27:
 #line 285 "perly.y"
-    {
+                        {
                           SV *label = cSVOPx_sv((ps[-1].val.opval));
 			  (yyval.opval) = newSTATEOP(SvFLAGS(label) & SVf_UTF8,
                                             savepv(SvPVX_const(label)), (ps[0].val.opval));
@@ -240,7 +240,7 @@ case 2:
 
   case 28:
 #line 292 "perly.y"
-    {
+                        {
                           SV *label = cSVOPx_sv((ps[-1].val.opval));
 			  (yyval.opval) = newSTATEOP(SvFLAGS(label) & SVf_UTF8,
                                             savepv(SvPVX_const(label)), (ps[0].val.opval));
@@ -251,13 +251,13 @@ case 2:
 
   case 29:
 #line 302 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 30:
 #line 304 "perly.y"
-    {
+                        {
 			  CV *fmtcv = PL_compcv;
 			  newFORM((ps[-2].val.ival), (ps[-1].val.opval), (ps[0].val.opval));
 			  (yyval.opval) = NULL;
@@ -271,7 +271,7 @@ case 2:
 
   case 31:
 #line 316 "perly.y"
-    {
+                        {
                           init_named_cv(PL_compcv, (ps[-1].val.opval));
 			  parser->in_my = 0;
 			  parser->in_my_stash = NULL;
@@ -281,7 +281,7 @@ case 2:
 
   case 32:
 #line 322 "perly.y"
-    {
+                        {
 			  SvREFCNT_inc_simple_void(PL_compcv);
 			  (ps[-5].val.opval)->op_type == OP_CONST
 			      ? newATTRSUB((ps[-4].val.ival), (ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), (ps[0].val.opval))
@@ -296,7 +296,7 @@ case 2:
 
   case 33:
 #line 337 "perly.y"
-    {
+                        {
                           init_named_cv(PL_compcv, (ps[-1].val.opval));
 			  parser->in_my = 0;
 			  parser->in_my_stash = NULL;
@@ -306,7 +306,7 @@ case 2:
 
   case 34:
 #line 343 "perly.y"
-    {
+                        {
 			  SvREFCNT_inc_simple_void(PL_compcv);
 			  (ps[-4].val.opval)->op_type == OP_CONST
 			      ? newATTRSUB((ps[-3].val.ival), (ps[-4].val.opval), NULL, (ps[-1].val.opval), (ps[0].val.opval))
@@ -321,7 +321,7 @@ case 2:
 
   case 35:
 #line 354 "perly.y"
-    {
+                        {
 			  package((ps[-1].val.opval));
 			  if ((ps[-2].val.opval))
 			      package_version((ps[-2].val.opval));
@@ -332,13 +332,13 @@ case 2:
 
   case 36:
 #line 361 "perly.y"
-    { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ }
+                        { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ }
 
     break;
 
   case 37:
 #line 363 "perly.y"
-    {
+                        {
 			  SvREFCNT_inc_simple_void(PL_compcv);
 			  utilize((ps[-6].val.ival), (ps[-5].val.ival), (ps[-3].val.opval), (ps[-2].val.opval), (ps[-1].val.opval));
 			  parser->parsed_sub = 1;
@@ -349,7 +349,7 @@ case 2:
 
   case 38:
 #line 370 "perly.y"
-    {
+                        {
 			  (yyval.opval) = block_end((ps[-4].val.ival),
 			      newCONDOP(0, (ps[-3].val.opval), op_scope((ps[-1].val.opval)), (ps[0].val.opval)));
 			  parser->copline = (line_t)(ps[-6].val.ival);
@@ -359,7 +359,7 @@ case 2:
 
   case 39:
 #line 376 "perly.y"
-    {
+                        {
 			  (yyval.opval) = block_end((ps[-4].val.ival),
                               newCONDOP(0, (ps[-3].val.opval), (ps[0].val.opval), op_scope((ps[-1].val.opval))));
 			  parser->copline = (line_t)(ps[-6].val.ival);
@@ -369,7 +369,7 @@ case 2:
 
   case 40:
 #line 382 "perly.y"
-    {
+                        {
 			  (yyval.opval) = block_end((ps[-3].val.ival), newGIVENOP((ps[-2].val.opval), op_scope((ps[0].val.opval)), 0));
 			  parser->copline = (line_t)(ps[-5].val.ival);
 			}
@@ -378,19 +378,19 @@ case 2:
 
   case 41:
 #line 387 "perly.y"
-    { (yyval.opval) = block_end((ps[-3].val.ival), newWHENOP((ps[-2].val.opval), op_scope((ps[0].val.opval)))); }
+                        { (yyval.opval) = block_end((ps[-3].val.ival), newWHENOP((ps[-2].val.opval), op_scope((ps[0].val.opval)))); }
 
     break;
 
   case 42:
 #line 389 "perly.y"
-    { (yyval.opval) = newWHENOP(0, op_scope((ps[0].val.opval))); }
+                        { (yyval.opval) = newWHENOP(0, op_scope((ps[0].val.opval))); }
 
     break;
 
   case 43:
 #line 391 "perly.y"
-    {
+                        {
 			  (yyval.opval) = block_end((ps[-5].val.ival),
 				  newWHILEOP(0, 1, NULL,
 				      (ps[-4].val.opval), (ps[-1].val.opval), (ps[0].val.opval), (ps[-2].val.ival)));
@@ -401,7 +401,7 @@ case 2:
 
   case 44:
 #line 398 "perly.y"
-    {
+                        {
 			  (yyval.opval) = block_end((ps[-5].val.ival),
 				  newWHILEOP(0, 1, NULL,
 				      (ps[-4].val.opval), (ps[-1].val.opval), (ps[0].val.opval), (ps[-2].val.ival)));
@@ -412,19 +412,19 @@ case 2:
 
   case 45:
 #line 405 "perly.y"
-    { parser->expect = XTERM; }
+                        { parser->expect = XTERM; }
 
     break;
 
   case 46:
 #line 407 "perly.y"
-    { parser->expect = XTERM; }
+                        { parser->expect = XTERM; }
 
     break;
 
   case 47:
 #line 410 "perly.y"
-    {
+                        {
 			  OP *initop = (ps[-9].val.opval);
 			  OP *forop = newWHILEOP(0, 1, NULL,
 				      scalar((ps[-6].val.opval)), (ps[0].val.opval), (ps[-2].val.opval), (ps[-3].val.ival));
@@ -443,7 +443,7 @@ case 2:
 
   case 48:
 #line 425 "perly.y"
-    {
+                        {
 			  (yyval.opval) = block_end((ps[-6].val.ival), newFOROP(0, (ps[-5].val.opval), (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
 			  parser->copline = (line_t)(ps[-8].val.ival);
 			}
@@ -452,7 +452,7 @@ case 2:
 
   case 49:
 #line 430 "perly.y"
-    {
+                        {
 			  (yyval.opval) = block_end((ps[-4].val.ival), newFOROP(0,
 				      op_lvalue((ps[-6].val.opval), OP_ENTERLOOP), (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
 			  parser->copline = (line_t)(ps[-7].val.ival);
@@ -462,13 +462,13 @@ case 2:
 
   case 50:
 #line 436 "perly.y"
-    { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
+                        { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
 
     break;
 
   case 51:
 #line 438 "perly.y"
-    {
+                        {
 			  (yyval.opval) = block_end(
 				(ps[-7].val.ival),
 				newFOROP(0,
@@ -485,7 +485,7 @@ case 2:
 
   case 52:
 #line 451 "perly.y"
-    {
+                        {
 			  (yyval.opval) = block_end((ps[-4].val.ival), newFOROP(
 				0, op_lvalue(newUNOP(OP_REFGEN, 0,
 						     (ps[-6].val.opval)),
@@ -497,7 +497,7 @@ case 2:
 
   case 53:
 #line 459 "perly.y"
-    {
+                        {
 			  (yyval.opval) = block_end((ps[-4].val.ival),
 				  newFOROP(0, NULL, (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
 			  parser->copline = (line_t)(ps[-6].val.ival);
@@ -507,28 +507,29 @@ case 2:
 
   case 54:
 #line 465 "perly.y"
-    { parser->in_my = 1; }
+                        { parser->in_my = 1; }
 
     break;
 
   case 55:
 #line 467 "perly.y"
-    { parser->in_my = 0; intro_my(); }
+                        { parser->in_my = 0; intro_my(); }
 
     break;
 
   case 56:
 #line 469 "perly.y"
-    {
+                        {
 			  (yyval.opval) = newTRYCATCHOP(0,
 				  (ps[-8].val.opval), (ps[-3].val.opval), block_end((ps[-4].val.ival), op_scope((ps[0].val.opval))));
+			  parser->copline = (line_t)(ps[-9].val.ival);
 			}
 
     break;
 
   case 57:
-#line 474 "perly.y"
-    {
+#line 475 "perly.y"
+                        {
 			  /* a block is a loop that happens once */
 			  (yyval.opval) = newWHILEOP(0, 1, NULL,
 				  NULL, (ps[-1].val.opval), (ps[0].val.opval), 0);
@@ -537,8 +538,8 @@ case 2:
     break;
 
   case 58:
-#line 480 "perly.y"
-    {
+#line 481 "perly.y"
+                        {
 			  package((ps[-2].val.opval));
 			  if ((ps[-3].val.opval)) {
 			      package_version((ps[-3].val.opval));
@@ -548,8 +549,8 @@ case 2:
     break;
 
   case 59:
-#line 487 "perly.y"
-    {
+#line 488 "perly.y"
+                        {
 			  /* a block is a loop that happens once */
 			  (yyval.opval) = newWHILEOP(0, 1, NULL,
 				  NULL, block_end((ps[-3].val.ival), (ps[-1].val.opval)), NULL, 0);
@@ -560,24 +561,24 @@ case 2:
     break;
 
   case 60:
-#line 495 "perly.y"
-    {
+#line 496 "perly.y"
+                        {
 			  (yyval.opval) = (ps[-1].val.opval);
 			}
 
     break;
 
   case 61:
-#line 499 "perly.y"
-    {
+#line 500 "perly.y"
+                        {
 			  (yyval.opval) = newDEFEROP(0, op_scope((ps[0].val.opval)));
 			}
 
     break;
 
   case 62:
-#line 503 "perly.y"
-    {
+#line 504 "perly.y"
+                        {
 			  (yyval.opval) = newLISTOP(OP_DIE, 0, newOP(OP_PUSHMARK, 0),
 				newSVOP(OP_CONST, 0, newSVpvs("Unimplemented")));
 			}
@@ -585,8 +586,8 @@ case 2:
     break;
 
   case 63:
-#line 508 "perly.y"
-    {
+#line 509 "perly.y"
+                        {
 			  (yyval.opval) = NULL;
 			  parser->copline = NOLINE;
 			}
@@ -594,8 +595,8 @@ case 2:
     break;
 
   case 64:
-#line 516 "perly.y"
-    { OP *list;
+#line 517 "perly.y"
+                        { OP *list;
 			  if ((ps[0].val.opval)) {
 			      OP *term = (ps[0].val.opval);
 			      list = op_append_elem(OP_LIST, (ps[-1].val.opval), term);
@@ -613,75 +614,75 @@ case 2:
     break;
 
   case 65:
-#line 533 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 534 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 66:
-#line 535 "perly.y"
-    { (yyval.opval) = op_unscope((ps[-1].val.opval)); }
+#line 536 "perly.y"
+                        { (yyval.opval) = op_unscope((ps[-1].val.opval)); }
 
     break;
 
   case 68:
-#line 543 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 544 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 69:
-#line 545 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 546 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 70:
-#line 547 "perly.y"
-    { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
+#line 548 "perly.y"
+                        { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
 
     break;
 
   case 71:
-#line 549 "perly.y"
-    { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
+#line 550 "perly.y"
+                        { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
 
     break;
 
   case 72:
-#line 551 "perly.y"
-    { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((ps[0].val.opval)), (ps[-2].val.opval)); }
+#line 552 "perly.y"
+                        { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((ps[0].val.opval)), (ps[-2].val.opval)); }
 
     break;
 
   case 73:
-#line 553 "perly.y"
-    { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (ps[0].val.opval), (ps[-2].val.opval)); }
+#line 554 "perly.y"
+                        { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (ps[0].val.opval), (ps[-2].val.opval)); }
 
     break;
 
   case 74:
-#line 555 "perly.y"
-    { (yyval.opval) = newFOROP(0, NULL, (ps[0].val.opval), (ps[-2].val.opval), NULL);
+#line 556 "perly.y"
+                        { (yyval.opval) = newFOROP(0, NULL, (ps[0].val.opval), (ps[-2].val.opval), NULL);
 			  parser->copline = (line_t)(ps[-1].val.ival); }
 
     break;
 
   case 75:
-#line 558 "perly.y"
-    { (yyval.opval) = newWHENOP((ps[0].val.opval), op_scope((ps[-2].val.opval))); }
+#line 559 "perly.y"
+                        { (yyval.opval) = newWHENOP((ps[0].val.opval), op_scope((ps[-2].val.opval))); }
 
     break;
 
   case 76:
-#line 563 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 564 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 77:
-#line 565 "perly.y"
-    {
+#line 566 "perly.y"
+                        {
 			  ((ps[0].val.opval))->op_flags |= OPf_PARENS;
 			  (yyval.opval) = op_scope((ps[0].val.opval));
 			}
@@ -689,8 +690,8 @@ case 2:
     break;
 
   case 78:
-#line 570 "perly.y"
-    { parser->copline = (line_t)(ps[-5].val.ival);
+#line 571 "perly.y"
+                        { parser->copline = (line_t)(ps[-5].val.ival);
 			    (yyval.opval) = newCONDOP(0,
 				newSTATEOP(OPf_SPECIAL,NULL,(ps[-3].val.opval)),
 				op_scope((ps[-1].val.opval)), (ps[0].val.opval));
@@ -700,153 +701,153 @@ case 2:
     break;
 
   case 79:
-#line 580 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 581 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 80:
-#line 582 "perly.y"
-    { (yyval.opval) = op_scope((ps[0].val.opval)); }
+#line 583 "perly.y"
+                        { (yyval.opval) = op_scope((ps[0].val.opval)); }
 
     break;
 
   case 81:
-#line 587 "perly.y"
-    { (yyval.ival) = (PL_min_intro_pending &&
+#line 588 "perly.y"
+                        { (yyval.ival) = (PL_min_intro_pending &&
 			    PL_max_intro_pending >=  PL_min_intro_pending);
 			  intro_my(); }
 
     break;
 
   case 82:
-#line 593 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 594 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 84:
-#line 599 "perly.y"
-    { YYSTYPE tmplval;
+#line 600 "perly.y"
+                        { YYSTYPE tmplval;
 			  (void)scan_num("1", &tmplval);
 			  (yyval.opval) = tmplval.opval; }
 
     break;
 
   case 86:
-#line 607 "perly.y"
-    { (yyval.opval) = invert(scalar((ps[0].val.opval))); }
+#line 608 "perly.y"
+                        { (yyval.opval) = invert(scalar((ps[0].val.opval))); }
 
     break;
 
   case 87:
-#line 612 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); intro_my(); }
+#line 613 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); intro_my(); }
 
     break;
 
   case 88:
-#line 616 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); intro_my(); }
+#line 617 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); intro_my(); }
 
     break;
 
   case 89:
-#line 619 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 620 "perly.y"
+                                { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 90:
-#line 620 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 621 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 91:
-#line 624 "perly.y"
-    { (yyval.ival) = start_subparse(FALSE, 0);
+#line 625 "perly.y"
+                        { (yyval.ival) = start_subparse(FALSE, 0);
 			    SAVEFREESV(PL_compcv); }
 
     break;
 
   case 92:
-#line 630 "perly.y"
-    { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
+#line 631 "perly.y"
+                        { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
 			    SAVEFREESV(PL_compcv); }
 
     break;
 
   case 93:
-#line 635 "perly.y"
-    { (yyval.ival) = start_subparse(TRUE, 0);
+#line 636 "perly.y"
+                        { (yyval.ival) = start_subparse(TRUE, 0);
 			    SAVEFREESV(PL_compcv); }
 
     break;
 
   case 96:
-#line 646 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 647 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 98:
-#line 652 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 653 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 99:
-#line 654 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 655 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 100:
-#line 656 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 657 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 101:
-#line 661 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 662 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 102:
-#line 663 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 664 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 103:
-#line 674 "perly.y"
-    { parser->in_my = 0; (yyval.opval) = NULL; }
+#line 675 "perly.y"
+                        { parser->in_my = 0; (yyval.opval) = NULL; }
 
     break;
 
   case 104:
-#line 676 "perly.y"
-    { parser->in_my = 0; (yyval.opval) = (ps[0].val.opval); }
+#line 677 "perly.y"
+                        { parser->in_my = 0; (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 105:
-#line 681 "perly.y"
-    { (yyval.ival) = '@'; }
+#line 682 "perly.y"
+                        { (yyval.ival) = '@'; }
 
     break;
 
   case 106:
-#line 683 "perly.y"
-    { (yyval.ival) = '%'; }
+#line 684 "perly.y"
+                        { (yyval.ival) = '%'; }
 
     break;
 
   case 107:
-#line 687 "perly.y"
-    {
+#line 688 "perly.y"
+                        {
                             I32 sigil   = (ps[-2].val.ival);
                             OP *var     = (ps[-1].val.opval);
                             OP *defexpr = (ps[0].val.opval);
@@ -865,26 +866,26 @@ case 2:
     break;
 
   case 108:
-#line 706 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 707 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 109:
-#line 708 "perly.y"
-    { (yyval.opval) = newOP(OP_NULL, 0); }
+#line 709 "perly.y"
+                        { (yyval.opval) = newOP(OP_NULL, 0); }
 
     break;
 
   case 110:
-#line 710 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 711 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 111:
-#line 716 "perly.y"
-    {
+#line 717 "perly.y"
+                        {
                             OP *var     = (ps[-1].val.opval);
                             OP *defexpr = (ps[0].val.opval);
 
@@ -948,70 +949,70 @@ case 2:
     break;
 
   case 112:
-#line 781 "perly.y"
-    { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
+#line 782 "perly.y"
+                        { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 113:
-#line 783 "perly.y"
-    { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
+#line 784 "perly.y"
+                        { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 114:
-#line 789 "perly.y"
-    { (yyval.opval) = (ps[-1].val.opval); }
+#line 790 "perly.y"
+                        { (yyval.opval) = (ps[-1].val.opval); }
 
     break;
 
   case 115:
-#line 791 "perly.y"
-    {
+#line 792 "perly.y"
+                        {
 			  (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-2].val.opval), (ps[0].val.opval));
 			}
 
     break;
 
   case 116:
-#line 795 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 796 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 117:
-#line 800 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 801 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 118:
-#line 802 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 803 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 119:
-#line 806 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 807 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 120:
-#line 808 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 809 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 121:
-#line 812 "perly.y"
-    { (yyval.opval) = (ps[-1].val.opval); }
+#line 813 "perly.y"
+                        { (yyval.opval) = (ps[-1].val.opval); }
 
     break;
 
   case 122:
-#line 815 "perly.y"
-    {
+#line 816 "perly.y"
+                        {
                             ENTER;
                             SAVEIV(parser->sig_elems);
                             SAVEIV(parser->sig_optelems);
@@ -1025,8 +1026,8 @@ case 2:
     break;
 
   case 123:
-#line 826 "perly.y"
-    {
+#line 827 "perly.y"
+                        {
                             OP            *sigops = (ps[0].val.opval);
                             struct op_argcheck_aux *aux;
                             OP            *check;
@@ -1084,20 +1085,20 @@ case 2:
     break;
 
   case 124:
-#line 883 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 884 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 125:
-#line 884 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 885 "perly.y"
+                                { (yyval.opval) = NULL; }
 
     break;
 
   case 126:
-#line 890 "perly.y"
-    {
+#line 891 "perly.y"
+                        {
 			  if (parser->copline > (line_t)(ps[-2].val.ival))
 			      parser->copline = (line_t)(ps[-2].val.ival);
 			  (yyval.opval) = block_end((ps[-3].val.ival), (ps[-1].val.opval));
@@ -1106,20 +1107,20 @@ case 2:
     break;
 
   case 127:
-#line 900 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 901 "perly.y"
+                           { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 128:
-#line 901 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 902 "perly.y"
+                                   { (yyval.opval) = NULL; }
 
     break;
 
   case 129:
-#line 905 "perly.y"
-    {
+#line 906 "perly.y"
+                        {
 			  if (parser->copline > (line_t)(ps[-2].val.ival))
 			      parser->copline = (line_t)(ps[-2].val.ival);
 			  (yyval.opval) = block_end((ps[-4].val.ival),
@@ -1129,26 +1130,26 @@ case 2:
     break;
 
   case 130:
-#line 916 "perly.y"
-    { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
+#line 917 "perly.y"
+                        { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 131:
-#line 918 "perly.y"
-    { (yyval.opval) = newLOGOP((ps[-1].val.ival), 0, (ps[-2].val.opval), (ps[0].val.opval)); }
+#line 919 "perly.y"
+                        { (yyval.opval) = newLOGOP((ps[-1].val.ival), 0, (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 133:
-#line 924 "perly.y"
-    { (yyval.opval) = (ps[-1].val.opval); }
+#line 925 "perly.y"
+                        { (yyval.opval) = (ps[-1].val.opval); }
 
     break;
 
   case 134:
-#line 926 "perly.y"
-    {
+#line 927 "perly.y"
+                        {
 			  OP* term = (ps[0].val.opval);
 			  (yyval.opval) = op_append_elem(OP_LIST, (ps[-2].val.opval), term);
 			}
@@ -1156,24 +1157,24 @@ case 2:
     break;
 
   case 136:
-#line 935 "perly.y"
-    { (yyval.opval) = op_convert_list((ps[-2].val.ival), OPf_STACKED,
+#line 936 "perly.y"
+                        { (yyval.opval) = op_convert_list((ps[-2].val.ival), OPf_STACKED,
 				op_prepend_elem(OP_LIST, newGVREF((ps[-2].val.ival),(ps[-1].val.opval)), (ps[0].val.opval)) );
 			}
 
     break;
 
   case 137:
-#line 939 "perly.y"
-    { (yyval.opval) = op_convert_list((ps[-4].val.ival), OPf_STACKED,
+#line 940 "perly.y"
+                        { (yyval.opval) = op_convert_list((ps[-4].val.ival), OPf_STACKED,
 				op_prepend_elem(OP_LIST, newGVREF((ps[-4].val.ival),(ps[-2].val.opval)), (ps[-1].val.opval)) );
 			}
 
     break;
 
   case 138:
-#line 943 "perly.y"
-    { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
+#line 944 "perly.y"
+                        { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
 				op_append_elem(OP_LIST,
 				    op_prepend_elem(OP_LIST, scalar((ps[-5].val.opval)), (ps[-1].val.opval)),
 				    newMETHOP(OP_METHOD, 0, (ps[-3].val.opval))));
@@ -1182,8 +1183,8 @@ case 2:
     break;
 
   case 139:
-#line 949 "perly.y"
-    { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
+#line 950 "perly.y"
+                        { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
 				op_append_elem(OP_LIST, scalar((ps[-2].val.opval)),
 				    newMETHOP(OP_METHOD, 0, (ps[0].val.opval))));
 			}
@@ -1191,8 +1192,8 @@ case 2:
     break;
 
   case 140:
-#line 954 "perly.y"
-    { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
+#line 955 "perly.y"
+                        { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
 				op_append_elem(OP_LIST,
 				    op_prepend_elem(OP_LIST, (ps[-1].val.opval), (ps[0].val.opval)),
 				    newMETHOP(OP_METHOD, 0, (ps[-2].val.opval))));
@@ -1201,8 +1202,8 @@ case 2:
     break;
 
   case 141:
-#line 960 "perly.y"
-    { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
+#line 961 "perly.y"
+                        { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
 				op_append_elem(OP_LIST,
 				    op_prepend_elem(OP_LIST, (ps[-3].val.opval), (ps[-1].val.opval)),
 				    newMETHOP(OP_METHOD, 0, (ps[-4].val.opval))));
@@ -1211,33 +1212,33 @@ case 2:
     break;
 
   case 142:
-#line 966 "perly.y"
-    { (yyval.opval) = op_convert_list((ps[-1].val.ival), 0, (ps[0].val.opval)); }
+#line 967 "perly.y"
+                        { (yyval.opval) = op_convert_list((ps[-1].val.ival), 0, (ps[0].val.opval)); }
 
     break;
 
   case 143:
-#line 968 "perly.y"
-    { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
+#line 969 "perly.y"
+                        { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
 
     break;
 
   case 144:
-#line 970 "perly.y"
-    { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
+#line 971 "perly.y"
+                        { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
 
     break;
 
   case 145:
-#line 972 "perly.y"
-    { SvREFCNT_inc_simple_void(PL_compcv);
+#line 973 "perly.y"
+                        { SvREFCNT_inc_simple_void(PL_compcv);
 			  (yyval.opval) = newANONATTRSUB((ps[-1].val.ival), 0, NULL, (ps[0].val.opval)); }
 
     break;
 
   case 146:
-#line 975 "perly.y"
-    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+#line 976 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 				 op_append_elem(OP_LIST,
 				   op_prepend_elem(OP_LIST, (ps[-1].val.opval), (ps[0].val.opval)), (ps[-4].val.opval)));
 			}
@@ -1245,21 +1246,21 @@ case 2:
     break;
 
   case 149:
-#line 990 "perly.y"
-    { (yyval.opval) = newBINOP(OP_GELEM, 0, (ps[-4].val.opval), scalar((ps[-2].val.opval))); }
+#line 991 "perly.y"
+                        { (yyval.opval) = newBINOP(OP_GELEM, 0, (ps[-4].val.opval), scalar((ps[-2].val.opval))); }
 
     break;
 
   case 150:
-#line 992 "perly.y"
-    { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((ps[-3].val.opval)), scalar((ps[-1].val.opval)));
+#line 993 "perly.y"
+                        { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((ps[-3].val.opval)), scalar((ps[-1].val.opval)));
 			}
 
     break;
 
   case 151:
-#line 995 "perly.y"
-    { (yyval.opval) = newBINOP(OP_AELEM, 0,
+#line 996 "perly.y"
+                        { (yyval.opval) = newBINOP(OP_AELEM, 0,
 					ref(newAVREF((ps[-4].val.opval)),OP_RV2AV),
 					scalar((ps[-1].val.opval)));
 			}
@@ -1267,8 +1268,8 @@ case 2:
     break;
 
   case 152:
-#line 1000 "perly.y"
-    { (yyval.opval) = newBINOP(OP_AELEM, 0,
+#line 1001 "perly.y"
+                        { (yyval.opval) = newBINOP(OP_AELEM, 0,
 					ref(newAVREF((ps[-3].val.opval)),OP_RV2AV),
 					scalar((ps[-1].val.opval)));
 			}
@@ -1276,31 +1277,31 @@ case 2:
     break;
 
   case 153:
-#line 1005 "perly.y"
-    { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((ps[-4].val.opval)), jmaybe((ps[-2].val.opval)));
+#line 1006 "perly.y"
+                        { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((ps[-4].val.opval)), jmaybe((ps[-2].val.opval)));
 			}
 
     break;
 
   case 154:
-#line 1008 "perly.y"
-    { (yyval.opval) = newBINOP(OP_HELEM, 0,
+#line 1009 "perly.y"
+                        { (yyval.opval) = newBINOP(OP_HELEM, 0,
 					ref(newHVREF((ps[-5].val.opval)),OP_RV2HV),
 					jmaybe((ps[-2].val.opval))); }
 
     break;
 
   case 155:
-#line 1012 "perly.y"
-    { (yyval.opval) = newBINOP(OP_HELEM, 0,
+#line 1013 "perly.y"
+                        { (yyval.opval) = newBINOP(OP_HELEM, 0,
 					ref(newHVREF((ps[-4].val.opval)),OP_RV2HV),
 					jmaybe((ps[-2].val.opval))); }
 
     break;
 
   case 156:
-#line 1016 "perly.y"
-    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+#line 1017 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 				   newCVREF(0, scalar((ps[-3].val.opval))));
 			  if (parser->expect == XBLOCK)
 			      parser->expect = XOPERATOR;
@@ -1309,8 +1310,8 @@ case 2:
     break;
 
   case 157:
-#line 1022 "perly.y"
-    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+#line 1023 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 				   op_append_elem(OP_LIST, (ps[-1].val.opval),
 				       newCVREF(0, scalar((ps[-4].val.opval)))));
 			  if (parser->expect == XBLOCK)
@@ -1320,8 +1321,8 @@ case 2:
     break;
 
   case 158:
-#line 1030 "perly.y"
-    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+#line 1031 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 				   op_append_elem(OP_LIST, (ps[-1].val.opval),
 					       newCVREF(0, scalar((ps[-3].val.opval)))));
 			  if (parser->expect == XBLOCK)
@@ -1331,8 +1332,8 @@ case 2:
     break;
 
   case 159:
-#line 1037 "perly.y"
-    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+#line 1038 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 				   newCVREF(0, scalar((ps[-2].val.opval))));
 			  if (parser->expect == XBLOCK)
 			      parser->expect = XOPERATOR;
@@ -1341,38 +1342,38 @@ case 2:
     break;
 
   case 160:
-#line 1043 "perly.y"
-    { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-4].val.opval)); }
+#line 1044 "perly.y"
+                        { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-4].val.opval)); }
 
     break;
 
   case 161:
-#line 1045 "perly.y"
-    { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-3].val.opval)); }
+#line 1046 "perly.y"
+                        { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-3].val.opval)); }
 
     break;
 
   case 162:
-#line 1047 "perly.y"
-    { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), NULL); }
+#line 1048 "perly.y"
+                        { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), NULL); }
 
     break;
 
   case 163:
-#line 1052 "perly.y"
-    { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[-2].val.opval), (ps[-1].val.ival), (ps[0].val.opval)); }
+#line 1053 "perly.y"
+                        { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[-2].val.opval), (ps[-1].val.ival), (ps[0].val.opval)); }
 
     break;
 
   case 164:
-#line 1054 "perly.y"
-    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+#line 1055 "perly.y"
+                        { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 165:
-#line 1056 "perly.y"
-    {   if ((ps[-1].val.ival) != OP_REPEAT)
+#line 1057 "perly.y"
+                        {   if ((ps[-1].val.ival) != OP_REPEAT)
 				scalar((ps[-2].val.opval));
 			    (yyval.opval) = newBINOP((ps[-1].val.ival), 0, (ps[-2].val.opval), scalar((ps[0].val.opval)));
 			}
@@ -1380,184 +1381,184 @@ case 2:
     break;
 
   case 166:
-#line 1061 "perly.y"
-    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+#line 1062 "perly.y"
+                        { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 167:
-#line 1063 "perly.y"
-    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+#line 1064 "perly.y"
+                        { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 168:
-#line 1065 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1066 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 169:
-#line 1067 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1068 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 170:
-#line 1069 "perly.y"
-    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+#line 1070 "perly.y"
+                        { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 171:
-#line 1071 "perly.y"
-    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+#line 1072 "perly.y"
+                        { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 172:
-#line 1073 "perly.y"
-    { (yyval.opval) = newRANGE((ps[-1].val.ival), scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+#line 1074 "perly.y"
+                        { (yyval.opval) = newRANGE((ps[-1].val.ival), scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 173:
-#line 1075 "perly.y"
-    { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
+#line 1076 "perly.y"
+                        { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 174:
-#line 1077 "perly.y"
-    { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
+#line 1078 "perly.y"
+                        { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 175:
-#line 1079 "perly.y"
-    { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
+#line 1080 "perly.y"
+                        { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 176:
-#line 1081 "perly.y"
-    { (yyval.opval) = bind_match((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
+#line 1082 "perly.y"
+                        { (yyval.opval) = bind_match((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 177:
-#line 1085 "perly.y"
-    { (yyval.opval) = cmpchain_finish((ps[0].val.opval)); }
+#line 1086 "perly.y"
+                        { (yyval.opval) = cmpchain_finish((ps[0].val.opval)); }
 
     break;
 
   case 178:
-#line 1087 "perly.y"
-    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+#line 1088 "perly.y"
+                        { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 179:
-#line 1089 "perly.y"
-    { yyerror("syntax error"); YYERROR; }
+#line 1090 "perly.y"
+                        { yyerror("syntax error"); YYERROR; }
 
     break;
 
   case 180:
-#line 1091 "perly.y"
-    { yyerror("syntax error"); YYERROR; }
+#line 1092 "perly.y"
+                        { yyerror("syntax error"); YYERROR; }
 
     break;
 
   case 181:
-#line 1095 "perly.y"
-    { (yyval.opval) = cmpchain_start((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
+#line 1096 "perly.y"
+                        { (yyval.opval) = cmpchain_start((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 182:
-#line 1097 "perly.y"
-    { (yyval.opval) = cmpchain_extend((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
+#line 1098 "perly.y"
+                        { (yyval.opval) = cmpchain_extend((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 183:
-#line 1101 "perly.y"
-    { (yyval.opval) = cmpchain_finish((ps[0].val.opval)); }
+#line 1102 "perly.y"
+                        { (yyval.opval) = cmpchain_finish((ps[0].val.opval)); }
 
     break;
 
   case 184:
-#line 1103 "perly.y"
-    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+#line 1104 "perly.y"
+                        { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 185:
-#line 1105 "perly.y"
-    { yyerror("syntax error"); YYERROR; }
+#line 1106 "perly.y"
+                        { yyerror("syntax error"); YYERROR; }
 
     break;
 
   case 186:
-#line 1107 "perly.y"
-    { yyerror("syntax error"); YYERROR; }
+#line 1108 "perly.y"
+                        { yyerror("syntax error"); YYERROR; }
 
     break;
 
   case 187:
-#line 1111 "perly.y"
-    { (yyval.opval) = cmpchain_start((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
+#line 1112 "perly.y"
+                        { (yyval.opval) = cmpchain_start((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 188:
-#line 1113 "perly.y"
-    { (yyval.opval) = cmpchain_extend((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
+#line 1114 "perly.y"
+                        { (yyval.opval) = cmpchain_extend((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 189:
-#line 1118 "perly.y"
-    { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[0].val.opval))); }
+#line 1119 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[0].val.opval))); }
 
     break;
 
   case 190:
-#line 1120 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1121 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 191:
-#line 1123 "perly.y"
-    { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
+#line 1124 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
 
     break;
 
   case 192:
-#line 1125 "perly.y"
-    { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, scalar((ps[0].val.opval))); }
+#line 1126 "perly.y"
+                        { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, scalar((ps[0].val.opval))); }
 
     break;
 
   case 193:
-#line 1127 "perly.y"
-    { (yyval.opval) = newUNOP(OP_POSTINC, 0,
+#line 1128 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_POSTINC, 0,
 					op_lvalue(scalar((ps[-1].val.opval)), OP_POSTINC)); }
 
     break;
 
   case 194:
-#line 1130 "perly.y"
-    { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
+#line 1131 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
 					op_lvalue(scalar((ps[-1].val.opval)), OP_POSTDEC));}
 
     break;
 
   case 195:
-#line 1133 "perly.y"
-    { (yyval.opval) = op_convert_list(OP_JOIN, 0,
+#line 1134 "perly.y"
+                        { (yyval.opval) = op_convert_list(OP_JOIN, 0,
 				       op_append_elem(
 					OP_LIST,
 					newSVREF(scalar(
@@ -1571,156 +1572,156 @@ case 2:
     break;
 
   case 196:
-#line 1144 "perly.y"
-    { (yyval.opval) = newUNOP(OP_PREINC, 0,
+#line 1145 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_PREINC, 0,
 					op_lvalue(scalar((ps[0].val.opval)), OP_PREINC)); }
 
     break;
 
   case 197:
-#line 1147 "perly.y"
-    { (yyval.opval) = newUNOP(OP_PREDEC, 0,
+#line 1148 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_PREDEC, 0,
 					op_lvalue(scalar((ps[0].val.opval)), OP_PREDEC)); }
 
     break;
 
   case 198:
-#line 1154 "perly.y"
-    { (yyval.opval) = newANONLIST((ps[-1].val.opval)); }
+#line 1155 "perly.y"
+                        { (yyval.opval) = newANONLIST((ps[-1].val.opval)); }
 
     break;
 
   case 199:
-#line 1156 "perly.y"
-    { (yyval.opval) = newANONLIST(NULL);}
+#line 1157 "perly.y"
+                        { (yyval.opval) = newANONLIST(NULL);}
 
     break;
 
   case 200:
-#line 1158 "perly.y"
-    { (yyval.opval) = newANONHASH((ps[-2].val.opval)); }
+#line 1159 "perly.y"
+                        { (yyval.opval) = newANONHASH((ps[-2].val.opval)); }
 
     break;
 
   case 201:
-#line 1160 "perly.y"
-    { (yyval.opval) = newANONHASH(NULL); }
+#line 1161 "perly.y"
+                        { (yyval.opval) = newANONHASH(NULL); }
 
     break;
 
   case 202:
-#line 1162 "perly.y"
-    { SvREFCNT_inc_simple_void(PL_compcv);
+#line 1163 "perly.y"
+                        { SvREFCNT_inc_simple_void(PL_compcv);
 			  (yyval.opval) = newANONATTRSUB((ps[-3].val.ival), (ps[-2].val.opval), (ps[-1].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 203:
-#line 1165 "perly.y"
-    { SvREFCNT_inc_simple_void(PL_compcv);
+#line 1166 "perly.y"
+                        { SvREFCNT_inc_simple_void(PL_compcv);
 			  (yyval.opval) = newANONATTRSUB((ps[-2].val.ival), NULL, (ps[-1].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 204:
-#line 1171 "perly.y"
-    { (yyval.opval) = dofile((ps[0].val.opval), (ps[-1].val.ival));}
+#line 1172 "perly.y"
+                        { (yyval.opval) = dofile((ps[0].val.opval), (ps[-1].val.ival));}
 
     break;
 
   case 205:
-#line 1173 "perly.y"
-    { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, op_scope((ps[0].val.opval)));}
+#line 1174 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, op_scope((ps[0].val.opval)));}
 
     break;
 
   case 210:
-#line 1181 "perly.y"
-    { (yyval.opval) = newCONDOP(0, (ps[-4].val.opval), (ps[-2].val.opval), (ps[0].val.opval)); }
+#line 1182 "perly.y"
+                        { (yyval.opval) = newCONDOP(0, (ps[-4].val.opval), (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 211:
-#line 1183 "perly.y"
-    { (yyval.opval) = newUNOP(OP_REFGEN, 0, (ps[0].val.opval)); }
+#line 1184 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_REFGEN, 0, (ps[0].val.opval)); }
 
     break;
 
   case 212:
-#line 1185 "perly.y"
-    { (yyval.opval) = newUNOP(OP_REFGEN, 0, localize((ps[0].val.opval),1)); }
+#line 1186 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_REFGEN, 0, localize((ps[0].val.opval),1)); }
 
     break;
 
   case 213:
-#line 1187 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1188 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 214:
-#line 1189 "perly.y"
-    { (yyval.opval) = localize((ps[0].val.opval),0); }
+#line 1190 "perly.y"
+                        { (yyval.opval) = localize((ps[0].val.opval),0); }
 
     break;
 
   case 215:
-#line 1191 "perly.y"
-    { (yyval.opval) = sawparens((ps[-1].val.opval)); }
+#line 1192 "perly.y"
+                        { (yyval.opval) = sawparens((ps[-1].val.opval)); }
 
     break;
 
   case 216:
-#line 1193 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1194 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 217:
-#line 1195 "perly.y"
-    { (yyval.opval) = sawparens(newNULLLIST()); }
+#line 1196 "perly.y"
+                        { (yyval.opval) = sawparens(newNULLLIST()); }
 
     break;
 
   case 218:
-#line 1197 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1198 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 219:
-#line 1199 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1200 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 220:
-#line 1201 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1202 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 221:
-#line 1203 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1204 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 222:
-#line 1205 "perly.y"
-    { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[0].val.opval), OP_AV2ARYLEN));}
+#line 1206 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[0].val.opval), OP_AV2ARYLEN));}
 
     break;
 
   case 223:
-#line 1207 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1208 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 224:
-#line 1209 "perly.y"
-    { (yyval.opval) = op_prepend_elem(OP_ASLICE,
+#line 1210 "perly.y"
+                        { (yyval.opval) = op_prepend_elem(OP_ASLICE,
 				newOP(OP_PUSHMARK, 0),
 				    newLISTOP(OP_ASLICE, 0,
 					list((ps[-1].val.opval)),
@@ -1733,8 +1734,8 @@ case 2:
     break;
 
   case 225:
-#line 1219 "perly.y"
-    { (yyval.opval) = op_prepend_elem(OP_KVASLICE,
+#line 1220 "perly.y"
+                        { (yyval.opval) = op_prepend_elem(OP_KVASLICE,
 				newOP(OP_PUSHMARK, 0),
 				    newLISTOP(OP_KVASLICE, 0,
 					list((ps[-1].val.opval)),
@@ -1747,8 +1748,8 @@ case 2:
     break;
 
   case 226:
-#line 1229 "perly.y"
-    { (yyval.opval) = op_prepend_elem(OP_HSLICE,
+#line 1230 "perly.y"
+                        { (yyval.opval) = op_prepend_elem(OP_HSLICE,
 				newOP(OP_PUSHMARK, 0),
 				    newLISTOP(OP_HSLICE, 0,
 					list((ps[-2].val.opval)),
@@ -1761,8 +1762,8 @@ case 2:
     break;
 
   case 227:
-#line 1239 "perly.y"
-    { (yyval.opval) = op_prepend_elem(OP_KVHSLICE,
+#line 1240 "perly.y"
+                        { (yyval.opval) = op_prepend_elem(OP_KVHSLICE,
 				newOP(OP_PUSHMARK, 0),
 				    newLISTOP(OP_KVHSLICE, 0,
 					list((ps[-2].val.opval)),
@@ -1775,27 +1776,27 @@ case 2:
     break;
 
   case 228:
-#line 1249 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1250 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 229:
-#line 1251 "perly.y"
-    { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[0].val.opval))); }
+#line 1252 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[0].val.opval))); }
 
     break;
 
   case 230:
-#line 1253 "perly.y"
-    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[-2].val.opval)));
+#line 1254 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[-2].val.opval)));
 			}
 
     break;
 
   case 231:
-#line 1256 "perly.y"
-    {
+#line 1257 "perly.y"
+                        {
 			  (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 				op_append_elem(OP_LIST, (ps[-1].val.opval), scalar((ps[-3].val.opval))));
 			}
@@ -1803,153 +1804,153 @@ case 2:
     break;
 
   case 232:
-#line 1261 "perly.y"
-    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+#line 1262 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 			    op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval))));
 			}
 
     break;
 
   case 233:
-#line 1265 "perly.y"
-    { (yyval.opval) = newSVREF((ps[-3].val.opval)); }
+#line 1266 "perly.y"
+                        { (yyval.opval) = newSVREF((ps[-3].val.opval)); }
 
     break;
 
   case 234:
-#line 1267 "perly.y"
-    { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
+#line 1268 "perly.y"
+                        { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
 
     break;
 
   case 235:
-#line 1269 "perly.y"
-    { (yyval.opval) = newHVREF((ps[-3].val.opval)); }
+#line 1270 "perly.y"
+                        { (yyval.opval) = newHVREF((ps[-3].val.opval)); }
 
     break;
 
   case 236:
-#line 1271 "perly.y"
-    { (yyval.opval) = newUNOP(OP_ENTERSUB, 0,
+#line 1272 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_ENTERSUB, 0,
 				       scalar(newCVREF((ps[-1].val.ival),(ps[-3].val.opval)))); }
 
     break;
 
   case 237:
-#line 1274 "perly.y"
-    { (yyval.opval) = newGVREF(0,(ps[-3].val.opval)); }
+#line 1275 "perly.y"
+                        { (yyval.opval) = newGVREF(0,(ps[-3].val.opval)); }
 
     break;
 
   case 238:
-#line 1276 "perly.y"
-    { (yyval.opval) = newOP((ps[0].val.ival), OPf_SPECIAL);
+#line 1277 "perly.y"
+                        { (yyval.opval) = newOP((ps[0].val.ival), OPf_SPECIAL);
 			    PL_hints |= HINT_BLOCK_SCOPE; }
 
     break;
 
   case 239:
-#line 1279 "perly.y"
-    { (yyval.opval) = newLOOPEX((ps[-1].val.ival),(ps[0].val.opval)); }
+#line 1280 "perly.y"
+                        { (yyval.opval) = newLOOPEX((ps[-1].val.ival),(ps[0].val.opval)); }
 
     break;
 
   case 240:
-#line 1281 "perly.y"
-    { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
+#line 1282 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
 
     break;
 
   case 241:
-#line 1283 "perly.y"
-    { (yyval.opval) = newOP((ps[0].val.ival), 0); }
+#line 1284 "perly.y"
+                        { (yyval.opval) = newOP((ps[0].val.ival), 0); }
 
     break;
 
   case 242:
-#line 1285 "perly.y"
-    { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
+#line 1286 "perly.y"
+                        { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
 
     break;
 
   case 243:
-#line 1287 "perly.y"
-    { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
+#line 1288 "perly.y"
+                        { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
 
     break;
 
   case 244:
-#line 1289 "perly.y"
-    { (yyval.opval) = newOP(OP_REQUIRE, (ps[0].val.ival) ? OPf_SPECIAL : 0); }
+#line 1290 "perly.y"
+                        { (yyval.opval) = newOP(OP_REQUIRE, (ps[0].val.ival) ? OPf_SPECIAL : 0); }
 
     break;
 
   case 245:
-#line 1291 "perly.y"
-    { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[-1].val.ival) ? OPf_SPECIAL : 0, (ps[0].val.opval)); }
+#line 1292 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[-1].val.ival) ? OPf_SPECIAL : 0, (ps[0].val.opval)); }
 
     break;
 
   case 246:
-#line 1293 "perly.y"
-    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
+#line 1294 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
 
     break;
 
   case 247:
-#line 1295 "perly.y"
-    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+#line 1296 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 			    op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval)))); }
 
     break;
 
   case 248:
-#line 1298 "perly.y"
-    { (yyval.opval) = newOP((ps[0].val.ival), 0); }
+#line 1299 "perly.y"
+                        { (yyval.opval) = newOP((ps[0].val.ival), 0); }
 
     break;
 
   case 249:
-#line 1300 "perly.y"
-    { (yyval.opval) = newOP((ps[-2].val.ival), 0);}
+#line 1301 "perly.y"
+                        { (yyval.opval) = newOP((ps[-2].val.ival), 0);}
 
     break;
 
   case 250:
-#line 1302 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1303 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 251:
-#line 1304 "perly.y"
-    { (yyval.opval) = (ps[-2].val.opval); }
+#line 1305 "perly.y"
+                        { (yyval.opval) = (ps[-2].val.opval); }
 
     break;
 
   case 252:
-#line 1306 "perly.y"
-    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
+#line 1307 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
 
     break;
 
   case 253:
-#line 1308 "perly.y"
-    { (yyval.opval) = ((ps[-2].val.ival) == OP_NOT)
+#line 1309 "perly.y"
+                        { (yyval.opval) = ((ps[-2].val.ival) == OP_NOT)
                           ? newUNOP((ps[-2].val.ival), 0, newSVOP(OP_CONST, 0, newSViv(0)))
                           : newOP((ps[-2].val.ival), OPf_SPECIAL); }
 
     break;
 
   case 254:
-#line 1312 "perly.y"
-    { (yyval.opval) = newUNOP((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
+#line 1313 "perly.y"
+                        { (yyval.opval) = newUNOP((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
 
     break;
 
   case 255:
-#line 1314 "perly.y"
-    {
+#line 1315 "perly.y"
+                        {
 			    if (   (ps[0].val.opval)->op_type != OP_TRANS
 			        && (ps[0].val.opval)->op_type != OP_TRANSR
 				&& (((PMOP*)(ps[0].val.opval))->op_pmflags & PMf_HAS_CV))
@@ -1963,195 +1964,196 @@ case 2:
     break;
 
   case 256:
-#line 1325 "perly.y"
-    { (yyval.opval) = pmruntime((ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), 1, (ps[-4].val.ival)); }
+#line 1326 "perly.y"
+                        { (yyval.opval) = pmruntime((ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), 1, (ps[-4].val.ival)); }
 
     break;
 
   case 260:
-#line 1333 "perly.y"
-    { (yyval.opval) = my_attrs((ps[-1].val.opval),(ps[0].val.opval)); }
+#line 1334 "perly.y"
+                        { (yyval.opval) = my_attrs((ps[-1].val.opval),(ps[0].val.opval)); }
 
     break;
 
   case 261:
-#line 1335 "perly.y"
-    { (yyval.opval) = localize((ps[0].val.opval),1); }
+#line 1336 "perly.y"
+                        { (yyval.opval) = localize((ps[0].val.opval),1); }
 
     break;
 
   case 262:
-#line 1337 "perly.y"
-    { (yyval.opval) = newUNOP(OP_REFGEN, 0, my_attrs((ps[-1].val.opval),(ps[0].val.opval))); }
+#line 1338 "perly.y"
+                        { (yyval.opval) = newUNOP(OP_REFGEN, 0, my_attrs((ps[-1].val.opval),(ps[0].val.opval))); }
 
     break;
 
   case 263:
-#line 1342 "perly.y"
-    { (yyval.opval) = sawparens((ps[-1].val.opval)); }
+#line 1343 "perly.y"
+                        { (yyval.opval) = sawparens((ps[-1].val.opval)); }
 
     break;
 
   case 264:
-#line 1344 "perly.y"
-    { (yyval.opval) = sawparens(newNULLLIST()); }
+#line 1345 "perly.y"
+                        { (yyval.opval) = sawparens(newNULLLIST()); }
 
     break;
 
   case 265:
-#line 1347 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1348 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 266:
-#line 1349 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1350 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 267:
-#line 1351 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1352 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 268:
-#line 1356 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 1357 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 269:
-#line 1358 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1359 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 270:
-#line 1362 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 1363 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 271:
-#line 1364 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1365 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 272:
-#line 1368 "perly.y"
-    { (yyval.opval) = NULL; }
+#line 1369 "perly.y"
+                        { (yyval.opval) = NULL; }
 
     break;
 
   case 273:
-#line 1370 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1371 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 274:
-#line 1376 "perly.y"
-    { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
+#line 1377 "perly.y"
+                        { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
 
     break;
 
   case 282:
-#line 1393 "perly.y"
-    { (yyval.opval) = newCVREF((ps[-1].val.ival),(ps[0].val.opval)); }
+#line 1394 "perly.y"
+                        { (yyval.opval) = newCVREF((ps[-1].val.ival),(ps[0].val.opval)); }
 
     break;
 
   case 283:
-#line 1397 "perly.y"
-    { (yyval.opval) = newSVREF((ps[0].val.opval)); }
+#line 1398 "perly.y"
+                        { (yyval.opval) = newSVREF((ps[0].val.opval)); }
 
     break;
 
   case 284:
-#line 1401 "perly.y"
-    { (yyval.opval) = newAVREF((ps[0].val.opval));
+#line 1402 "perly.y"
+                        { (yyval.opval) = newAVREF((ps[0].val.opval));
 			  if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival);
 			}
 
     break;
 
   case 285:
-#line 1407 "perly.y"
-    { (yyval.opval) = newHVREF((ps[0].val.opval));
+#line 1408 "perly.y"
+                        { (yyval.opval) = newHVREF((ps[0].val.opval));
 			  if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival);
 			}
 
     break;
 
   case 286:
-#line 1413 "perly.y"
-    { (yyval.opval) = newAVREF((ps[0].val.opval)); }
+#line 1414 "perly.y"
+                        { (yyval.opval) = newAVREF((ps[0].val.opval)); }
 
     break;
 
   case 287:
-#line 1415 "perly.y"
-    { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
+#line 1416 "perly.y"
+                        { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
 
     break;
 
   case 288:
-#line 1419 "perly.y"
-    { (yyval.opval) = newGVREF(0,(ps[0].val.opval)); }
+#line 1420 "perly.y"
+                        { (yyval.opval) = newGVREF(0,(ps[0].val.opval)); }
 
     break;
 
   case 290:
-#line 1424 "perly.y"
-    { (yyval.opval) = newAVREF((ps[-2].val.opval)); }
+#line 1425 "perly.y"
+                        { (yyval.opval) = newAVREF((ps[-2].val.opval)); }
 
     break;
 
   case 292:
-#line 1429 "perly.y"
-    { (yyval.opval) = newHVREF((ps[-2].val.opval)); }
+#line 1430 "perly.y"
+                        { (yyval.opval) = newHVREF((ps[-2].val.opval)); }
 
     break;
 
   case 294:
-#line 1434 "perly.y"
-    { (yyval.opval) = newGVREF(0,(ps[-2].val.opval)); }
+#line 1435 "perly.y"
+                        { (yyval.opval) = newGVREF(0,(ps[-2].val.opval)); }
 
     break;
 
   case 295:
-#line 1439 "perly.y"
-    { (yyval.opval) = scalar((ps[0].val.opval)); }
+#line 1440 "perly.y"
+                        { (yyval.opval) = scalar((ps[0].val.opval)); }
 
     break;
 
   case 296:
-#line 1441 "perly.y"
-    { (yyval.opval) = scalar((ps[0].val.opval)); }
+#line 1442 "perly.y"
+                        { (yyval.opval) = scalar((ps[0].val.opval)); }
 
     break;
 
   case 297:
-#line 1443 "perly.y"
-    { (yyval.opval) = op_scope((ps[0].val.opval)); }
+#line 1444 "perly.y"
+                        { (yyval.opval) = op_scope((ps[0].val.opval)); }
 
     break;
 
   case 298:
-#line 1446 "perly.y"
-    { (yyval.opval) = (ps[0].val.opval); }
+#line 1447 "perly.y"
+                        { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
 
 
+
       default: break;
     
 
 /* Generated from:
- * 3759c9ee4ef2ae2879c32641e36adc50c85c0dc40dd6283752cdcac7e736fa5f perly.y
+ * 0202d23d96cdf036122334ebe94b43491715e1437181e64039e69455620d95a4 perly.y
  * acf1cbfd2545faeaaa58b1cf0cf9d7f98b5be0752eb7a54528ef904a9e2e1ca7 regen_perly.pl
  * ex: set ro: */