This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Tweak change 27457 - make PL_lasttoke MAD only, but teach makedef.pl
[perl5.git] / perly.act
CommitLineData
0de566d7 1case 2:
7f46837f 2#line 105 "perly.y"
9a9798c2 3 { (yyval.ival) = (yyvsp[-1].ival); newPROG(block_end((yyvsp[-1].ival),(yyvsp[0].opval))); ;}
0de566d7
DM		 4 break;
5
6 case 3:
7f46837f 7#line 110 "perly.y"
9a9798c2
YST		 8 { if (PL_copline > (line_t)(yyvsp[-3].ival))
9 PL_copline = (line_t)(yyvsp[-3].ival);
10 (yyval.opval) = block_end((yyvsp[-2].ival), (yyvsp[-1].opval)); ;}
0de566d7
DM		 11 break;
12
13 case 4:
7f46837f 14#line 116 "perly.y"
9a9798c2 15 { (yyval.ival) = block_start(TRUE); ;}
0de566d7
DM		 16 break;
17
18 case 5:
7f46837f 19#line 120 "perly.y"
0d863452
RH		 20 { (yyval.ival) = (I32) allocmy("$_"); ;}
21 break;
22
23 case 6:
7f46837f 24#line 124 "perly.y"
0de566d7 25 {
9a9798c2 26 PL_expect = XSTATE; (yyval.ival) = block_start(TRUE);
0de566d7
DM		 27 ;}
28 break;
29
0d863452 30 case 7:
7f46837f 31#line 131 "perly.y"
9a9798c2
YST		 32 { if (PL_copline > (line_t)(yyvsp[-3].ival))
33 PL_copline = (line_t)(yyvsp[-3].ival);
34 (yyval.opval) = block_end((yyvsp[-2].ival), (yyvsp[-1].opval)); ;}
0de566d7
DM		 35 break;
36
0d863452 37 case 8:
7f46837f 38#line 137 "perly.y"
9a9798c2 39 { (yyval.ival) = block_start(FALSE); ;}
0de566d7
DM		 40 break;
41
0d863452 42 case 9:
7f46837f 43#line 141 "perly.y"
9a9798c2 44 { (yyval.ival) = PL_savestack_ix; ;}
0de566d7
DM		 45 break;
46
0d863452 47 case 10:
7f46837f 48#line 145 "perly.y"
9a9798c2 49 { (yyval.opval) = Nullop; ;}
0de566d7
DM		 50 break;
51
0d863452 52 case 11:
7f46837f 53#line 147 "perly.y"
9a9798c2 54 { (yyval.opval) = (yyvsp[-1].opval); ;}
0de566d7
DM		 55 break;
56
0d863452 57 case 12:
7f46837f 58#line 149 "perly.y"
9a9798c2
YST		 59 { LEAVE_SCOPE((yyvsp[-1].ival));
60 (yyval.opval) = append_list(OP_LINESEQ,
61 (LISTOP*)(yyvsp[-2].opval), (LISTOP*)(yyvsp[0].opval));
500bedb6 62 PL_pad_reset_pending = TRUE;
9a9798c2 63 if ((yyvsp[-2].opval) && (yyvsp[0].opval)) PL_hints |= HINT_BLOCK_SCOPE; ;}
500bedb6
DM		 64 break;
65
0d863452 66 case 13:
7f46837f 67#line 158 "perly.y"
0d863452
RH		 68 { (yyval.opval) = newSTATEOP(0, (yyvsp[-1].pval), (yyvsp[0].opval)); ;}
69 break;
70
71 case 15:
7f46837f 72#line 161 "perly.y"
0d863452
RH		 73 { (yyval.opval) = (yyvsp[0].opval); ;}
74 break;
75
76 case 16:
7f46837f 77#line 163 "perly.y"
9a9798c2 78 { (yyval.opval) = newSTATEOP(0, (yyvsp[-1].pval), (yyvsp[0].opval)); ;}
0de566d7
DM		 79 break;
80
0d863452 81 case 17:
7f46837f 82#line 165 "perly.y"
9a9798c2
YST		 83 { if ((yyvsp[-1].pval) != Nullch) {
84 (yyval.opval) = newSTATEOP(0, (yyvsp[-1].pval), newOP(OP_NULL, 0));
0de566d7
DM		 85 }
86 else {
9a9798c2 87 (yyval.opval) = Nullop;
0de566d7
DM		 88 PL_copline = NOLINE;
89 }
90 PL_expect = XSTATE; ;}
91 break;
92
0d863452 93 case 18:
7f46837f 94#line 174 "perly.y"
9a9798c2 95 { (yyval.opval) = newSTATEOP(0, (yyvsp[-2].pval), (yyvsp[-1].opval));
0de566d7
DM		 96 PL_expect = XSTATE; ;}
97 break;
98
0d863452 99 case 19:
7f46837f 100#line 180 "perly.y"
9a9798c2 101 { (yyval.opval) = Nullop; ;}
0de566d7
DM		 102 break;
103
0d863452 104 case 20:
7f46837f 105#line 182 "perly.y"
9a9798c2 106 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 107 break;
108
0d863452 109 case 21:
7f46837f 110#line 184 "perly.y"
9a9798c2 111 { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[0].opval), (yyvsp[-2].opval)); ;}
0de566d7
DM		 112 break;
113
0d863452 114 case 22:
7f46837f 115#line 186 "perly.y"
9a9798c2 116 { (yyval.opval) = newLOGOP(OP_OR, 0, (yyvsp[0].opval), (yyvsp[-2].opval)); ;}
0de566d7
DM		 117 break;
118
0d863452 119 case 23:
7f46837f 120#line 188 "perly.y"
9a9798c2 121 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((yyvsp[0].opval)), (yyvsp[-2].opval)); ;}
0de566d7
DM		 122 break;
123
0d863452 124 case 24:
7f46837f 125#line 190 "perly.y"
9a9798c2 126 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (yyvsp[0].opval), (yyvsp[-2].opval));;}
0de566d7
DM		 127 break;
128
0d863452 129 case 25:
7f46837f 130#line 192 "perly.y"
9a9798c2
YST		 131 { (yyval.opval) = newFOROP(0, Nullch, (line_t)(yyvsp[-1].ival),
132 Nullop, (yyvsp[0].opval), (yyvsp[-2].opval), Nullop); ;}
0de566d7
DM		 133 break;
134
0d863452 135 case 26:
7f46837f 136#line 198 "perly.y"
9a9798c2 137 { (yyval.opval) = Nullop; ;}
0de566d7
DM		 138 break;
139
0d863452 140 case 27:
7f46837f 141#line 200 "perly.y"
9a9798c2 142 { ((yyvsp[0].opval))->op_flags |= OPf_PARENS; (yyval.opval) = scope((yyvsp[0].opval)); ;}
0de566d7
DM		 143 break;
144
0d863452 145 case 28:
7f46837f 146#line 202 "perly.y"
9a9798c2
YST		 147 { PL_copline = (line_t)(yyvsp[-5].ival);
148 (yyval.opval) = newCONDOP(0, (yyvsp[-3].opval), scope((yyvsp[-1].opval)), (yyvsp[0].opval));
0de566d7
DM		 149 PL_hints |= HINT_BLOCK_SCOPE; ;}
150 break;
151
0d863452 152 case 29:
7f46837f 153#line 209 "perly.y"
9a9798c2
YST		 154 { PL_copline = (line_t)(yyvsp[-6].ival);
155 (yyval.opval) = block_end((yyvsp[-4].ival),
156 newCONDOP(0, (yyvsp[-3].opval), scope((yyvsp[-1].opval)), (yyvsp[0].opval))); ;}
0de566d7
DM		 157 break;
158
0d863452 159 case 30:
7f46837f 160#line 213 "perly.y"
9a9798c2
YST		 161 { PL_copline = (line_t)(yyvsp[-6].ival);
162 (yyval.opval) = block_end((yyvsp[-4].ival),
163 newCONDOP(0, (yyvsp[-3].opval), scope((yyvsp[-1].opval)), (yyvsp[0].opval))); ;}
0de566d7
DM		 164 break;
165
0d863452 166 case 31:
7f46837f 167#line 220 "perly.y"
0d863452
RH		 168 { (yyval.opval) = block_end((yyvsp[-3].ival),
169 newWHENOP((yyvsp[-2].opval), scope((yyvsp[0].opval)))); ;}
170 break;
171
172 case 32:
7f46837f 173#line 223 "perly.y"
0d863452
RH		 174 { (yyval.opval) = newWHENOP(0, scope((yyvsp[0].opval))); ;}
175 break;
176
177 case 33:
7f46837f 178#line 228 "perly.y"
9a9798c2 179 { (yyval.opval) = Nullop; ;}
0de566d7
DM		 180 break;
181
0d863452 182 case 34:
7f46837f 183#line 230 "perly.y"
9a9798c2 184 { (yyval.opval) = scope((yyvsp[0].opval)); ;}
0de566d7
DM		 185 break;
186
0d863452 187 case 35:
7f46837f 188#line 235 "perly.y"
9a9798c2
YST		 189 { PL_copline = (line_t)(yyvsp[-7].ival);
190 (yyval.opval) = block_end((yyvsp[-5].ival),
191 newSTATEOP(0, (yyvsp[-8].pval),
0de566d7 192 newWHILEOP(0, 1, (LOOP*)Nullop,
9a9798c2 193 (yyvsp[-7].ival), (yyvsp[-4].opval), (yyvsp[-1].opval), (yyvsp[0].opval), (yyvsp[-2].ival)))); ;}
0de566d7
DM		 194 break;
195
0d863452 196 case 36:
7f46837f 197#line 241 "perly.y"
9a9798c2
YST		 198 { PL_copline = (line_t)(yyvsp[-7].ival);
199 (yyval.opval) = block_end((yyvsp[-5].ival),
200 newSTATEOP(0, (yyvsp[-8].pval),
0de566d7 201 newWHILEOP(0, 1, (LOOP*)Nullop,
9a9798c2 202 (yyvsp[-7].ival), (yyvsp[-4].opval), (yyvsp[-1].opval), (yyvsp[0].opval), (yyvsp[-2].ival)))); ;}
0de566d7
DM		 203 break;
204
0d863452 205 case 37:
7f46837f 206#line 247 "perly.y"
9a9798c2
YST		 207 { (yyval.opval) = block_end((yyvsp[-6].ival),
208 newFOROP(0, (yyvsp[-9].pval), (line_t)(yyvsp[-8].ival), (yyvsp[-5].opval), (yyvsp[-3].opval), (yyvsp[-1].opval), (yyvsp[0].opval))); ;}
0de566d7
DM		 209 break;
210
0d863452 211 case 38:
7f46837f 212#line 250 "perly.y"
9a9798c2
YST		 213 { (yyval.opval) = block_end((yyvsp[-4].ival),
214 newFOROP(0, (yyvsp[-8].pval), (line_t)(yyvsp[-7].ival), mod((yyvsp[-6].opval), OP_ENTERLOOP),
215 (yyvsp[-3].opval), (yyvsp[-1].opval), (yyvsp[0].opval))); ;}
0de566d7
DM		 216 break;
217
0d863452 218 case 39:
7f46837f 219#line 254 "perly.y"
9a9798c2
YST		 220 { (yyval.opval) = block_end((yyvsp[-4].ival),
221 newFOROP(0, (yyvsp[-7].pval), (line_t)(yyvsp[-6].ival), Nullop, (yyvsp[-3].opval), (yyvsp[-1].opval), (yyvsp[0].opval))); ;}
0de566d7
DM		 222 break;
223
0d863452 224 case 40:
7f46837f 225#line 259 "perly.y"
0de566d7 226 { OP *forop;
9a9798c2
YST		 227 PL_copline = (line_t)(yyvsp[-10].ival);
228 forop = newSTATEOP(0, (yyvsp[-11].pval),
0de566d7 229 newWHILEOP(0, 1, (LOOP*)Nullop,
9a9798c2
YST		 230 (yyvsp[-10].ival), scalar((yyvsp[-5].opval)),
231 (yyvsp[0].opval), (yyvsp[-2].opval), (yyvsp[-3].ival)));
232 if ((yyvsp[-7].opval)) {
0de566d7 233 forop = append_elem(OP_LINESEQ,
9a9798c2
YST		 234 newSTATEOP(0, ((yyvsp[-11].pval)?savepv((yyvsp[-11].pval)):Nullch),
235 (yyvsp[-7].opval)),
0de566d7
DM		 236 forop);
237 }
238
9a9798c2 239 (yyval.opval) = block_end((yyvsp[-8].ival), forop); ;}
0de566d7
DM		 240 break;
241
0d863452 242 case 41:
7f46837f 243#line 274 "perly.y"
9a9798c2 244 { (yyval.opval) = newSTATEOP(0, (yyvsp[-2].pval),
0de566d7 245 newWHILEOP(0, 1, (LOOP*)Nullop,
9a9798c2 246 NOLINE, Nullop, (yyvsp[-1].opval), (yyvsp[0].opval), 0)); ;}
0de566d7
DM		 247 break;
248
0d863452 249 case 42:
7f46837f 250#line 281 "perly.y"
0d863452
RH		 251 { PL_copline = (line_t) (yyvsp[-6].ival);
252 (yyval.opval) = block_end((yyvsp[-4].ival),
253 newSTATEOP(0, (yyvsp[-7].pval),
254 newGIVENOP((yyvsp[-2].opval), scope((yyvsp[0].opval)),
255 (PADOFFSET) (yyvsp[-3].ival)) )); ;}
256 break;
257
258 case 43:
7f46837f 259#line 290 "perly.y"
9a9798c2 260 { (yyval.ival) = (PL_min_intro_pending &&
a034e688
DM		 261 PL_max_intro_pending >= PL_min_intro_pending);
262 intro_my(); ;}
0de566d7
DM		 263 break;
264
0d863452 265 case 44:
7f46837f 266#line 296 "perly.y"
9a9798c2 267 { (yyval.opval) = Nullop; ;}
0de566d7
DM		 268 break;
269
0d863452 270 case 46:
7f46837f 271#line 302 "perly.y"
9a9798c2 272 { (void)scan_num("1", &yylval); (yyval.opval) = yylval.opval; ;}
0de566d7
DM		 273 break;
274
0d863452 275 case 48:
7f46837f 276#line 308 "perly.y"
9a9798c2 277 { (yyval.opval) = invert(scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 278 break;
279
0d863452 280 case 49:
7f46837f 281#line 313 "perly.y"
9a9798c2 282 { (yyval.opval) = (yyvsp[0].opval); intro_my(); ;}
0de566d7
DM		 283 break;
284
0d863452 285 case 50:
7f46837f 286#line 317 "perly.y"
9a9798c2 287 { (yyval.opval) = (yyvsp[0].opval); intro_my(); ;}
0de566d7
DM		 288 break;
289
0d863452 290 case 51:
7f46837f 291#line 321 "perly.y"
9a9798c2 292 { (yyval.opval) = (yyvsp[0].opval); intro_my(); ;}
0de566d7
DM		 293 break;
294
0d863452 295 case 52:
7f46837f 296#line 326 "perly.y"
9a9798c2 297 { (yyval.pval) = Nullch; ;}
0de566d7
DM		 298 break;
299
0d863452 300 case 54:
7f46837f 301#line 332 "perly.y"
9a9798c2 302 { (yyval.ival) = 0; ;}
0de566d7
DM		 303 break;
304
0d863452 305 case 55:
7f46837f 306#line 334 "perly.y"
9a9798c2 307 { (yyval.ival) = 0; ;}
0de566d7
DM		 308 break;
309
0d863452 310 case 56:
7f46837f 311#line 336 "perly.y"
9a9798c2 312 { (yyval.ival) = 0; ;}
0de566d7
DM		 313 break;
314
0d863452 315 case 57:
7f46837f 316#line 338 "perly.y"
9a9798c2 317 { (yyval.ival) = 0; ;}
0de566d7
DM		 318 break;
319
0d863452 320 case 58:
7f46837f 321#line 340 "perly.y"
9a9798c2 322 { (yyval.ival) = 0; ;}
0de566d7
DM		 323 break;
324
0d863452 325 case 59:
7f46837f 326#line 344 "perly.y"
9a9798c2 327 { newFORM((yyvsp[-2].ival), (yyvsp[-1].opval), (yyvsp[0].opval)); ;}
0de566d7
DM		 328 break;
329
0d863452 330 case 60:
7f46837f 331#line 347 "perly.y"
9a9798c2 332 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 333 break;
334
0d863452 335 case 61:
7f46837f 336#line 348 "perly.y"
9a9798c2 337 { (yyval.opval) = Nullop; ;}
0de566d7
DM		 338 break;
339
0d863452 340 case 62:
7f46837f 341#line 353 "perly.y"
9a9798c2 342 { newMYSUB((yyvsp[-4].ival), (yyvsp[-3].opval), (yyvsp[-2].opval), (yyvsp[-1].opval), (yyvsp[0].opval)); ;}
0de566d7
DM		 343 break;
344
0d863452 345 case 63:
7f46837f 346#line 358 "perly.y"
9a9798c2 347 { newATTRSUB((yyvsp[-4].ival), (yyvsp[-3].opval), (yyvsp[-2].opval), (yyvsp[-1].opval), (yyvsp[0].opval)); ;}
0de566d7
DM		 348 break;
349
0d863452 350 case 64:
7f46837f 351#line 362 "perly.y"
9a9798c2 352 { (yyval.ival) = start_subparse(FALSE, 0); ;}
0de566d7
DM		 353 break;
354
0d863452 355 case 65:
7f46837f 356#line 366 "perly.y"
9a9798c2 357 { (yyval.ival) = start_subparse(FALSE, CVf_ANON); ;}
0de566d7
DM		 358 break;
359
0d863452 360 case 66:
7f46837f 361#line 370 "perly.y"
9a9798c2 362 { (yyval.ival) = start_subparse(TRUE, 0); ;}
500bedb6
DM		 363 break;
364
0d863452 365 case 67:
7f46837f 366#line 374 "perly.y"
2596d9fe 367 { const char *const name = SvPV_nolen_const(((SVOP*)(yyvsp[0].opval))->op_sv);
0de566d7
DM		 368 if (strEQ(name, "BEGIN") || strEQ(name, "END")
369 || strEQ(name, "INIT") || strEQ(name, "CHECK"))
370 CvSPECIAL_on(PL_compcv);
9a9798c2 371 (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 372 break;
373
0d863452 374 case 68:
7f46837f 375#line 383 "perly.y"
9a9798c2 376 { (yyval.opval) = Nullop; ;}
0de566d7
DM		 377 break;
378
0d863452 379 case 70:
7f46837f 380#line 389 "perly.y"
9a9798c2 381 { (yyval.opval) = Nullop; ;}
0de566d7
DM		 382 break;
383
0d863452 384 case 71:
7f46837f 385#line 391 "perly.y"
9a9798c2 386 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 387 break;
388
0d863452 389 case 72:
7f46837f 390#line 393 "perly.y"
9a9798c2 391 { (yyval.opval) = Nullop; ;}
0de566d7
DM		 392 break;
393
0d863452 394 case 73:
7f46837f 395#line 398 "perly.y"
9a9798c2 396 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 397 break;
398
0d863452 399 case 74:
7f46837f 400#line 400 "perly.y"
9a9798c2 401 { (yyval.opval) = Nullop; ;}
0de566d7
DM		 402 break;
403
0d863452 404 case 75:
7f46837f 405#line 404 "perly.y"
9a9798c2 406 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 407 break;
408
0d863452 409 case 76:
7f46837f 410#line 405 "perly.y"
9a9798c2 411 { (yyval.opval) = Nullop; PL_expect = XSTATE; ;}
0de566d7
DM		 412 break;
413
0d863452 414 case 77:
7f46837f 415#line 409 "perly.y"
9a9798c2 416 { package((yyvsp[-1].opval)); ;}
0de566d7
DM		 417 break;
418
0d863452 419 case 78:
7f46837f 420#line 413 "perly.y"
500bedb6 421 { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ ;}
0de566d7
DM		 422 break;
423
0d863452 424 case 79:
7f46837f 425#line 415 "perly.y"
9a9798c2 426 { utilize((yyvsp[-6].ival), (yyvsp[-5].ival), (yyvsp[-3].opval), (yyvsp[-2].opval), (yyvsp[-1].opval)); ;}
0de566d7
DM		 427 break;
428
0d863452 429 case 80:
7f46837f 430#line 420 "perly.y"
9a9798c2 431 { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM		 432 break;
433
0d863452 434 case 81:
7f46837f 435#line 422 "perly.y"
9a9798c2 436 { (yyval.opval) = newLOGOP((yyvsp[-1].ival), 0, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
500bedb6
DM		 437 break;
438
0d863452 439 case 82:
7f46837f 440#line 424 "perly.y"
9a9798c2 441 { (yyval.opval) = newLOGOP(OP_DOR, 0, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM		 442 break;
443
0d863452 444 case 84:
7f46837f 445#line 430 "perly.y"
9a9798c2 446 { (yyval.opval) = (yyvsp[-1].opval); ;}
0de566d7
DM		 447 break;
448
0d863452 449 case 85:
7f46837f 450#line 432 "perly.y"
9a9798c2 451 { (yyval.opval) = append_elem(OP_LIST, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM		 452 break;
453
0d863452 454 case 87:
7f46837f 455#line 438 "perly.y"
9a9798c2
YST		 456 { (yyval.opval) = convert((yyvsp[-2].ival), OPf_STACKED,
457 prepend_elem(OP_LIST, newGVREF((yyvsp[-2].ival),(yyvsp[-1].opval)), (yyvsp[0].opval)) ); ;}
0de566d7
DM		 458 break;
459
0d863452 460 case 88:
7f46837f 461#line 441 "perly.y"
9a9798c2
YST		 462 { (yyval.opval) = convert((yyvsp[-4].ival), OPf_STACKED,
463 prepend_elem(OP_LIST, newGVREF((yyvsp[-4].ival),(yyvsp[-2].opval)), (yyvsp[-1].opval)) ); ;}
0de566d7
DM		 464 break;
465
0d863452 466 case 89:
7f46837f 467#line 444 "perly.y"
9a9798c2 468 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
0de566d7 469 append_elem(OP_LIST,
9a9798c2
YST		 470 prepend_elem(OP_LIST, scalar((yyvsp[-5].opval)), (yyvsp[-1].opval)),
471 newUNOP(OP_METHOD, 0, (yyvsp[-3].opval)))); ;}
0de566d7
DM		 472 break;
473
0d863452 474 case 90:
7f46837f 475#line 449 "perly.y"
9a9798c2
YST		 476 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
477 append_elem(OP_LIST, scalar((yyvsp[-2].opval)),
478 newUNOP(OP_METHOD, 0, (yyvsp[0].opval)))); ;}
0de566d7
DM		 479 break;
480
0d863452 481 case 91:
7f46837f 482#line 453 "perly.y"
9a9798c2 483 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
0de566d7 484 append_elem(OP_LIST,
9a9798c2
YST		 485 prepend_elem(OP_LIST, (yyvsp[-1].opval), (yyvsp[0].opval)),
486 newUNOP(OP_METHOD, 0, (yyvsp[-2].opval)))); ;}
0de566d7
DM		 487 break;
488
0d863452 489 case 92:
7f46837f 490#line 458 "perly.y"
9a9798c2 491 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
0de566d7 492 append_elem(OP_LIST,
9a9798c2
YST		 493 prepend_elem(OP_LIST, (yyvsp[-3].opval), (yyvsp[-1].opval)),
494 newUNOP(OP_METHOD, 0, (yyvsp[-4].opval)))); ;}
0de566d7
DM		 495 break;
496
0d863452 497 case 93:
7f46837f 498#line 463 "perly.y"
9a9798c2 499 { (yyval.opval) = convert((yyvsp[-1].ival), 0, (yyvsp[0].opval)); ;}
0de566d7
DM		 500 break;
501
0d863452 502 case 94:
7f46837f 503#line 465 "perly.y"
9a9798c2 504 { (yyval.opval) = convert((yyvsp[-3].ival), 0, (yyvsp[-1].opval)); ;}
0de566d7
DM		 505 break;
506
0d863452 507 case 95:
7f46837f 508#line 467 "perly.y"
9a9798c2 509 { (yyvsp[0].opval) = newANONATTRSUB((yyvsp[-1].ival), 0, Nullop, (yyvsp[0].opval)); ;}
0de566d7
DM		 510 break;
511
0d863452 512 case 96:
7f46837f 513#line 469 "perly.y"
9a9798c2 514 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
0de566d7 515 append_elem(OP_LIST,
9a9798c2 516 prepend_elem(OP_LIST, (yyvsp[-2].opval), (yyvsp[0].opval)), (yyvsp[-4].opval))); ;}
0de566d7
DM		 517 break;
518
0d863452 519 case 99:
7f46837f 520#line 483 "perly.y"
9a9798c2 521 { (yyval.opval) = newBINOP(OP_GELEM, 0, (yyvsp[-4].opval), scalar((yyvsp[-2].opval)));
0de566d7
DM		 522 PL_expect = XOPERATOR; ;}
523 break;
524
0d863452 525 case 100:
7f46837f 526#line 486 "perly.y"
9a9798c2 527 { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((yyvsp[-3].opval)), scalar((yyvsp[-1].opval))); ;}
0de566d7
DM		 528 break;
529
0d863452 530 case 101:
7f46837f 531#line 488 "perly.y"
9a9798c2
YST		 532 { (yyval.opval) = newBINOP(OP_AELEM, 0,
533 ref(newAVREF((yyvsp[-4].opval)),OP_RV2AV),
534 scalar((yyvsp[-1].opval)));;}
0de566d7
DM		 535 break;
536
0d863452 537 case 102:
7f46837f 538#line 492 "perly.y"
9a9798c2
YST		 539 { (yyval.opval) = newBINOP(OP_AELEM, 0,
540 ref(newAVREF((yyvsp[-3].opval)),OP_RV2AV),
541 scalar((yyvsp[-1].opval)));;}
0de566d7
DM		 542 break;
543
0d863452 544 case 103:
7f46837f 545#line 496 "perly.y"
9a9798c2 546 { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((yyvsp[-4].opval)), jmaybe((yyvsp[-2].opval)));
0de566d7
DM		 547 PL_expect = XOPERATOR; ;}
548 break;
549
0d863452 550 case 104:
7f46837f 551#line 499 "perly.y"
9a9798c2
YST		 552 { (yyval.opval) = newBINOP(OP_HELEM, 0,
553 ref(newHVREF((yyvsp[-5].opval)),OP_RV2HV),
554 jmaybe((yyvsp[-2].opval)));
0de566d7
DM		 555 PL_expect = XOPERATOR; ;}
556 break;
557
0d863452 558 case 105:
7f46837f 559#line 504 "perly.y"
9a9798c2
YST		 560 { (yyval.opval) = newBINOP(OP_HELEM, 0,
561 ref(newHVREF((yyvsp[-4].opval)),OP_RV2HV),
562 jmaybe((yyvsp[-2].opval)));
0de566d7
DM		 563 PL_expect = XOPERATOR; ;}
564 break;
565
0d863452 566 case 106:
7f46837f 567#line 509 "perly.y"
9a9798c2
YST		 568 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
569 newCVREF(0, scalar((yyvsp[-3].opval)))); ;}
0de566d7
DM		 570 break;
571
0d863452 572 case 107:
7f46837f 573#line 512 "perly.y"
9a9798c2
YST		 574 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
575 append_elem(OP_LIST, (yyvsp[-1].opval),
576 newCVREF(0, scalar((yyvsp[-4].opval))))); ;}
0de566d7
DM		 577 break;
578
0d863452 579 case 108:
7f46837f 580#line 517 "perly.y"
9a9798c2
YST		 581 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
582 append_elem(OP_LIST, (yyvsp[-1].opval),
583 newCVREF(0, scalar((yyvsp[-3].opval))))); ;}
0de566d7
DM		 584 break;
585
0d863452 586 case 109:
7f46837f 587#line 521 "perly.y"
9a9798c2
YST		 588 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
589 newCVREF(0, scalar((yyvsp[-2].opval)))); ;}
0de566d7
DM		 590 break;
591
0d863452 592 case 110:
7f46837f 593#line 524 "perly.y"
9a9798c2 594 { (yyval.opval) = newSLICEOP(0, (yyvsp[-1].opval), (yyvsp[-4].opval)); ;}
0de566d7
DM		 595 break;
596
0d863452 597 case 111:
7f46837f 598#line 526 "perly.y"
9a9798c2 599 { (yyval.opval) = newSLICEOP(0, (yyvsp[-1].opval), Nullop); ;}
0de566d7
DM		 600 break;
601
0d863452 602 case 112:
7f46837f 603#line 531 "perly.y"
9a9798c2 604 { (yyval.opval) = newASSIGNOP(OPf_STACKED, (yyvsp[-2].opval), (yyvsp[-1].ival), (yyvsp[0].opval)); ;}
0de566d7
DM		 605 break;
606
0d863452 607 case 113:
7f46837f 608#line 533 "perly.y"
9a9798c2 609 { (yyval.opval) = newBINOP((yyvsp[-1].ival), 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 610 break;
611
0d863452 612 case 114:
7f46837f 613#line 535 "perly.y"
9a9798c2
YST		 614 { if ((yyvsp[-1].ival) != OP_REPEAT)
615 scalar((yyvsp[-2].opval));
616 (yyval.opval) = newBINOP((yyvsp[-1].ival), 0, (yyvsp[-2].opval), scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 617 break;
618
0d863452 619 case 115:
7f46837f 620#line 539 "perly.y"
9a9798c2 621 { (yyval.opval) = newBINOP((yyvsp[-1].ival), 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 622 break;
623
0d863452 624 case 116:
7f46837f 625#line 541 "perly.y"
9a9798c2 626 { (yyval.opval) = newBINOP((yyvsp[-1].ival), 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 627 break;
628
0d863452 629 case 117:
7f46837f 630#line 543 "perly.y"
9a9798c2 631 { (yyval.opval) = newBINOP((yyvsp[-1].ival), 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 632 break;
633
0d863452 634 case 118:
7f46837f 635#line 545 "perly.y"
9a9798c2 636 { (yyval.opval) = newBINOP((yyvsp[-1].ival), 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 637 break;
638
0d863452 639 case 119:
7f46837f 640#line 547 "perly.y"
9a9798c2 641 { (yyval.opval) = newBINOP((yyvsp[-1].ival), 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 642 break;
643
0d863452 644 case 120:
7f46837f 645#line 549 "perly.y"
9a9798c2 646 { (yyval.opval) = newBINOP((yyvsp[-1].ival), 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 647 break;
648
0d863452 649 case 121:
7f46837f 650#line 551 "perly.y"
9a9798c2 651 { (yyval.opval) = newRANGE((yyvsp[-1].ival), scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));;}
0de566d7
DM		 652 break;
653
0d863452 654 case 122:
7f46837f 655#line 553 "perly.y"
9a9798c2 656 { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM		 657 break;
658
0d863452 659 case 123:
7f46837f 660#line 555 "perly.y"
9a9798c2 661 { (yyval.opval) = newLOGOP(OP_OR, 0, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM		 662 break;
663
0d863452 664 case 124:
7f46837f 665#line 557 "perly.y"
9a9798c2 666 { (yyval.opval) = newLOGOP(OP_DOR, 0, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM		 667 break;
668
0d863452 669 case 125:
7f46837f 670#line 559 "perly.y"
9a9798c2 671 { (yyval.opval) = bind_match((yyvsp[-1].ival), (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM		 672 break;
673
0d863452 674 case 126:
7f46837f 675#line 564 "perly.y"
9a9798c2 676 { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 677 break;
678
0d863452 679 case 127:
7f46837f 680#line 566 "perly.y"
9a9798c2 681 { (yyval.opval) = (yyvsp[0].opval); ;}
500bedb6
DM		 682 break;
683
0d863452 684 case 128:
7f46837f 685#line 568 "perly.y"
9a9798c2 686 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 687 break;
688
0d863452 689 case 129:
7f46837f 690#line 570 "perly.y"
9a9798c2 691 { (yyval.opval) = newUNOP(OP_COMPLEMENT, 0, scalar((yyvsp[0].opval)));;}
0de566d7
DM		 692 break;
693
0d863452 694 case 130:
7f46837f 695#line 572 "perly.y"
9a9798c2
YST		 696 { (yyval.opval) = newUNOP(OP_POSTINC, 0,
697 mod(scalar((yyvsp[-1].opval)), OP_POSTINC)); ;}
0de566d7
DM		 698 break;
699
0d863452 700 case 131:
7f46837f 701#line 575 "perly.y"
9a9798c2
YST		 702 { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
703 mod(scalar((yyvsp[-1].opval)), OP_POSTDEC)); ;}
0de566d7
DM		 704 break;
705
0d863452 706 case 132:
7f46837f 707#line 578 "perly.y"
9a9798c2
YST		 708 { (yyval.opval) = newUNOP(OP_PREINC, 0,
709 mod(scalar((yyvsp[0].opval)), OP_PREINC)); ;}
0de566d7
DM		 710 break;
711
0d863452 712 case 133:
7f46837f 713#line 581 "perly.y"
9a9798c2
YST		 714 { (yyval.opval) = newUNOP(OP_PREDEC, 0,
715 mod(scalar((yyvsp[0].opval)), OP_PREDEC)); ;}
0de566d7
DM		 716 break;
717
0d863452 718 case 134:
7f46837f 719#line 588 "perly.y"
9a9798c2 720 { (yyval.opval) = newANONLIST((yyvsp[-1].opval)); ;}
0de566d7
DM		 721 break;
722
0d863452 723 case 135:
7f46837f 724#line 590 "perly.y"
9a9798c2 725 { (yyval.opval) = newANONLIST(Nullop); ;}
0de566d7
DM		 726 break;
727
0d863452 728 case 136:
7f46837f 729#line 592 "perly.y"
9a9798c2 730 { (yyval.opval) = newANONHASH((yyvsp[-2].opval)); ;}
0de566d7
DM		 731 break;
732
0d863452 733 case 137:
7f46837f 734#line 594 "perly.y"
9a9798c2 735 { (yyval.opval) = newANONHASH(Nullop); ;}
0de566d7
DM		 736 break;
737
0d863452 738 case 138:
7f46837f 739#line 596 "perly.y"
9a9798c2 740 { (yyval.opval) = newANONATTRSUB((yyvsp[-3].ival), (yyvsp[-2].opval), (yyvsp[-1].opval), (yyvsp[0].opval)); ;}
0de566d7
DM		 741 break;
742
0d863452 743 case 139:
7f46837f 744#line 602 "perly.y"
850e8516 745 { (yyval.opval) = dofile((yyvsp[0].opval), (yyvsp[-1].ival)); ;}
9a9798c2
YST		 746 break;
747
0d863452 748 case 140:
7f46837f 749#line 604 "perly.y"
9a9798c2
YST		 750 { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, scope((yyvsp[0].opval))); ;}
751 break;
752
0d863452 753 case 141:
7f46837f 754#line 606 "perly.y"
9a9798c2 755 { (yyval.opval) = newUNOP(OP_ENTERSUB,
0de566d7
DM		 756 OPf_SPECIAL|OPf_STACKED,
757 prepend_elem(OP_LIST,
758 scalar(newCVREF(
759 (OPpENTERSUB_AMPER<<8),
9a9798c2 760 scalar((yyvsp[-2].opval))
0de566d7
DM		 761 )),Nullop)); dep();;}
762 break;
763
0d863452 764 case 142:
7f46837f 765#line 614 "perly.y"
9a9798c2 766 { (yyval.opval) = newUNOP(OP_ENTERSUB,
0de566d7
DM		 767 OPf_SPECIAL|OPf_STACKED,
768 append_elem(OP_LIST,
9a9798c2 769 (yyvsp[-1].opval),
0de566d7
DM		 770 scalar(newCVREF(
771 (OPpENTERSUB_AMPER<<8),
9a9798c2 772 scalar((yyvsp[-3].opval))
0de566d7
DM		 773 )))); dep();;}
774 break;
775
0d863452 776 case 143:
7f46837f 777#line 623 "perly.y"
9a9798c2 778 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
0de566d7 779 prepend_elem(OP_LIST,
9a9798c2 780 scalar(newCVREF(0,scalar((yyvsp[-2].opval)))), Nullop)); dep();;}
0de566d7
DM		 781 break;
782
0d863452 783 case 144:
7f46837f 784#line 627 "perly.y"
9a9798c2
YST		 785 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
786 prepend_elem(OP_LIST,
787 (yyvsp[-1].opval),
788 scalar(newCVREF(0,scalar((yyvsp[-3].opval)))))); dep();;}
0de566d7
DM		 789 break;
790
0d863452 791 case 149:
7f46837f 792#line 639 "perly.y"
9a9798c2 793 { (yyval.opval) = newCONDOP(0, (yyvsp[-4].opval), (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM		 794 break;
795
0d863452 796 case 150:
7f46837f 797#line 641 "perly.y"
9a9798c2 798 { (yyval.opval) = newUNOP(OP_REFGEN, 0, mod((yyvsp[0].opval),OP_REFGEN)); ;}
0de566d7
DM		 799 break;
800
0d863452 801 case 151:
7f46837f 802#line 643 "perly.y"
9a9798c2 803 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 804 break;
805
0d863452 806 case 152:
7f46837f 807#line 645 "perly.y"
9a9798c2 808 { (yyval.opval) = localize((yyvsp[0].opval),(yyvsp[-1].ival)); ;}
0de566d7
DM		 809 break;
810
0d863452 811 case 153:
7f46837f 812#line 647 "perly.y"
9a9798c2 813 { (yyval.opval) = sawparens((yyvsp[-1].opval)); ;}
0de566d7
DM		 814 break;
815
0d863452 816 case 154:
7f46837f 817#line 649 "perly.y"
9a9798c2 818 { (yyval.opval) = sawparens(newNULLLIST()); ;}
0de566d7
DM		 819 break;
820
0d863452 821 case 155:
7f46837f 822#line 651 "perly.y"
9a9798c2 823 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 824 break;
825
0d863452 826 case 156:
7f46837f 827#line 653 "perly.y"
9a9798c2 828 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 829 break;
830
0d863452 831 case 157:
7f46837f 832#line 655 "perly.y"
9a9798c2 833 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 834 break;
835
0d863452 836 case 158:
7f46837f 837#line 657 "perly.y"
9a9798c2 838 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 839 break;
840
0d863452 841 case 159:
7f46837f 842#line 659 "perly.y"
9a9798c2 843 { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((yyvsp[0].opval), OP_AV2ARYLEN));;}
0de566d7
DM		 844 break;
845
0d863452 846 case 160:
7f46837f 847#line 661 "perly.y"
9a9798c2 848 { (yyval.opval) = (yyvsp[0].opval); ;}
500bedb6
DM		 849 break;
850
0d863452 851 case 161:
7f46837f 852#line 663 "perly.y"
9a9798c2 853 { (yyval.opval) = prepend_elem(OP_ASLICE,
0de566d7
DM		 854 newOP(OP_PUSHMARK, 0),
855 newLISTOP(OP_ASLICE, 0,
9a9798c2
YST		 856 list((yyvsp[-1].opval)),
857 ref((yyvsp[-3].opval), OP_ASLICE))); ;}
0de566d7
DM		 858 break;
859
0d863452 860 case 162:
7f46837f 861#line 669 "perly.y"
9a9798c2 862 { (yyval.opval) = prepend_elem(OP_HSLICE,
0de566d7
DM		 863 newOP(OP_PUSHMARK, 0),
864 newLISTOP(OP_HSLICE, 0,
9a9798c2
YST		 865 list((yyvsp[-2].opval)),
866 ref(oopsHV((yyvsp[-4].opval)), OP_HSLICE)));
0de566d7
DM		 867 PL_expect = XOPERATOR; ;}
868 break;
869
0d863452 870 case 163:
7f46837f 871#line 676 "perly.y"
9a9798c2 872 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 873 break;
874
0d863452 875 case 164:
7f46837f 876#line 678 "perly.y"
9a9798c2 877 { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 878 break;
879
0d863452 880 case 165:
7f46837f 881#line 680 "perly.y"
9a9798c2 882 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((yyvsp[-2].opval))); ;}
0de566d7
DM		 883 break;
884
0d863452 885 case 166:
7f46837f 886#line 682 "perly.y"
9a9798c2
YST		 887 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
888 append_elem(OP_LIST, (yyvsp[-1].opval), scalar((yyvsp[-3].opval)))); ;}
0de566d7
DM		 889 break;
890
0d863452 891 case 167:
7f46837f 892#line 685 "perly.y"
9a9798c2
YST		 893 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
894 append_elem(OP_LIST, (yyvsp[0].opval), scalar((yyvsp[-1].opval)))); ;}
0de566d7
DM		 895 break;
896
0d863452 897 case 168:
7f46837f 898#line 688 "perly.y"
9a9798c2 899 { (yyval.opval) = newOP((yyvsp[0].ival), OPf_SPECIAL);
0de566d7
DM		 900 PL_hints |= HINT_BLOCK_SCOPE; ;}
901 break;
902
0d863452 903 case 169:
7f46837f 904#line 691 "perly.y"
9a9798c2 905 { (yyval.opval) = newLOOPEX((yyvsp[-1].ival),(yyvsp[0].opval)); ;}
0de566d7
DM		 906 break;
907
0d863452 908 case 170:
7f46837f 909#line 693 "perly.y"
9a9798c2 910 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 911 break;
912
0d863452 913 case 171:
7f46837f 914#line 695 "perly.y"
9a9798c2 915 { (yyval.opval) = newOP((yyvsp[0].ival), 0); ;}
0de566d7
DM		 916 break;
917
0d863452 918 case 172:
7f46837f 919#line 697 "perly.y"
9a9798c2 920 { (yyval.opval) = newUNOP((yyvsp[-1].ival), 0, (yyvsp[0].opval)); ;}
0de566d7
DM		 921 break;
922
0d863452 923 case 173:
7f46837f 924#line 699 "perly.y"
9a9798c2 925 { (yyval.opval) = newUNOP((yyvsp[-1].ival), 0, (yyvsp[0].opval)); ;}
0de566d7
DM		 926 break;
927
0d863452 928 case 174:
7f46837f 929#line 701 "perly.y"
a72a1c8b 930 { (yyval.opval) = newOP(OP_REQUIRE, (yyvsp[0].ival) ? OPf_SPECIAL : 0); ;}
0de566d7
DM		 931 break;
932
0d863452 933 case 175:
7f46837f 934#line 703 "perly.y"
a72a1c8b 935 { (yyval.opval) = newUNOP(OP_REQUIRE, (yyvsp[-1].ival) ? OPf_SPECIAL : 0, (yyvsp[0].opval)); ;}
0de566d7
DM		 936 break;
937
0d863452 938 case 176:
7f46837f 939#line 705 "perly.y"
a72a1c8b
RGS		 940 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
941 append_elem(OP_LIST, (yyvsp[0].opval), scalar((yyvsp[-1].opval)))); ;}
0de566d7
DM		 942 break;
943
0d863452 944 case 177:
7f46837f 945#line 708 "perly.y"
a72a1c8b 946 { (yyval.opval) = newOP((yyvsp[0].ival), 0); ;}
0de566d7
DM		 947 break;
948
0d863452 949 case 178:
7f46837f 950#line 710 "perly.y"
a72a1c8b 951 { (yyval.opval) = newOP((yyvsp[-2].ival), 0); ;}
0de566d7
DM		 952 break;
953
0d863452 954 case 179:
7f46837f 955#line 712 "perly.y"
a72a1c8b
RGS		 956 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
957 scalar((yyvsp[0].opval))); ;}
0de566d7
DM		 958 break;
959
0d863452 960 case 180:
7f46837f 961#line 715 "perly.y"
a72a1c8b
RGS		 962 { (yyval.opval) = (yyvsp[-2].ival) == OP_NOT ? newUNOP((yyvsp[-2].ival), 0, newSVOP(OP_CONST, 0, newSViv(0)))
963 : newOP((yyvsp[-2].ival), OPf_SPECIAL); ;}
0de566d7
DM		 964 break;
965
0d863452 966 case 181:
7f46837f 967#line 718 "perly.y"
a72a1c8b 968 { (yyval.opval) = newUNOP((yyvsp[-3].ival), 0, (yyvsp[-1].opval)); ;}
0de566d7
DM		 969 break;
970
0d863452 971 case 182:
7f46837f 972#line 720 "perly.y"
a72a1c8b 973 { (yyval.opval) = pmruntime((yyvsp[-3].opval), (yyvsp[-1].opval), 1); ;}
0de566d7
DM		 974 break;
975
0d863452 976 case 185:
7f46837f 977#line 727 "perly.y"
a72a1c8b 978 { (yyval.opval) = my_attrs((yyvsp[-1].opval),(yyvsp[0].opval)); ;}
0de566d7
DM		 979 break;
980
0d863452 981 case 186:
7f46837f 982#line 729 "perly.y"
a72a1c8b 983 { (yyval.opval) = localize((yyvsp[0].opval),(yyvsp[-1].ival)); ;}
0de566d7
DM		 984 break;
985
0d863452 986 case 187:
7f46837f 987#line 734 "perly.y"
a72a1c8b 988 { (yyval.opval) = sawparens((yyvsp[-1].opval)); ;}
0de566d7
DM		 989 break;
990
0d863452 991 case 188:
7f46837f 992#line 736 "perly.y"
a72a1c8b 993 { (yyval.opval) = sawparens(newNULLLIST()); ;}
0de566d7
DM		 994 break;
995
0d863452 996 case 189:
7f46837f 997#line 738 "perly.y"
9a9798c2 998 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 999 break;
1000
0d863452 1001 case 190:
7f46837f 1002#line 740 "perly.y"
a72a1c8b 1003 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 1004 break;
1005
0d863452 1006 case 191:
7f46837f 1007#line 742 "perly.y"
9a9798c2 1008 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 1009 break;
1010
0d863452 1011 case 192:
7f46837f 1012#line 747 "perly.y"
9a9798c2 1013 { (yyval.opval) = Nullop; ;}
0de566d7
DM		 1014 break;
1015
0d863452 1016 case 193:
7f46837f 1017#line 749 "perly.y"
9a9798c2 1018 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 1019 break;
1020
0d863452 1021 case 194:
7f46837f 1022#line 753 "perly.y"
a72a1c8b 1023 { (yyval.opval) = Nullop; ;}
0de566d7
DM		 1024 break;
1025
0d863452 1026 case 195:
7f46837f 1027#line 755 "perly.y"
a72a1c8b 1028 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 1029 break;
1030
0d863452 1031 case 196:
7f46837f 1032#line 757 "perly.y"
a72a1c8b 1033 { (yyval.opval) = (yyvsp[-1].opval); ;}
0de566d7
DM		 1034 break;
1035
0d863452 1036 case 197:
7f46837f 1037#line 763 "perly.y"
a72a1c8b 1038 { PL_in_my = 0; (yyval.opval) = my((yyvsp[0].opval)); ;}
0de566d7
DM		 1039 break;
1040
0d863452 1041 case 198:
7f46837f 1042#line 767 "perly.y"
a72a1c8b 1043 { (yyval.opval) = newCVREF((yyvsp[-1].ival),(yyvsp[0].opval)); ;}
0de566d7
DM		 1044 break;
1045
0d863452 1046 case 199:
7f46837f 1047#line 771 "perly.y"
a72a1c8b 1048 { (yyval.opval) = newSVREF((yyvsp[0].opval)); ;}
0de566d7
DM		 1049 break;
1050
0d863452 1051 case 200:
7f46837f 1052#line 775 "perly.y"
9a9798c2 1053 { (yyval.opval) = newAVREF((yyvsp[0].opval)); ;}
0de566d7
DM		 1054 break;
1055
0d863452 1056 case 201:
7f46837f 1057#line 779 "perly.y"
a72a1c8b 1058 { (yyval.opval) = newHVREF((yyvsp[0].opval)); ;}
0de566d7
DM		 1059 break;
1060
0d863452 1061 case 202:
7f46837f 1062#line 783 "perly.y"
a72a1c8b 1063 { (yyval.opval) = newAVREF((yyvsp[0].opval)); ;}
0de566d7
DM		 1064 break;
1065
0d863452 1066 case 203:
7f46837f 1067#line 787 "perly.y"
a72a1c8b 1068 { (yyval.opval) = newGVREF(0,(yyvsp[0].opval)); ;}
0de566d7
DM		 1069 break;
1070
0d863452 1071 case 204:
7f46837f 1072#line 792 "perly.y"
a72a1c8b 1073 { (yyval.opval) = scalar((yyvsp[0].opval)); ;}
500bedb6
DM		 1074 break;
1075
0d863452 1076 case 205:
7f46837f 1077#line 794 "perly.y"
a72a1c8b
RGS		 1078 { (yyval.opval) = scalar((yyvsp[0].opval)); ;}
1079 break;
1080
0d863452 1081 case 206:
7f46837f 1082#line 796 "perly.y"
a72a1c8b
RGS		 1083 { (yyval.opval) = scope((yyvsp[0].opval)); ;}
1084 break;
1085
0d863452 1086 case 207:
7f46837f 1087#line 799 "perly.y"
9a9798c2 1088 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM		 1089 break;
1090
1091
20515881 1092 default: break;
0de566d7 1093
Unnamed repository; edit this file 'description' to name the repository.