perly.y - add a diag_listed_as for Unimplemented

In 1557e6c32831defe4b25a924a88baf5f5e7bcbdd we added a perldiag entry
for 'Unimplemented', which was good. But in theory the message should
have been picked up by the diagnostics tests when it was introduced.
However, this error message is not constructed in the normal way, and
the string was not identified as a message. This adds the appropriate
comment in the appropirate place so that the diagnostics test will
notice it should it change in the future. This necessitated a
make perly_regen.

1 files changed, 195 insertions, 194 deletions

diff --git a/perly.act b/perly.act
index dfea9baf07..d5cb2da896 100644
--- a/perly.act
+++ b/perly.act
@@ -605,6 +605,7 @@ case 2:
   case 67:
 #line 554 "perly.y"
                         {
+                          /* diag_listed_as: Unimplemented */
 			  (yyval.opval) = newLISTOP(OP_DIE, 0, newOP(OP_PUSHMARK, 0),
 				newSVOP(OP_CONST, 0, newSVpvs("Unimplemented")));
 			}
@@ -612,7 +613,7 @@ case 2:
     break;
 
   case 68:
-#line 559 "perly.y"
+#line 560 "perly.y"
                         {
 			  (yyval.opval) = NULL;
 			  parser->copline = NOLINE;
@@ -621,7 +622,7 @@ case 2:
     break;
 
   case 69:
-#line 567 "perly.y"
+#line 568 "perly.y"
                         { OP *list;
 			  if ((ps[0].val.opval)) {
 			      OP *term = (ps[0].val.opval);
@@ -640,62 +641,62 @@ case 2:
     break;
 
   case 71:
-#line 586 "perly.y"
+#line 587 "perly.y"
                         { (yyval.opval) = op_unscope((ps[-1].val.opval)); }
 
     break;
 
   case 73:
-#line 594 "perly.y"
+#line 595 "perly.y"
                         { (yyval.opval) = NULL; }
 
     break;
 
   case 74:
-#line 596 "perly.y"
+#line 597 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 75:
-#line 598 "perly.y"
+#line 599 "perly.y"
                         { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
 
     break;
 
   case 76:
-#line 600 "perly.y"
+#line 601 "perly.y"
                         { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
 
     break;
 
   case 77:
-#line 602 "perly.y"
+#line 603 "perly.y"
                         { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((ps[0].val.opval)), (ps[-2].val.opval)); }
 
     break;
 
   case 78:
-#line 604 "perly.y"
+#line 605 "perly.y"
                         { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (ps[0].val.opval), (ps[-2].val.opval)); }
 
     break;
 
   case 79:
-#line 606 "perly.y"
+#line 607 "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 80:
-#line 609 "perly.y"
+#line 610 "perly.y"
                         { (yyval.opval) = newWHENOP((ps[0].val.opval), op_scope((ps[-2].val.opval))); }
 
     break;
 
   case 82:
-#line 616 "perly.y"
+#line 617 "perly.y"
                         {
 			  ((ps[0].val.opval))->op_flags |= OPf_PARENS;
 			  (yyval.opval) = op_scope((ps[0].val.opval));
@@ -704,7 +705,7 @@ case 2:
     break;
 
   case 83:
-#line 621 "perly.y"
+#line 622 "perly.y"
                         { parser->copline = (line_t)(ps[-5].val.ival);
 			    (yyval.opval) = newCONDOP(0,
 				newSTATEOP(OPf_SPECIAL,NULL,(ps[-3].val.opval)),
@@ -715,25 +716,25 @@ case 2:
     break;
 
   case 85:
-#line 633 "perly.y"
+#line 634 "perly.y"
                         { (yyval.opval) = op_scope((ps[0].val.opval)); }
 
     break;
 
   case 86:
-#line 638 "perly.y"
+#line 639 "perly.y"
                         { (yyval.opval) = NULL; }
 
     break;
 
   case 87:
-#line 640 "perly.y"
+#line 641 "perly.y"
                         { (yyval.opval) = op_scope((ps[0].val.opval)); }
 
     break;
 
   case 88:
-#line 645 "perly.y"
+#line 646 "perly.y"
                         { (yyval.ival) = (PL_min_intro_pending &&
 			    PL_max_intro_pending >=  PL_min_intro_pending);
 			  intro_my(); }
@@ -741,7 +742,7 @@ case 2:
     break;
 
   case 91:
-#line 657 "perly.y"
+#line 658 "perly.y"
                         { YYSTYPE tmplval;
 			  (void)scan_num("1", &tmplval);
 			  (yyval.opval) = tmplval.opval; }
@@ -749,52 +750,52 @@ case 2:
     break;
 
   case 93:
-#line 665 "perly.y"
+#line 666 "perly.y"
                         { (yyval.opval) = invert(scalar((ps[0].val.opval))); }
 
     break;
 
   case 94:
-#line 670 "perly.y"
+#line 671 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); intro_my(); }
 
     break;
 
   case 95:
-#line 674 "perly.y"
+#line 675 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); intro_my(); }
 
     break;
 
   case 96:
-#line 677 "perly.y"
+#line 678 "perly.y"
                                 { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 98:
-#line 682 "perly.y"
+#line 683 "perly.y"
                         { (yyval.ival) = start_subparse(FALSE, 0);
 			    SAVEFREESV(PL_compcv); }
 
     break;
 
   case 99:
-#line 688 "perly.y"
+#line 689 "perly.y"
                         { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
 			    SAVEFREESV(PL_compcv); }
 
     break;
 
   case 100:
-#line 693 "perly.y"
+#line 694 "perly.y"
                         { (yyval.ival) = start_subparse(TRUE, 0);
 			    SAVEFREESV(PL_compcv); }
 
     break;
 
   case 106:
-#line 712 "perly.y"
+#line 713 "perly.y"
                         {
 			  OP *attrlist = (ps[0].val.opval);
 			  if(attrlist && !PL_parser->sig_seen)
@@ -805,49 +806,49 @@ case 2:
     break;
 
   case 107:
-#line 719 "perly.y"
+#line 720 "perly.y"
                         { (yyval.opval) = NULL; }
 
     break;
 
   case 108:
-#line 724 "perly.y"
+#line 725 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 109:
-#line 726 "perly.y"
+#line 727 "perly.y"
                         { (yyval.opval) = NULL; }
 
     break;
 
   case 110:
-#line 737 "perly.y"
+#line 738 "perly.y"
                         { parser->in_my = 0; (yyval.opval) = NULL; }
 
     break;
 
   case 111:
-#line 739 "perly.y"
+#line 740 "perly.y"
                         { parser->in_my = 0; (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 112:
-#line 744 "perly.y"
+#line 745 "perly.y"
                         { (yyval.ival) = '@'; }
 
     break;
 
   case 113:
-#line 746 "perly.y"
+#line 747 "perly.y"
                         { (yyval.ival) = '%'; }
 
     break;
 
   case 114:
-#line 750 "perly.y"
+#line 751 "perly.y"
                         {
                             I32 sigil   = (ps[-2].val.ival);
                             OP *var     = (ps[-1].val.opval);
@@ -867,19 +868,19 @@ case 2:
     break;
 
   case 116:
-#line 771 "perly.y"
+#line 772 "perly.y"
                         { (yyval.opval) = newOP(OP_NULL, 0); }
 
     break;
 
   case 117:
-#line 773 "perly.y"
+#line 774 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 118:
-#line 779 "perly.y"
+#line 780 "perly.y"
                         {
                             OP *var     = (ps[-1].val.opval);
                             OP *defexpr = (ps[0].val.opval);
@@ -944,25 +945,25 @@ case 2:
     break;
 
   case 119:
-#line 844 "perly.y"
+#line 845 "perly.y"
                         { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 120:
-#line 846 "perly.y"
+#line 847 "perly.y"
                         { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 121:
-#line 852 "perly.y"
+#line 853 "perly.y"
                         { (yyval.opval) = (ps[-1].val.opval); }
 
     break;
 
   case 122:
-#line 854 "perly.y"
+#line 855 "perly.y"
                         {
 			  (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-2].val.opval), (ps[0].val.opval));
 			}
@@ -970,19 +971,19 @@ case 2:
     break;
 
   case 123:
-#line 858 "perly.y"
+#line 859 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 128:
-#line 875 "perly.y"
+#line 876 "perly.y"
                         { (yyval.opval) = (ps[-1].val.opval); }
 
     break;
 
   case 129:
-#line 878 "perly.y"
+#line 879 "perly.y"
                         {
                             ENTER;
                             SAVEIV(parser->sig_elems);
@@ -997,7 +998,7 @@ case 2:
     break;
 
   case 130:
-#line 889 "perly.y"
+#line 890 "perly.y"
                         {
                             OP            *sigops = (ps[0].val.opval);
                             struct op_argcheck_aux *aux;
@@ -1054,13 +1055,13 @@ case 2:
     break;
 
   case 132:
-#line 946 "perly.y"
+#line 947 "perly.y"
                                 { (yyval.opval) = NULL; }
 
     break;
 
   case 133:
-#line 952 "perly.y"
+#line 953 "perly.y"
                         {
 			  if (parser->copline > (line_t)(ps[-2].val.ival))
 			      parser->copline = (line_t)(ps[-2].val.ival);
@@ -1070,13 +1071,13 @@ case 2:
     break;
 
   case 135:
-#line 964 "perly.y"
+#line 965 "perly.y"
                                    { (yyval.opval) = NULL; }
 
     break;
 
   case 136:
-#line 969 "perly.y"
+#line 970 "perly.y"
                         {
 			  if (parser->copline > (line_t)(ps[-2].val.ival))
 			      parser->copline = (line_t)(ps[-2].val.ival);
@@ -1087,25 +1088,25 @@ case 2:
     break;
 
   case 137:
-#line 980 "perly.y"
+#line 981 "perly.y"
                         { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 138:
-#line 982 "perly.y"
+#line 983 "perly.y"
                         { (yyval.opval) = newLOGOP((ps[-1].val.ival), 0, (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 140:
-#line 988 "perly.y"
+#line 989 "perly.y"
                         { (yyval.opval) = (ps[-1].val.opval); }
 
     break;
 
   case 141:
-#line 990 "perly.y"
+#line 991 "perly.y"
                         {
 			  OP* term = (ps[0].val.opval);
 			  (yyval.opval) = op_append_elem(OP_LIST, (ps[-2].val.opval), term);
@@ -1114,7 +1115,7 @@ case 2:
     break;
 
   case 143:
-#line 999 "perly.y"
+#line 1000 "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)) );
 			}
@@ -1122,7 +1123,7 @@ case 2:
     break;
 
   case 144:
-#line 1003 "perly.y"
+#line 1004 "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)) );
 			}
@@ -1130,7 +1131,7 @@ case 2:
     break;
 
   case 145:
-#line 1007 "perly.y"
+#line 1008 "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)),
@@ -1140,7 +1141,7 @@ case 2:
     break;
 
   case 146:
-#line 1013 "perly.y"
+#line 1014 "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))));
@@ -1149,7 +1150,7 @@ case 2:
     break;
 
   case 147:
-#line 1018 "perly.y"
+#line 1019 "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)),
@@ -1159,7 +1160,7 @@ case 2:
     break;
 
   case 148:
-#line 1024 "perly.y"
+#line 1025 "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)),
@@ -1169,32 +1170,32 @@ case 2:
     break;
 
   case 149:
-#line 1030 "perly.y"
+#line 1031 "perly.y"
                         { (yyval.opval) = op_convert_list((ps[-1].val.ival), 0, (ps[0].val.opval)); }
 
     break;
 
   case 150:
-#line 1032 "perly.y"
+#line 1033 "perly.y"
                         { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
 
     break;
 
   case 151:
-#line 1034 "perly.y"
+#line 1035 "perly.y"
                         { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
 
     break;
 
   case 152:
-#line 1036 "perly.y"
+#line 1037 "perly.y"
                         { SvREFCNT_inc_simple_void(PL_compcv);
 			  (yyval.opval) = newANONATTRSUB((ps[-1].val.ival), 0, NULL, (ps[0].val.opval)); }
 
     break;
 
   case 153:
-#line 1039 "perly.y"
+#line 1040 "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)));
@@ -1203,20 +1204,20 @@ case 2:
     break;
 
   case 156:
-#line 1054 "perly.y"
+#line 1055 "perly.y"
                         { (yyval.opval) = newBINOP(OP_GELEM, 0, (ps[-4].val.opval), scalar((ps[-2].val.opval))); }
 
     break;
 
   case 157:
-#line 1056 "perly.y"
+#line 1057 "perly.y"
                         { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((ps[-3].val.opval)), scalar((ps[-1].val.opval)));
 			}
 
     break;
 
   case 158:
-#line 1059 "perly.y"
+#line 1060 "perly.y"
                         { (yyval.opval) = newBINOP(OP_AELEM, 0,
 					ref(newAVREF((ps[-4].val.opval)),OP_RV2AV),
 					scalar((ps[-1].val.opval)));
@@ -1225,7 +1226,7 @@ case 2:
     break;
 
   case 159:
-#line 1064 "perly.y"
+#line 1065 "perly.y"
                         { (yyval.opval) = newBINOP(OP_AELEM, 0,
 					ref(newAVREF((ps[-3].val.opval)),OP_RV2AV),
 					scalar((ps[-1].val.opval)));
@@ -1234,14 +1235,14 @@ case 2:
     break;
 
   case 160:
-#line 1069 "perly.y"
+#line 1070 "perly.y"
                         { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((ps[-4].val.opval)), jmaybe((ps[-2].val.opval)));
 			}
 
     break;
 
   case 161:
-#line 1072 "perly.y"
+#line 1073 "perly.y"
                         { (yyval.opval) = newBINOP(OP_HELEM, 0,
 					ref(newHVREF((ps[-5].val.opval)),OP_RV2HV),
 					jmaybe((ps[-2].val.opval))); }
@@ -1249,7 +1250,7 @@ case 2:
     break;
 
   case 162:
-#line 1076 "perly.y"
+#line 1077 "perly.y"
                         { (yyval.opval) = newBINOP(OP_HELEM, 0,
 					ref(newHVREF((ps[-4].val.opval)),OP_RV2HV),
 					jmaybe((ps[-2].val.opval))); }
@@ -1257,7 +1258,7 @@ case 2:
     break;
 
   case 163:
-#line 1080 "perly.y"
+#line 1081 "perly.y"
                         { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 				   newCVREF(0, scalar((ps[-3].val.opval))));
 			  if (parser->expect == XBLOCK)
@@ -1267,7 +1268,7 @@ case 2:
     break;
 
   case 164:
-#line 1086 "perly.y"
+#line 1087 "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)))));
@@ -1278,7 +1279,7 @@ case 2:
     break;
 
   case 165:
-#line 1094 "perly.y"
+#line 1095 "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)))));
@@ -1289,7 +1290,7 @@ case 2:
     break;
 
   case 166:
-#line 1101 "perly.y"
+#line 1102 "perly.y"
                         { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 				   newCVREF(0, scalar((ps[-2].val.opval))));
 			  if (parser->expect == XBLOCK)
@@ -1299,37 +1300,37 @@ case 2:
     break;
 
   case 167:
-#line 1107 "perly.y"
+#line 1108 "perly.y"
                         { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-4].val.opval)); }
 
     break;
 
   case 168:
-#line 1109 "perly.y"
+#line 1110 "perly.y"
                         { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-3].val.opval)); }
 
     break;
 
   case 169:
-#line 1111 "perly.y"
+#line 1112 "perly.y"
                         { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), NULL); }
 
     break;
 
   case 170:
-#line 1116 "perly.y"
+#line 1117 "perly.y"
                         { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[-2].val.opval), (ps[-1].val.ival), (ps[0].val.opval)); }
 
     break;
 
   case 171:
-#line 1118 "perly.y"
+#line 1119 "perly.y"
                         { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 172:
-#line 1120 "perly.y"
+#line 1121 "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)));
@@ -1338,183 +1339,183 @@ case 2:
     break;
 
   case 173:
-#line 1125 "perly.y"
+#line 1126 "perly.y"
                         { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 174:
-#line 1127 "perly.y"
+#line 1128 "perly.y"
                         { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 175:
-#line 1129 "perly.y"
+#line 1130 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 176:
-#line 1131 "perly.y"
+#line 1132 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 177:
-#line 1133 "perly.y"
+#line 1134 "perly.y"
                         { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 178:
-#line 1135 "perly.y"
+#line 1136 "perly.y"
                         { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 179:
-#line 1137 "perly.y"
+#line 1138 "perly.y"
                         { (yyval.opval) = newRANGE((ps[-1].val.ival), scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 180:
-#line 1139 "perly.y"
+#line 1140 "perly.y"
                         { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 181:
-#line 1141 "perly.y"
+#line 1142 "perly.y"
                         { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 182:
-#line 1143 "perly.y"
+#line 1144 "perly.y"
                         { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 183:
-#line 1145 "perly.y"
+#line 1146 "perly.y"
                         { (yyval.opval) = bind_match((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 184:
-#line 1149 "perly.y"
+#line 1150 "perly.y"
                         { (yyval.opval) = cmpchain_finish((ps[0].val.opval)); }
 
     break;
 
   case 185:
-#line 1151 "perly.y"
+#line 1152 "perly.y"
                         { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 186:
-#line 1153 "perly.y"
+#line 1154 "perly.y"
                         { yyerror("syntax error"); YYERROR; }
 
     break;
 
   case 187:
-#line 1155 "perly.y"
+#line 1156 "perly.y"
                         { yyerror("syntax error"); YYERROR; }
 
     break;
 
   case 188:
-#line 1159 "perly.y"
+#line 1160 "perly.y"
                         { (yyval.opval) = cmpchain_start((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 189:
-#line 1161 "perly.y"
+#line 1162 "perly.y"
                         { (yyval.opval) = cmpchain_extend((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 190:
-#line 1165 "perly.y"
+#line 1166 "perly.y"
                         { (yyval.opval) = cmpchain_finish((ps[0].val.opval)); }
 
     break;
 
   case 191:
-#line 1167 "perly.y"
+#line 1168 "perly.y"
                         { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
 
     break;
 
   case 192:
-#line 1169 "perly.y"
+#line 1170 "perly.y"
                         { yyerror("syntax error"); YYERROR; }
 
     break;
 
   case 193:
-#line 1171 "perly.y"
+#line 1172 "perly.y"
                         { yyerror("syntax error"); YYERROR; }
 
     break;
 
   case 194:
-#line 1175 "perly.y"
+#line 1176 "perly.y"
                         { (yyval.opval) = cmpchain_start((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 195:
-#line 1177 "perly.y"
+#line 1178 "perly.y"
                         { (yyval.opval) = cmpchain_extend((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 196:
-#line 1182 "perly.y"
+#line 1183 "perly.y"
                         { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[0].val.opval))); }
 
     break;
 
   case 197:
-#line 1184 "perly.y"
+#line 1185 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 198:
-#line 1187 "perly.y"
+#line 1188 "perly.y"
                         { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
 
     break;
 
   case 199:
-#line 1189 "perly.y"
+#line 1190 "perly.y"
                         { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, scalar((ps[0].val.opval))); }
 
     break;
 
   case 200:
-#line 1191 "perly.y"
+#line 1192 "perly.y"
                         { (yyval.opval) = newUNOP(OP_POSTINC, 0,
 					op_lvalue(scalar((ps[-1].val.opval)), OP_POSTINC)); }
 
     break;
 
   case 201:
-#line 1194 "perly.y"
+#line 1195 "perly.y"
                         { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
 					op_lvalue(scalar((ps[-1].val.opval)), OP_POSTDEC));}
 
     break;
 
   case 202:
-#line 1197 "perly.y"
+#line 1198 "perly.y"
                         { (yyval.opval) = op_convert_list(OP_JOIN, 0,
 				       op_append_elem(
 					OP_LIST,
@@ -1529,137 +1530,137 @@ case 2:
     break;
 
   case 203:
-#line 1208 "perly.y"
+#line 1209 "perly.y"
                         { (yyval.opval) = newUNOP(OP_PREINC, 0,
 					op_lvalue(scalar((ps[0].val.opval)), OP_PREINC)); }
 
     break;
 
   case 204:
-#line 1211 "perly.y"
+#line 1212 "perly.y"
                         { (yyval.opval) = newUNOP(OP_PREDEC, 0,
 					op_lvalue(scalar((ps[0].val.opval)), OP_PREDEC)); }
 
     break;
 
   case 205:
-#line 1219 "perly.y"
+#line 1220 "perly.y"
                         { (yyval.opval) = newANONLIST((ps[-1].val.opval)); }
 
     break;
 
   case 206:
-#line 1221 "perly.y"
+#line 1222 "perly.y"
                         { (yyval.opval) = newANONHASH((ps[-2].val.opval)); }
 
     break;
 
   case 207:
-#line 1223 "perly.y"
+#line 1224 "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 208:
-#line 1226 "perly.y"
+#line 1227 "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 209:
-#line 1232 "perly.y"
+#line 1233 "perly.y"
                         { (yyval.opval) = dofile((ps[0].val.opval), (ps[-1].val.ival));}
 
     break;
 
   case 210:
-#line 1234 "perly.y"
+#line 1235 "perly.y"
                         { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, op_scope((ps[0].val.opval)));}
 
     break;
 
   case 215:
-#line 1242 "perly.y"
+#line 1243 "perly.y"
                         { (yyval.opval) = newCONDOP(0, (ps[-4].val.opval), (ps[-2].val.opval), (ps[0].val.opval)); }
 
     break;
 
   case 216:
-#line 1244 "perly.y"
+#line 1245 "perly.y"
                         { (yyval.opval) = newUNOP(OP_REFGEN, 0, (ps[0].val.opval)); }
 
     break;
 
   case 217:
-#line 1246 "perly.y"
+#line 1247 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 218:
-#line 1248 "perly.y"
+#line 1249 "perly.y"
                         { (yyval.opval) = localize((ps[0].val.opval),0); }
 
     break;
 
   case 219:
-#line 1250 "perly.y"
+#line 1251 "perly.y"
                         { (yyval.opval) = sawparens((ps[-1].val.opval)); }
 
     break;
 
   case 220:
-#line 1252 "perly.y"
+#line 1253 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 221:
-#line 1254 "perly.y"
+#line 1255 "perly.y"
                         { (yyval.opval) = sawparens(newNULLLIST()); }
 
     break;
 
   case 222:
-#line 1256 "perly.y"
+#line 1257 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 223:
-#line 1258 "perly.y"
+#line 1259 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 224:
-#line 1260 "perly.y"
+#line 1261 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 225:
-#line 1262 "perly.y"
+#line 1263 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 226:
-#line 1264 "perly.y"
+#line 1265 "perly.y"
                         { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[0].val.opval), OP_AV2ARYLEN));}
 
     break;
 
   case 227:
-#line 1266 "perly.y"
+#line 1267 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 228:
-#line 1268 "perly.y"
+#line 1269 "perly.y"
                         { (yyval.opval) = op_prepend_elem(OP_ASLICE,
 				newOP(OP_PUSHMARK, 0),
 				    newLISTOP(OP_ASLICE, 0,
@@ -1673,7 +1674,7 @@ case 2:
     break;
 
   case 229:
-#line 1278 "perly.y"
+#line 1279 "perly.y"
                         { (yyval.opval) = op_prepend_elem(OP_KVASLICE,
 				newOP(OP_PUSHMARK, 0),
 				    newLISTOP(OP_KVASLICE, 0,
@@ -1687,7 +1688,7 @@ case 2:
     break;
 
   case 230:
-#line 1288 "perly.y"
+#line 1289 "perly.y"
                         { (yyval.opval) = op_prepend_elem(OP_HSLICE,
 				newOP(OP_PUSHMARK, 0),
 				    newLISTOP(OP_HSLICE, 0,
@@ -1701,7 +1702,7 @@ case 2:
     break;
 
   case 231:
-#line 1298 "perly.y"
+#line 1299 "perly.y"
                         { (yyval.opval) = op_prepend_elem(OP_KVHSLICE,
 				newOP(OP_PUSHMARK, 0),
 				    newLISTOP(OP_KVHSLICE, 0,
@@ -1715,26 +1716,26 @@ case 2:
     break;
 
   case 232:
-#line 1308 "perly.y"
+#line 1309 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 233:
-#line 1310 "perly.y"
+#line 1311 "perly.y"
                         { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[0].val.opval))); }
 
     break;
 
   case 234:
-#line 1312 "perly.y"
+#line 1313 "perly.y"
                         { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[-2].val.opval)));
 			}
 
     break;
 
   case 235:
-#line 1315 "perly.y"
+#line 1316 "perly.y"
                         {
 			  (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 				op_append_elem(OP_LIST, (ps[-1].val.opval), scalar((ps[-3].val.opval))));
@@ -1743,7 +1744,7 @@ case 2:
     break;
 
   case 236:
-#line 1320 "perly.y"
+#line 1321 "perly.y"
                         { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 			    op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval))));
 			}
@@ -1751,130 +1752,130 @@ case 2:
     break;
 
   case 237:
-#line 1324 "perly.y"
+#line 1325 "perly.y"
                         { (yyval.opval) = newSVREF((ps[-3].val.opval)); }
 
     break;
 
   case 238:
-#line 1326 "perly.y"
+#line 1327 "perly.y"
                         { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
 
     break;
 
   case 239:
-#line 1328 "perly.y"
+#line 1329 "perly.y"
                         { (yyval.opval) = newHVREF((ps[-3].val.opval)); }
 
     break;
 
   case 240:
-#line 1330 "perly.y"
+#line 1331 "perly.y"
                         { (yyval.opval) = newUNOP(OP_ENTERSUB, 0,
 				       scalar(newCVREF((ps[-1].val.ival),(ps[-3].val.opval)))); }
 
     break;
 
   case 241:
-#line 1333 "perly.y"
+#line 1334 "perly.y"
                         { (yyval.opval) = newGVREF(0,(ps[-3].val.opval)); }
 
     break;
 
   case 242:
-#line 1335 "perly.y"
+#line 1336 "perly.y"
                         { (yyval.opval) = newOP((ps[0].val.ival), OPf_SPECIAL);
 			    PL_hints |= HINT_BLOCK_SCOPE; }
 
     break;
 
   case 243:
-#line 1338 "perly.y"
+#line 1339 "perly.y"
                         { (yyval.opval) = newLOOPEX((ps[-1].val.ival),(ps[0].val.opval)); }
 
     break;
 
   case 244:
-#line 1340 "perly.y"
+#line 1341 "perly.y"
                         { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
 
     break;
 
   case 245:
-#line 1342 "perly.y"
+#line 1343 "perly.y"
                         { (yyval.opval) = newOP((ps[0].val.ival), 0); }
 
     break;
 
   case 246:
-#line 1344 "perly.y"
+#line 1345 "perly.y"
                         { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
 
     break;
 
   case 247:
-#line 1346 "perly.y"
+#line 1347 "perly.y"
                         { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
 
     break;
 
   case 248:
-#line 1348 "perly.y"
+#line 1349 "perly.y"
                         { (yyval.opval) = newOP(OP_REQUIRE, (ps[0].val.ival) ? OPf_SPECIAL : 0); }
 
     break;
 
   case 249:
-#line 1350 "perly.y"
+#line 1351 "perly.y"
                         { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[-1].val.ival) ? OPf_SPECIAL : 0, (ps[0].val.opval)); }
 
     break;
 
   case 250:
-#line 1352 "perly.y"
+#line 1353 "perly.y"
                         { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
 
     break;
 
   case 251:
-#line 1354 "perly.y"
+#line 1355 "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 252:
-#line 1357 "perly.y"
+#line 1358 "perly.y"
                         { (yyval.opval) = newOP((ps[0].val.ival), 0); }
 
     break;
 
   case 253:
-#line 1359 "perly.y"
+#line 1360 "perly.y"
                         { (yyval.opval) = newOP((ps[-2].val.ival), 0);}
 
     break;
 
   case 254:
-#line 1361 "perly.y"
+#line 1362 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 255:
-#line 1363 "perly.y"
+#line 1364 "perly.y"
                         { (yyval.opval) = (ps[-2].val.opval); }
 
     break;
 
   case 256:
-#line 1365 "perly.y"
+#line 1366 "perly.y"
                         { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
 
     break;
 
   case 257:
-#line 1367 "perly.y"
+#line 1368 "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); }
@@ -1882,13 +1883,13 @@ case 2:
     break;
 
   case 258:
-#line 1371 "perly.y"
+#line 1372 "perly.y"
                         { (yyval.opval) = newUNOP((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
 
     break;
 
   case 259:
-#line 1373 "perly.y"
+#line 1374 "perly.y"
                         {
 			    if (   (ps[0].val.opval)->op_type != OP_TRANS
 			        && (ps[0].val.opval)->op_type != OP_TRANSR
@@ -1903,85 +1904,85 @@ case 2:
     break;
 
   case 260:
-#line 1384 "perly.y"
+#line 1385 "perly.y"
                         { (yyval.opval) = pmruntime((ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), 1, (ps[-4].val.ival)); }
 
     break;
 
   case 264:
-#line 1393 "perly.y"
+#line 1394 "perly.y"
                         { (yyval.opval) = my_attrs((ps[-1].val.opval),(ps[0].val.opval)); }
 
     break;
 
   case 265:
-#line 1395 "perly.y"
+#line 1396 "perly.y"
                         { (yyval.opval) = localize((ps[0].val.opval),1); }
 
     break;
 
   case 266:
-#line 1397 "perly.y"
+#line 1398 "perly.y"
                         { (yyval.opval) = newUNOP(OP_REFGEN, 0, my_attrs((ps[-1].val.opval),(ps[0].val.opval))); }
 
     break;
 
   case 267:
-#line 1399 "perly.y"
+#line 1400 "perly.y"
                         { (yyval.opval) = newUNOP(OP_REFGEN, 0, localize((ps[0].val.opval),1)); }
 
     break;
 
   case 268:
-#line 1404 "perly.y"
+#line 1405 "perly.y"
                         { (yyval.opval) = sawparens((ps[-1].val.opval)); }
 
     break;
 
   case 269:
-#line 1406 "perly.y"
+#line 1407 "perly.y"
                         { (yyval.opval) = sawparens(newNULLLIST()); }
 
     break;
 
   case 270:
-#line 1409 "perly.y"
+#line 1410 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 271:
-#line 1411 "perly.y"
+#line 1412 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 272:
-#line 1413 "perly.y"
+#line 1414 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 278:
-#line 1429 "perly.y"
+#line 1430 "perly.y"
                                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 279:
-#line 1435 "perly.y"
+#line 1436 "perly.y"
                         { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
 
     break;
 
   case 280:
-#line 1440 "perly.y"
+#line 1441 "perly.y"
                         { (yyval.opval) = (ps[-1].val.opval); }
 
     break;
 
   case 281:
-#line 1442 "perly.y"
+#line 1443 "perly.y"
                         {
 			  (yyval.opval) = op_append_elem(OP_LIST, (ps[-2].val.opval), (ps[0].val.opval));
 			}
@@ -1989,25 +1990,25 @@ case 2:
     break;
 
   case 283:
-#line 1449 "perly.y"
+#line 1450 "perly.y"
                         { parser->in_my = 0; (yyval.opval) = (ps[0].val.opval); }
 
     break;
 
   case 291:
-#line 1466 "perly.y"
+#line 1467 "perly.y"
                         { (yyval.opval) = newCVREF((ps[-1].val.ival),(ps[0].val.opval)); }
 
     break;
 
   case 292:
-#line 1470 "perly.y"
+#line 1471 "perly.y"
                         { (yyval.opval) = newSVREF((ps[0].val.opval)); }
 
     break;
 
   case 293:
-#line 1474 "perly.y"
+#line 1475 "perly.y"
                         { (yyval.opval) = newAVREF((ps[0].val.opval));
 			  if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival);
 			}
@@ -2015,7 +2016,7 @@ case 2:
     break;
 
   case 294:
-#line 1480 "perly.y"
+#line 1481 "perly.y"
                         { (yyval.opval) = newHVREF((ps[0].val.opval));
 			  if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival);
 			}
@@ -2023,61 +2024,61 @@ case 2:
     break;
 
   case 295:
-#line 1486 "perly.y"
+#line 1487 "perly.y"
                         { (yyval.opval) = newAVREF((ps[0].val.opval)); }
 
     break;
 
   case 296:
-#line 1488 "perly.y"
+#line 1489 "perly.y"
                         { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
 
     break;
 
   case 297:
-#line 1492 "perly.y"
+#line 1493 "perly.y"
                         { (yyval.opval) = newGVREF(0,(ps[0].val.opval)); }
 
     break;
 
   case 299:
-#line 1497 "perly.y"
+#line 1498 "perly.y"
                         { (yyval.opval) = newAVREF((ps[-2].val.opval)); }
 
     break;
 
   case 301:
-#line 1502 "perly.y"
+#line 1503 "perly.y"
                         { (yyval.opval) = newHVREF((ps[-2].val.opval)); }
 
     break;
 
   case 303:
-#line 1507 "perly.y"
+#line 1508 "perly.y"
                         { (yyval.opval) = newGVREF(0,(ps[-2].val.opval)); }
 
     break;
 
   case 304:
-#line 1512 "perly.y"
+#line 1513 "perly.y"
                         { (yyval.opval) = scalar((ps[0].val.opval)); }
 
     break;
 
   case 305:
-#line 1514 "perly.y"
+#line 1515 "perly.y"
                         { (yyval.opval) = scalar((ps[0].val.opval)); }
 
     break;
 
   case 306:
-#line 1516 "perly.y"
+#line 1517 "perly.y"
                         { (yyval.opval) = op_scope((ps[0].val.opval)); }
 
     break;
 
   case 307:
-#line 1519 "perly.y"
+#line 1520 "perly.y"
                         { (yyval.opval) = (ps[0].val.opval); }
 
     break;
@@ -2089,6 +2090,6 @@ case 2:
     
 
 /* Generated from:
- * 5ba7f8a893bb141a95582705e51153fff2545e4365cca4e6af78232a0722e764 perly.y
+ * b4fc8c1d307bdc8f64eba56825513a87509f0ed05acf77fb0e96c7e5a1d41802 perly.y
  * acf1cbfd2545faeaaa58b1cf0cf9d7f98b5be0752eb7a54528ef904a9e2e1ca7 regen_perly.pl
  * ex: set ro: */