This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix a memory leak in ck_grep(), spotted by coverity:
[perl5.git] / perly.act
CommitLineData
0de566d7 1case 2:
0d863452 2#line 100 "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:
0d863452 7#line 105 "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:
0d863452 14#line 111 "perly.y"
9a9798c2 15 { (yyval.ival) = block_start(TRUE); ;}
0de566d7
DM
16 break;
17
18 case 5:
0d863452
RH
19#line 115 "perly.y"
20 { (yyval.ival) = (I32) allocmy("$_"); ;}
21 break;
22
23 case 6:
24#line 119 "perly.y"
0de566d7 25 {
9a9798c2 26 PL_expect = XSTATE; (yyval.ival) = block_start(TRUE);
0de566d7
DM
27 ;}
28 break;
29
0d863452
RH
30 case 7:
31#line 126 "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
RH
37 case 8:
38#line 132 "perly.y"
9a9798c2 39 { (yyval.ival) = block_start(FALSE); ;}
0de566d7
DM
40 break;
41
0d863452
RH
42 case 9:
43#line 136 "perly.y"
9a9798c2 44 { (yyval.ival) = PL_savestack_ix; ;}
0de566d7
DM
45 break;
46
0d863452
RH
47 case 10:
48#line 140 "perly.y"
9a9798c2 49 { (yyval.opval) = Nullop; ;}
0de566d7
DM
50 break;
51
0d863452
RH
52 case 11:
53#line 142 "perly.y"
9a9798c2 54 { (yyval.opval) = (yyvsp[-1].opval); ;}
0de566d7
DM
55 break;
56
0d863452
RH
57 case 12:
58#line 144 "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
RH
66 case 13:
67#line 153 "perly.y"
68 { (yyval.opval) = newSTATEOP(0, (yyvsp[-1].pval), (yyvsp[0].opval)); ;}
69 break;
70
71 case 15:
72#line 156 "perly.y"
73 { (yyval.opval) = (yyvsp[0].opval); ;}
74 break;
75
76 case 16:
77#line 158 "perly.y"
9a9798c2 78 { (yyval.opval) = newSTATEOP(0, (yyvsp[-1].pval), (yyvsp[0].opval)); ;}
0de566d7
DM
79 break;
80
0d863452
RH
81 case 17:
82#line 160 "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
RH
93 case 18:
94#line 169 "perly.y"
9a9798c2 95 { (yyval.opval) = newSTATEOP(0, (yyvsp[-2].pval), (yyvsp[-1].opval));
0de566d7
DM
96 PL_expect = XSTATE; ;}
97 break;
98
0d863452
RH
99 case 19:
100#line 175 "perly.y"
9a9798c2 101 { (yyval.opval) = Nullop; ;}
0de566d7
DM
102 break;
103
0d863452
RH
104 case 20:
105#line 177 "perly.y"
9a9798c2 106 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
107 break;
108
0d863452
RH
109 case 21:
110#line 179 "perly.y"
9a9798c2 111 { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[0].opval), (yyvsp[-2].opval)); ;}
0de566d7
DM
112 break;
113
0d863452
RH
114 case 22:
115#line 181 "perly.y"
9a9798c2 116 { (yyval.opval) = newLOGOP(OP_OR, 0, (yyvsp[0].opval), (yyvsp[-2].opval)); ;}
0de566d7
DM
117 break;
118
0d863452
RH
119 case 23:
120#line 183 "perly.y"
9a9798c2 121 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((yyvsp[0].opval)), (yyvsp[-2].opval)); ;}
0de566d7
DM
122 break;
123
0d863452
RH
124 case 24:
125#line 185 "perly.y"
9a9798c2 126 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (yyvsp[0].opval), (yyvsp[-2].opval));;}
0de566d7
DM
127 break;
128
0d863452
RH
129 case 25:
130#line 187 "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
RH
135 case 26:
136#line 193 "perly.y"
9a9798c2 137 { (yyval.opval) = Nullop; ;}
0de566d7
DM
138 break;
139
0d863452
RH
140 case 27:
141#line 195 "perly.y"
9a9798c2 142 { ((yyvsp[0].opval))->op_flags |= OPf_PARENS; (yyval.opval) = scope((yyvsp[0].opval)); ;}
0de566d7
DM
143 break;
144
0d863452
RH
145 case 28:
146#line 197 "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
RH
152 case 29:
153#line 204 "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
RH
159 case 30:
160#line 208 "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
RH
166 case 31:
167#line 215 "perly.y"
168 { (yyval.opval) = block_end((yyvsp[-3].ival),
169 newWHENOP((yyvsp[-2].opval), scope((yyvsp[0].opval)))); ;}
170 break;
171
172 case 32:
173#line 218 "perly.y"
174 { (yyval.opval) = newWHENOP(0, scope((yyvsp[0].opval))); ;}
175 break;
176
177 case 33:
178#line 223 "perly.y"
9a9798c2 179 { (yyval.opval) = Nullop; ;}
0de566d7
DM
180 break;
181
0d863452
RH
182 case 34:
183#line 225 "perly.y"
9a9798c2 184 { (yyval.opval) = scope((yyvsp[0].opval)); ;}
0de566d7
DM
185 break;
186
0d863452
RH
187 case 35:
188#line 230 "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
RH
196 case 36:
197#line 236 "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
RH
205 case 37:
206#line 242 "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
RH
211 case 38:
212#line 245 "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
RH
218 case 39:
219#line 249 "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
RH
224 case 40:
225#line 254 "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
RH
242 case 41:
243#line 269 "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
RH
249 case 42:
250#line 276 "perly.y"
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:
259#line 285 "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
RH
265 case 44:
266#line 291 "perly.y"
9a9798c2 267 { (yyval.opval) = Nullop; ;}
0de566d7
DM
268 break;
269
0d863452
RH
270 case 46:
271#line 297 "perly.y"
9a9798c2 272 { (void)scan_num("1", &yylval); (yyval.opval) = yylval.opval; ;}
0de566d7
DM
273 break;
274
0d863452
RH
275 case 48:
276#line 303 "perly.y"
9a9798c2 277 { (yyval.opval) = invert(scalar((yyvsp[0].opval))); ;}
0de566d7
DM
278 break;
279
0d863452
RH
280 case 49:
281#line 308 "perly.y"
9a9798c2 282 { (yyval.opval) = (yyvsp[0].opval); intro_my(); ;}
0de566d7
DM
283 break;
284
0d863452
RH
285 case 50:
286#line 312 "perly.y"
9a9798c2 287 { (yyval.opval) = (yyvsp[0].opval); intro_my(); ;}
0de566d7
DM
288 break;
289
0d863452
RH
290 case 51:
291#line 316 "perly.y"
9a9798c2 292 { (yyval.opval) = (yyvsp[0].opval); intro_my(); ;}
0de566d7
DM
293 break;
294
0d863452
RH
295 case 52:
296#line 321 "perly.y"
9a9798c2 297 { (yyval.pval) = Nullch; ;}
0de566d7
DM
298 break;
299
0d863452
RH
300 case 54:
301#line 327 "perly.y"
9a9798c2 302 { (yyval.ival) = 0; ;}
0de566d7
DM
303 break;
304
0d863452
RH
305 case 55:
306#line 329 "perly.y"
9a9798c2 307 { (yyval.ival) = 0; ;}
0de566d7
DM
308 break;
309
0d863452
RH
310 case 56:
311#line 331 "perly.y"
9a9798c2 312 { (yyval.ival) = 0; ;}
0de566d7
DM
313 break;
314
0d863452
RH
315 case 57:
316#line 333 "perly.y"
9a9798c2 317 { (yyval.ival) = 0; ;}
0de566d7
DM
318 break;
319
0d863452
RH
320 case 58:
321#line 335 "perly.y"
9a9798c2 322 { (yyval.ival) = 0; ;}
0de566d7
DM
323 break;
324
0d863452
RH
325 case 59:
326#line 339 "perly.y"
9a9798c2 327 { newFORM((yyvsp[-2].ival), (yyvsp[-1].opval), (yyvsp[0].opval)); ;}
0de566d7
DM
328 break;
329
0d863452
RH
330 case 60:
331#line 342 "perly.y"
9a9798c2 332 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
333 break;
334
0d863452
RH
335 case 61:
336#line 343 "perly.y"
9a9798c2 337 { (yyval.opval) = Nullop; ;}
0de566d7
DM
338 break;
339
0d863452
RH
340 case 62:
341#line 348 "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
RH
345 case 63:
346#line 353 "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
RH
350 case 64:
351#line 357 "perly.y"
9a9798c2 352 { (yyval.ival) = start_subparse(FALSE, 0); ;}
0de566d7
DM
353 break;
354
0d863452
RH
355 case 65:
356#line 361 "perly.y"
9a9798c2 357 { (yyval.ival) = start_subparse(FALSE, CVf_ANON); ;}
0de566d7
DM
358 break;
359
0d863452
RH
360 case 66:
361#line 365 "perly.y"
9a9798c2 362 { (yyval.ival) = start_subparse(TRUE, 0); ;}
500bedb6
DM
363 break;
364
0d863452
RH
365 case 67:
366#line 369 "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
RH
374 case 68:
375#line 378 "perly.y"
9a9798c2 376 { (yyval.opval) = Nullop; ;}
0de566d7
DM
377 break;
378
0d863452
RH
379 case 70:
380#line 384 "perly.y"
9a9798c2 381 { (yyval.opval) = Nullop; ;}
0de566d7
DM
382 break;
383
0d863452
RH
384 case 71:
385#line 386 "perly.y"
9a9798c2 386 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
387 break;
388
0d863452
RH
389 case 72:
390#line 388 "perly.y"
9a9798c2 391 { (yyval.opval) = Nullop; ;}
0de566d7
DM
392 break;
393
0d863452
RH
394 case 73:
395#line 393 "perly.y"
9a9798c2 396 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
397 break;
398
0d863452
RH
399 case 74:
400#line 395 "perly.y"
9a9798c2 401 { (yyval.opval) = Nullop; ;}
0de566d7
DM
402 break;
403
0d863452
RH
404 case 75:
405#line 399 "perly.y"
9a9798c2 406 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
407 break;
408
0d863452
RH
409 case 76:
410#line 400 "perly.y"
9a9798c2 411 { (yyval.opval) = Nullop; PL_expect = XSTATE; ;}
0de566d7
DM
412 break;
413
0d863452
RH
414 case 77:
415#line 404 "perly.y"
9a9798c2 416 { package((yyvsp[-1].opval)); ;}
0de566d7
DM
417 break;
418
0d863452
RH
419 case 78:
420#line 408 "perly.y"
500bedb6 421 { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ ;}
0de566d7
DM
422 break;
423
0d863452
RH
424 case 79:
425#line 410 "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
RH
429 case 80:
430#line 415 "perly.y"
9a9798c2 431 { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM
432 break;
433
0d863452
RH
434 case 81:
435#line 417 "perly.y"
9a9798c2 436 { (yyval.opval) = newLOGOP((yyvsp[-1].ival), 0, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
500bedb6
DM
437 break;
438
0d863452
RH
439 case 82:
440#line 419 "perly.y"
9a9798c2 441 { (yyval.opval) = newLOGOP(OP_DOR, 0, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM
442 break;
443
0d863452
RH
444 case 84:
445#line 425 "perly.y"
9a9798c2 446 { (yyval.opval) = (yyvsp[-1].opval); ;}
0de566d7
DM
447 break;
448
0d863452
RH
449 case 85:
450#line 427 "perly.y"
9a9798c2 451 { (yyval.opval) = append_elem(OP_LIST, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM
452 break;
453
0d863452
RH
454 case 87:
455#line 433 "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
RH
460 case 88:
461#line 436 "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
RH
466 case 89:
467#line 439 "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
RH
474 case 90:
475#line 444 "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
RH
481 case 91:
482#line 448 "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
RH
489 case 92:
490#line 453 "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
RH
497 case 93:
498#line 458 "perly.y"
9a9798c2 499 { (yyval.opval) = convert((yyvsp[-1].ival), 0, (yyvsp[0].opval)); ;}
0de566d7
DM
500 break;
501
0d863452
RH
502 case 94:
503#line 460 "perly.y"
9a9798c2 504 { (yyval.opval) = convert((yyvsp[-3].ival), 0, (yyvsp[-1].opval)); ;}
0de566d7
DM
505 break;
506
0d863452
RH
507 case 95:
508#line 462 "perly.y"
9a9798c2 509 { (yyvsp[0].opval) = newANONATTRSUB((yyvsp[-1].ival), 0, Nullop, (yyvsp[0].opval)); ;}
0de566d7
DM
510 break;
511
0d863452
RH
512 case 96:
513#line 464 "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
RH
519 case 99:
520#line 478 "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
RH
525 case 100:
526#line 481 "perly.y"
9a9798c2 527 { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((yyvsp[-3].opval)), scalar((yyvsp[-1].opval))); ;}
0de566d7
DM
528 break;
529
0d863452
RH
530 case 101:
531#line 483 "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
RH
537 case 102:
538#line 487 "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
RH
544 case 103:
545#line 491 "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
RH
550 case 104:
551#line 494 "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
RH
558 case 105:
559#line 499 "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
RH
566 case 106:
567#line 504 "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
RH
572 case 107:
573#line 507 "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
RH
579 case 108:
580#line 512 "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
RH
586 case 109:
587#line 516 "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
RH
592 case 110:
593#line 519 "perly.y"
9a9798c2 594 { (yyval.opval) = newSLICEOP(0, (yyvsp[-1].opval), (yyvsp[-4].opval)); ;}
0de566d7
DM
595 break;
596
0d863452
RH
597 case 111:
598#line 521 "perly.y"
9a9798c2 599 { (yyval.opval) = newSLICEOP(0, (yyvsp[-1].opval), Nullop); ;}
0de566d7
DM
600 break;
601
0d863452
RH
602 case 112:
603#line 526 "perly.y"
9a9798c2 604 { (yyval.opval) = newASSIGNOP(OPf_STACKED, (yyvsp[-2].opval), (yyvsp[-1].ival), (yyvsp[0].opval)); ;}
0de566d7
DM
605 break;
606
0d863452
RH
607 case 113:
608#line 528 "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
RH
612 case 114:
613#line 530 "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
RH
619 case 115:
620#line 534 "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
RH
624 case 116:
625#line 536 "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
RH
629 case 117:
630#line 538 "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
RH
634 case 118:
635#line 540 "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
RH
639 case 119:
640#line 542 "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
RH
644 case 120:
645#line 544 "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
RH
649 case 121:
650#line 546 "perly.y"
9a9798c2 651 { (yyval.opval) = newRANGE((yyvsp[-1].ival), scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));;}
0de566d7
DM
652 break;
653
0d863452
RH
654 case 122:
655#line 548 "perly.y"
9a9798c2 656 { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM
657 break;
658
0d863452
RH
659 case 123:
660#line 550 "perly.y"
9a9798c2 661 { (yyval.opval) = newLOGOP(OP_OR, 0, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM
662 break;
663
0d863452
RH
664 case 124:
665#line 552 "perly.y"
9a9798c2 666 { (yyval.opval) = newLOGOP(OP_DOR, 0, (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM
667 break;
668
0d863452
RH
669 case 125:
670#line 554 "perly.y"
9a9798c2 671 { (yyval.opval) = bind_match((yyvsp[-1].ival), (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM
672 break;
673
0d863452
RH
674 case 126:
675#line 559 "perly.y"
9a9798c2 676 { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((yyvsp[0].opval))); ;}
0de566d7
DM
677 break;
678
0d863452
RH
679 case 127:
680#line 561 "perly.y"
9a9798c2 681 { (yyval.opval) = (yyvsp[0].opval); ;}
500bedb6
DM
682 break;
683
0d863452
RH
684 case 128:
685#line 563 "perly.y"
9a9798c2 686 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((yyvsp[0].opval))); ;}
0de566d7
DM
687 break;
688
0d863452
RH
689 case 129:
690#line 565 "perly.y"
9a9798c2 691 { (yyval.opval) = newUNOP(OP_COMPLEMENT, 0, scalar((yyvsp[0].opval)));;}
0de566d7
DM
692 break;
693
0d863452
RH
694 case 130:
695#line 567 "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
RH
700 case 131:
701#line 570 "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
RH
706 case 132:
707#line 573 "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
RH
712 case 133:
713#line 576 "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
RH
718 case 134:
719#line 583 "perly.y"
9a9798c2 720 { (yyval.opval) = newANONLIST((yyvsp[-1].opval)); ;}
0de566d7
DM
721 break;
722
0d863452
RH
723 case 135:
724#line 585 "perly.y"
9a9798c2 725 { (yyval.opval) = newANONLIST(Nullop); ;}
0de566d7
DM
726 break;
727
0d863452
RH
728 case 136:
729#line 587 "perly.y"
9a9798c2 730 { (yyval.opval) = newANONHASH((yyvsp[-2].opval)); ;}
0de566d7
DM
731 break;
732
0d863452
RH
733 case 137:
734#line 589 "perly.y"
9a9798c2 735 { (yyval.opval) = newANONHASH(Nullop); ;}
0de566d7
DM
736 break;
737
0d863452
RH
738 case 138:
739#line 591 "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
RH
743 case 139:
744#line 597 "perly.y"
850e8516 745 { (yyval.opval) = dofile((yyvsp[0].opval), (yyvsp[-1].ival)); ;}
9a9798c2
YST
746 break;
747
0d863452
RH
748 case 140:
749#line 599 "perly.y"
9a9798c2
YST
750 { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, scope((yyvsp[0].opval))); ;}
751 break;
752
0d863452
RH
753 case 141:
754#line 601 "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
RH
764 case 142:
765#line 609 "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
RH
776 case 143:
777#line 618 "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
RH
783 case 144:
784#line 622 "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
RH
791 case 149:
792#line 634 "perly.y"
9a9798c2 793 { (yyval.opval) = newCONDOP(0, (yyvsp[-4].opval), (yyvsp[-2].opval), (yyvsp[0].opval)); ;}
0de566d7
DM
794 break;
795
0d863452
RH
796 case 150:
797#line 636 "perly.y"
9a9798c2 798 { (yyval.opval) = newUNOP(OP_REFGEN, 0, mod((yyvsp[0].opval),OP_REFGEN)); ;}
0de566d7
DM
799 break;
800
0d863452
RH
801 case 151:
802#line 638 "perly.y"
9a9798c2 803 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
804 break;
805
0d863452
RH
806 case 152:
807#line 640 "perly.y"
9a9798c2 808 { (yyval.opval) = localize((yyvsp[0].opval),(yyvsp[-1].ival)); ;}
0de566d7
DM
809 break;
810
0d863452
RH
811 case 153:
812#line 642 "perly.y"
9a9798c2 813 { (yyval.opval) = sawparens((yyvsp[-1].opval)); ;}
0de566d7
DM
814 break;
815
0d863452
RH
816 case 154:
817#line 644 "perly.y"
9a9798c2 818 { (yyval.opval) = sawparens(newNULLLIST()); ;}
0de566d7
DM
819 break;
820
0d863452
RH
821 case 155:
822#line 646 "perly.y"
9a9798c2 823 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
824 break;
825
0d863452
RH
826 case 156:
827#line 648 "perly.y"
9a9798c2 828 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
829 break;
830
0d863452
RH
831 case 157:
832#line 650 "perly.y"
9a9798c2 833 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
834 break;
835
0d863452
RH
836 case 158:
837#line 652 "perly.y"
9a9798c2 838 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
839 break;
840
0d863452
RH
841 case 159:
842#line 654 "perly.y"
9a9798c2 843 { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((yyvsp[0].opval), OP_AV2ARYLEN));;}
0de566d7
DM
844 break;
845
0d863452
RH
846 case 160:
847#line 656 "perly.y"
9a9798c2 848 { (yyval.opval) = (yyvsp[0].opval); ;}
500bedb6
DM
849 break;
850
0d863452
RH
851 case 161:
852#line 658 "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
RH
860 case 162:
861#line 664 "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
RH
870 case 163:
871#line 671 "perly.y"
9a9798c2 872 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
873 break;
874
0d863452
RH
875 case 164:
876#line 673 "perly.y"
9a9798c2 877 { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((yyvsp[0].opval))); ;}
0de566d7
DM
878 break;
879
0d863452
RH
880 case 165:
881#line 675 "perly.y"
9a9798c2 882 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((yyvsp[-2].opval))); ;}
0de566d7
DM
883 break;
884
0d863452
RH
885 case 166:
886#line 677 "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
RH
891 case 167:
892#line 680 "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
RH
897 case 168:
898#line 683 "perly.y"
9a9798c2 899 { (yyval.opval) = newOP((yyvsp[0].ival), OPf_SPECIAL);
0de566d7
DM
900 PL_hints |= HINT_BLOCK_SCOPE; ;}
901 break;
902
0d863452
RH
903 case 169:
904#line 686 "perly.y"
9a9798c2 905 { (yyval.opval) = newLOOPEX((yyvsp[-1].ival),(yyvsp[0].opval)); ;}
0de566d7
DM
906 break;
907
0d863452
RH
908 case 170:
909#line 688 "perly.y"
9a9798c2 910 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((yyvsp[0].opval))); ;}
0de566d7
DM
911 break;
912
0d863452
RH
913 case 171:
914#line 690 "perly.y"
9a9798c2 915 { (yyval.opval) = newOP((yyvsp[0].ival), 0); ;}
0de566d7
DM
916 break;
917
0d863452
RH
918 case 172:
919#line 692 "perly.y"
9a9798c2 920 { (yyval.opval) = newUNOP((yyvsp[-1].ival), 0, (yyvsp[0].opval)); ;}
0de566d7
DM
921 break;
922
0d863452
RH
923 case 173:
924#line 694 "perly.y"
9a9798c2 925 { (yyval.opval) = newUNOP((yyvsp[-1].ival), 0, (yyvsp[0].opval)); ;}
0de566d7
DM
926 break;
927
0d863452
RH
928 case 174:
929#line 696 "perly.y"
a72a1c8b 930 { (yyval.opval) = newOP(OP_REQUIRE, (yyvsp[0].ival) ? OPf_SPECIAL : 0); ;}
0de566d7
DM
931 break;
932
0d863452
RH
933 case 175:
934#line 698 "perly.y"
a72a1c8b 935 { (yyval.opval) = newUNOP(OP_REQUIRE, (yyvsp[-1].ival) ? OPf_SPECIAL : 0, (yyvsp[0].opval)); ;}
0de566d7
DM
936 break;
937
0d863452
RH
938 case 176:
939#line 700 "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
RH
944 case 177:
945#line 703 "perly.y"
a72a1c8b 946 { (yyval.opval) = newOP((yyvsp[0].ival), 0); ;}
0de566d7
DM
947 break;
948
0d863452
RH
949 case 178:
950#line 705 "perly.y"
a72a1c8b 951 { (yyval.opval) = newOP((yyvsp[-2].ival), 0); ;}
0de566d7
DM
952 break;
953
0d863452
RH
954 case 179:
955#line 707 "perly.y"
a72a1c8b
RGS
956 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
957 scalar((yyvsp[0].opval))); ;}
0de566d7
DM
958 break;
959
0d863452
RH
960 case 180:
961#line 710 "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
RH
966 case 181:
967#line 713 "perly.y"
a72a1c8b 968 { (yyval.opval) = newUNOP((yyvsp[-3].ival), 0, (yyvsp[-1].opval)); ;}
0de566d7
DM
969 break;
970
0d863452
RH
971 case 182:
972#line 715 "perly.y"
a72a1c8b 973 { (yyval.opval) = pmruntime((yyvsp[-3].opval), (yyvsp[-1].opval), 1); ;}
0de566d7
DM
974 break;
975
0d863452
RH
976 case 185:
977#line 722 "perly.y"
a72a1c8b 978 { (yyval.opval) = my_attrs((yyvsp[-1].opval),(yyvsp[0].opval)); ;}
0de566d7
DM
979 break;
980
0d863452
RH
981 case 186:
982#line 724 "perly.y"
a72a1c8b 983 { (yyval.opval) = localize((yyvsp[0].opval),(yyvsp[-1].ival)); ;}
0de566d7
DM
984 break;
985
0d863452
RH
986 case 187:
987#line 729 "perly.y"
a72a1c8b 988 { (yyval.opval) = sawparens((yyvsp[-1].opval)); ;}
0de566d7
DM
989 break;
990
0d863452
RH
991 case 188:
992#line 731 "perly.y"
a72a1c8b 993 { (yyval.opval) = sawparens(newNULLLIST()); ;}
0de566d7
DM
994 break;
995
0d863452
RH
996 case 189:
997#line 733 "perly.y"
9a9798c2 998 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
999 break;
1000
0d863452
RH
1001 case 190:
1002#line 735 "perly.y"
a72a1c8b 1003 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
1004 break;
1005
0d863452
RH
1006 case 191:
1007#line 737 "perly.y"
9a9798c2 1008 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
1009 break;
1010
0d863452
RH
1011 case 192:
1012#line 742 "perly.y"
9a9798c2 1013 { (yyval.opval) = Nullop; ;}
0de566d7
DM
1014 break;
1015
0d863452
RH
1016 case 193:
1017#line 744 "perly.y"
9a9798c2 1018 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
1019 break;
1020
0d863452
RH
1021 case 194:
1022#line 748 "perly.y"
a72a1c8b 1023 { (yyval.opval) = Nullop; ;}
0de566d7
DM
1024 break;
1025
0d863452
RH
1026 case 195:
1027#line 750 "perly.y"
a72a1c8b 1028 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
1029 break;
1030
0d863452
RH
1031 case 196:
1032#line 752 "perly.y"
a72a1c8b 1033 { (yyval.opval) = (yyvsp[-1].opval); ;}
0de566d7
DM
1034 break;
1035
0d863452
RH
1036 case 197:
1037#line 758 "perly.y"
a72a1c8b 1038 { PL_in_my = 0; (yyval.opval) = my((yyvsp[0].opval)); ;}
0de566d7
DM
1039 break;
1040
0d863452
RH
1041 case 198:
1042#line 762 "perly.y"
a72a1c8b 1043 { (yyval.opval) = newCVREF((yyvsp[-1].ival),(yyvsp[0].opval)); ;}
0de566d7
DM
1044 break;
1045
0d863452
RH
1046 case 199:
1047#line 766 "perly.y"
a72a1c8b 1048 { (yyval.opval) = newSVREF((yyvsp[0].opval)); ;}
0de566d7
DM
1049 break;
1050
0d863452
RH
1051 case 200:
1052#line 770 "perly.y"
9a9798c2 1053 { (yyval.opval) = newAVREF((yyvsp[0].opval)); ;}
0de566d7
DM
1054 break;
1055
0d863452
RH
1056 case 201:
1057#line 774 "perly.y"
a72a1c8b 1058 { (yyval.opval) = newHVREF((yyvsp[0].opval)); ;}
0de566d7
DM
1059 break;
1060
0d863452
RH
1061 case 202:
1062#line 778 "perly.y"
a72a1c8b 1063 { (yyval.opval) = newAVREF((yyvsp[0].opval)); ;}
0de566d7
DM
1064 break;
1065
0d863452
RH
1066 case 203:
1067#line 782 "perly.y"
a72a1c8b 1068 { (yyval.opval) = newGVREF(0,(yyvsp[0].opval)); ;}
0de566d7
DM
1069 break;
1070
0d863452
RH
1071 case 204:
1072#line 787 "perly.y"
a72a1c8b 1073 { (yyval.opval) = scalar((yyvsp[0].opval)); ;}
500bedb6
DM
1074 break;
1075
0d863452
RH
1076 case 205:
1077#line 789 "perly.y"
a72a1c8b
RGS
1078 { (yyval.opval) = scalar((yyvsp[0].opval)); ;}
1079 break;
1080
0d863452
RH
1081 case 206:
1082#line 791 "perly.y"
a72a1c8b
RGS
1083 { (yyval.opval) = scope((yyvsp[0].opval)); ;}
1084 break;
1085
0d863452
RH
1086 case 207:
1087#line 794 "perly.y"
9a9798c2 1088 { (yyval.opval) = (yyvsp[0].opval); ;}
0de566d7
DM
1089 break;
1090
1091
20515881 1092 default: break;
0de566d7 1093