This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In perly.y, change PL_parser to parser
[perl5.git] / perly.act
CommitLineData
e8fb9efb
NC
1/* -*- buffer-read-only: t -*-
2 !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
3 This file is built by regen_perly.pl from perly.y.
4 Any changes made here will be lost!
5 */
6
0de566d7 7case 2:
b5bbe64a 8#line 114 "perly.y"
727a8fe5 9 {
624fa8bd 10 parser->expect = XSTATE;
2d0e3c96 11 ;}
0de566d7
DM
12 break;
13
14 case 3:
b5bbe64a 15#line 118 "perly.y"
636def1f 16 {
727a8fe5
Z
17 newPROG(block_end((ps[(3) - (4)].val.ival),(ps[(4) - (4)].val.opval)));
18 (yyval.ival) = 0;
2d0e3c96 19 ;}
9eb5c532
Z
20 break;
21
22 case 4:
b5bbe64a 23#line 123 "perly.y"
727a8fe5 24 {
78cdf107 25 parser->expect = XTERM;
2d0e3c96 26 ;}
727a8fe5
Z
27 break;
28
29 case 5:
b5bbe64a 30#line 127 "perly.y"
9eb5c532
Z
31 {
32 PL_eval_root = (ps[(3) - (3)].val.opval);
636def1f 33 (yyval.ival) = 0;
2d0e3c96 34 ;}
636def1f
RGS
35 break;
36
727a8fe5 37 case 6:
b5bbe64a 38#line 132 "perly.y"
07ffcb73 39 {
78cdf107 40 parser->expect = XBLOCK;
2d0e3c96 41 ;}
07ffcb73
Z
42 break;
43
727a8fe5 44 case 7:
b5bbe64a 45#line 136 "perly.y"
07ffcb73 46 {
5f211341 47 PL_pad_reset_pending = TRUE;
a7aaec61 48 PL_eval_root = (ps[(3) - (3)].val.opval);
07ffcb73 49 (yyval.ival) = 0;
e53d8f76
Z
50 yyunlex();
51 parser->yychar = YYEOF;
2d0e3c96 52 ;}
07ffcb73
Z
53 break;
54
727a8fe5 55 case 8:
b5bbe64a 56#line 144 "perly.y"
e53d8f76
Z
57 {
58 parser->expect = XSTATE;
2d0e3c96 59 ;}
636def1f
RGS
60 break;
61
727a8fe5 62 case 9:
b5bbe64a 63#line 148 "perly.y"
e53d8f76 64 {
8359b381 65 PL_pad_reset_pending = TRUE;
e53d8f76
Z
66 PL_eval_root = (ps[(3) - (3)].val.opval);
67 (yyval.ival) = 0;
8359b381
Z
68 yyunlex();
69 parser->yychar = YYEOF;
2d0e3c96 70 ;}
e53d8f76
Z
71 break;
72
727a8fe5 73 case 10:
b5bbe64a 74#line 156 "perly.y"
8359b381
Z
75 {
76 parser->expect = XSTATE;
2d0e3c96 77 ;}
e53d8f76
Z
78 break;
79
727a8fe5 80 case 11:
b5bbe64a 81#line 160 "perly.y"
8359b381 82 {
78cdf107 83 PL_pad_reset_pending = TRUE;
8359b381
Z
84 PL_eval_root = (ps[(3) - (3)].val.opval);
85 (yyval.ival) = 0;
78cdf107
Z
86 yyunlex();
87 parser->yychar = YYEOF;
2d0e3c96 88 ;}
8359b381
Z
89 break;
90
8359b381 91 case 12:
b5bbe64a 92#line 168 "perly.y"
78cdf107
Z
93 {
94 parser->expect = XSTATE;
2d0e3c96 95 ;}
78cdf107
Z
96 break;
97
98 case 13:
b5bbe64a 99#line 172 "perly.y"
78cdf107
Z
100 {
101 PL_eval_root = (ps[(3) - (3)].val.opval);
102 (yyval.ival) = 0;
2d0e3c96 103 ;}
78cdf107
Z
104 break;
105
106 case 14:
b5bbe64a 107#line 180 "perly.y"
624fa8bd
FC
108 { if (parser->copline > (line_t)(ps[(1) - (4)].val.ival))
109 parser->copline = (line_t)(ps[(1) - (4)].val.ival);
1654d593 110 (yyval.opval) = block_end((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval));
2d0e3c96 111 ;}
0de566d7
DM
112 break;
113
78cdf107 114 case 15:
b5bbe64a 115#line 188 "perly.y"
624fa8bd
FC
116 { if (parser->copline > (line_t)(ps[(1) - (7)].val.ival))
117 parser->copline = (line_t)(ps[(1) - (7)].val.ival);
705fe0e5 118 (yyval.opval) = block_end((ps[(2) - (7)].val.ival), (ps[(5) - (7)].val.opval));
2d0e3c96 119 ;}
0d863452
RH
120 break;
121
78cdf107 122 case 16:
b5bbe64a 123#line 195 "perly.y"
2d0e3c96 124 { (yyval.ival) = block_start(TRUE); ;}
7c70caa5
FC
125 break;
126
127 case 17:
b5bbe64a 128#line 199 "perly.y"
624fa8bd
FC
129 { if (parser->copline > (line_t)(ps[(1) - (4)].val.ival))
130 parser->copline = (line_t)(ps[(1) - (4)].val.ival);
1654d593 131 (yyval.opval) = block_end((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval));
2d0e3c96 132 ;}
0de566d7
DM
133 break;
134
7c70caa5 135 case 18:
b5bbe64a 136#line 206 "perly.y"
2d0e3c96 137 { (yyval.ival) = block_start(FALSE); ;}
0de566d7
DM
138 break;
139
7c70caa5 140 case 19:
b5bbe64a 141#line 211 "perly.y"
2d0e3c96 142 { (yyval.opval) = (OP*)NULL; ;}
0de566d7
DM
143 break;
144
7c70caa5 145 case 20:
b5bbe64a 146#line 213 "perly.y"
2fcb4757 147 { (yyval.opval) = op_append_list(OP_LINESEQ, (ps[(1) - (2)].val.opval), (ps[(2) - (2)].val.opval));
500bedb6 148 PL_pad_reset_pending = TRUE;
503de470
DM
149 if ((ps[(1) - (2)].val.opval) && (ps[(2) - (2)].val.opval))
150 PL_hints |= HINT_BLOCK_SCOPE;
2d0e3c96 151 ;}
500bedb6
DM
152 break;
153
7c70caa5 154 case 21:
b5bbe64a 155#line 222 "perly.y"
2d0e3c96 156 { (yyval.opval) = (OP*)NULL; ;}
705fe0e5
FC
157 break;
158
159 case 22:
b5bbe64a 160#line 224 "perly.y"
705fe0e5
FC
161 { (yyval.opval) = op_append_list(OP_LINESEQ, (ps[(1) - (2)].val.opval), (ps[(2) - (2)].val.opval));
162 PL_pad_reset_pending = TRUE;
163 if ((ps[(1) - (2)].val.opval) && (ps[(2) - (2)].val.opval))
164 PL_hints |= HINT_BLOCK_SCOPE;
2d0e3c96 165 ;}
705fe0e5
FC
166 break;
167
168 case 23:
b5bbe64a 169#line 233 "perly.y"
eae48c89 170 {
b5bbe64a 171 (yyval.opval) = (ps[(1) - (1)].val.opval) ? newSTATEOP(0, NULL, (ps[(1) - (1)].val.opval)) : NULL;
2d0e3c96 172 ;}
0d863452
RH
173 break;
174
705fe0e5 175 case 24:
b5bbe64a 176#line 237 "perly.y"
2d0e3c96 177 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0d863452
RH
178 break;
179
705fe0e5 180 case 25:
b5bbe64a 181#line 241 "perly.y"
8e720305 182 {
b5bbe64a 183 (yyval.opval) = newSTATEOP(SVf_UTF8 * (ps[(1) - (2)].val.pval)[strlen((ps[(1) - (2)].val.pval))+1], (ps[(1) - (2)].val.pval), (ps[(2) - (2)].val.opval));
2d0e3c96 184 ;}
8e720305
Z
185 break;
186
705fe0e5 187 case 26:
b5bbe64a 188#line 245 "perly.y"
8e720305 189 {
b5bbe64a 190 (yyval.opval) = newSTATEOP(SVf_UTF8 * (ps[(1) - (2)].val.pval)[strlen((ps[(1) - (2)].val.pval))+1], (ps[(1) - (2)].val.pval), (ps[(2) - (2)].val.opval));
2d0e3c96 191 ;}
8e720305
Z
192 break;
193
705fe0e5 194 case 27:
b5bbe64a 195#line 252 "perly.y"
2d0e3c96 196 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
8e720305
Z
197 break;
198
705fe0e5 199 case 28:
b5bbe64a 200#line 254 "perly.y"
eae48c89
Z
201 {
202 CV *fmtcv = PL_compcv;
eae48c89
Z
203 newFORM((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval), (ps[(4) - (4)].val.opval));
204 (yyval.opval) = (OP*)NULL;
4a273b91 205 if (CvOUTSIDE(fmtcv) && !CvEVAL(CvOUTSIDE(fmtcv))) {
eae48c89 206 SvREFCNT_inc_simple_void(fmtcv);
cc76b5cc 207 pad_add_anon(fmtcv, OP_NULL);
eae48c89 208 }
2d0e3c96 209 ;}
0de566d7
DM
210 break;
211
b5bbe64a
JH
212 case 29:
213#line 264 "perly.y"
50278755
FC
214 {
215 if ((ps[(2) - (3)].val.opval)->op_type == OP_CONST) {
216 const char *const name =
217 SvPV_nolen_const(((SVOP*)(ps[(2) - (3)].val.opval))->op_sv);
218 if (strEQ(name, "BEGIN") || strEQ(name, "END")
764212cf
FC
219 || strEQ(name, "INIT") || strEQ(name, "CHECK")
220 || strEQ(name, "UNITCHECK"))
221 CvSPECIAL_on(PL_compcv);
50278755 222 }
e07561e6
FC
223 else
224 /* State subs inside anonymous subs need to be
225 clonable themselves. */
6d5c2147
FC
226 if (CvANON(CvOUTSIDE(PL_compcv))
227 || CvCLONE(CvOUTSIDE(PL_compcv))
228 || !PadnameIsSTATE(PadlistNAMESARRAY(CvPADLIST(
229 CvOUTSIDE(PL_compcv)
230 ))[(ps[(2) - (3)].val.opval)->op_targ]))
e07561e6 231 CvCLONE_on(PL_compcv);
624fa8bd
FC
232 parser->in_my = 0;
233 parser->in_my_stash = NULL;
2d0e3c96 234 ;}
764212cf
FC
235 break;
236
b5bbe64a
JH
237 case 30:
238#line 286 "perly.y"
f05e27e5 239 {
eae48c89 240 SvREFCNT_inc_simple_void(PL_compcv);
50278755
FC
241 (ps[(2) - (7)].val.opval)->op_type == OP_CONST
242 ? newATTRSUB((ps[(3) - (7)].val.ival), (ps[(2) - (7)].val.opval), (ps[(5) - (7)].val.opval), (ps[(6) - (7)].val.opval), (ps[(7) - (7)].val.opval))
243 : newMYSUB((ps[(3) - (7)].val.ival), (ps[(2) - (7)].val.opval), (ps[(5) - (7)].val.opval), (ps[(6) - (7)].val.opval), (ps[(7) - (7)].val.opval))
50278755 244 ;
eae48c89 245 (yyval.opval) = (OP*)NULL;
764212cf 246 intro_my();
2d0e3c96 247 ;}
0de566d7
DM
248 break;
249
b5bbe64a
JH
250 case 31:
251#line 296 "perly.y"
f05e27e5 252 {
eae48c89
Z
253 package((ps[(3) - (4)].val.opval));
254 if ((ps[(2) - (4)].val.opval))
255 package_version((ps[(2) - (4)].val.opval));
256 (yyval.opval) = (OP*)NULL;
2d0e3c96 257 ;}
0de566d7
DM
258 break;
259
b5bbe64a
JH
260 case 32:
261#line 303 "perly.y"
2d0e3c96 262 { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ ;}
0de566d7
DM
263 break;
264
b5bbe64a
JH
265 case 33:
266#line 305 "perly.y"
5f211341 267 {
eae48c89 268 SvREFCNT_inc_simple_void(PL_compcv);
b5bbe64a 269 utilize((ps[(1) - (7)].val.ival), (ps[(2) - (7)].val.ival), (ps[(4) - (7)].val.opval), (ps[(5) - (7)].val.opval), (ps[(6) - (7)].val.opval));
eae48c89 270 (yyval.opval) = (OP*)NULL;
2d0e3c96 271 ;}
5f211341
Z
272 break;
273
b5bbe64a
JH
274 case 34:
275#line 311 "perly.y"
eae48c89 276 {
3ad73efd
Z
277 (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
278 newCONDOP(0, (ps[(4) - (7)].val.opval), op_scope((ps[(6) - (7)].val.opval)), (ps[(7) - (7)].val.opval)));
624fa8bd 279 parser->copline = (line_t)(ps[(1) - (7)].val.ival);
2d0e3c96 280 ;}
4098b6bb
JV
281 break;
282
b5bbe64a
JH
283 case 35:
284#line 317 "perly.y"
eae48c89 285 {
3ad73efd
Z
286 (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
287 newCONDOP(0, (ps[(4) - (7)].val.opval), op_scope((ps[(6) - (7)].val.opval)), (ps[(7) - (7)].val.opval)));
624fa8bd 288 parser->copline = (line_t)(ps[(1) - (7)].val.ival);
2d0e3c96 289 ;}
4e4da3ac
Z
290 break;
291
b5bbe64a
JH
292 case 36:
293#line 323 "perly.y"
eae48c89 294 {
b5a64814
FC
295 const PADOFFSET offset = pad_findmy_pvs("$_", 0);
296 (yyval.opval) = block_end((ps[(3) - (6)].val.ival),
297 newGIVENOP((ps[(4) - (6)].val.opval), op_scope((ps[(6) - (6)].val.opval)),
298 offset == NOT_IN_PAD
299 || PAD_COMPNAME_FLAGS_isOUR(offset)
300 ? 0
301 : offset));
624fa8bd 302 parser->copline = (line_t)(ps[(1) - (6)].val.ival);
2d0e3c96 303 ;}
0de566d7
DM
304 break;
305
b5bbe64a
JH
306 case 37:
307#line 334 "perly.y"
2d0e3c96 308 { (yyval.opval) = block_end((ps[(3) - (6)].val.ival), newWHENOP((ps[(4) - (6)].val.opval), op_scope((ps[(6) - (6)].val.opval)))); ;}
0de566d7
DM
309 break;
310
b5bbe64a
JH
311 case 38:
312#line 336 "perly.y"
2d0e3c96 313 { (yyval.opval) = newWHENOP(0, op_scope((ps[(2) - (2)].val.opval))); ;}
0de566d7
DM
314 break;
315
b5bbe64a
JH
316 case 39:
317#line 338 "perly.y"
eae48c89
Z
318 {
319 (yyval.opval) = block_end((ps[(3) - (8)].val.ival),
320 newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
94bf0465 321 (ps[(4) - (8)].val.opval), (ps[(7) - (8)].val.opval), (ps[(8) - (8)].val.opval), (ps[(6) - (8)].val.ival)));
624fa8bd 322 parser->copline = (line_t)(ps[(1) - (8)].val.ival);
2d0e3c96 323 ;}
0de566d7
DM
324 break;
325
b5bbe64a
JH
326 case 40:
327#line 345 "perly.y"
eae48c89
Z
328 {
329 (yyval.opval) = block_end((ps[(3) - (8)].val.ival),
94bf0465
Z
330 newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
331 (ps[(4) - (8)].val.opval), (ps[(7) - (8)].val.opval), (ps[(8) - (8)].val.opval), (ps[(6) - (8)].val.ival)));
624fa8bd 332 parser->copline = (line_t)(ps[(1) - (8)].val.ival);
2d0e3c96 333 ;}
0de566d7
DM
334 break;
335
b5bbe64a 336 case 41:
2d0e3c96
FC
337#line 352 "perly.y"
338 { parser->expect = XTERM; ;}
339 break;
340
341 case 42:
342#line 354 "perly.y"
343 { parser->expect = XTERM; ;}
344 break;
345
346 case 43:
347#line 357 "perly.y"
eae48c89 348 {
2d0e3c96 349 OP *initop = (ps[(4) - (13)].val.opval);
eae48c89 350 OP *forop = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
2d0e3c96 351 scalar((ps[(7) - (13)].val.opval)), (ps[(13) - (13)].val.opval), (ps[(11) - (13)].val.opval), (ps[(10) - (13)].val.ival));
eae48c89
Z
352 if (initop) {
353 forop = op_prepend_elem(OP_LINESEQ, initop,
354 op_append_elem(OP_LINESEQ,
355 newOP(OP_UNSTACK, OPf_SPECIAL),
356 forop));
357 }
2d0e3c96 358 (yyval.opval) = block_end((ps[(3) - (13)].val.ival), forop);
624fa8bd 359 parser->copline = (line_t)(ps[(1) - (13)].val.ival);
2d0e3c96 360 ;}
0de566d7
DM
361 break;
362
2d0e3c96
FC
363 case 44:
364#line 371 "perly.y"
eae48c89 365 {
94bf0465 366 (yyval.opval) = block_end((ps[(3) - (9)].val.ival), newFOROP(0, (ps[(4) - (9)].val.opval), (ps[(6) - (9)].val.opval), (ps[(8) - (9)].val.opval), (ps[(9) - (9)].val.opval)));
624fa8bd 367 parser->copline = (line_t)(ps[(1) - (9)].val.ival);
2d0e3c96 368 ;}
f20dcd76
VP
369 break;
370
2d0e3c96
FC
371 case 45:
372#line 376 "perly.y"
eae48c89 373 {
94bf0465 374 (yyval.opval) = block_end((ps[(4) - (8)].val.ival), newFOROP(0,
3ad73efd 375 op_lvalue((ps[(2) - (8)].val.opval), OP_ENTERLOOP), (ps[(5) - (8)].val.opval), (ps[(7) - (8)].val.opval), (ps[(8) - (8)].val.opval)));
624fa8bd 376 parser->copline = (line_t)(ps[(1) - (8)].val.ival);
2d0e3c96 377 ;}
0de566d7
DM
378 break;
379
2d0e3c96
FC
380 case 46:
381#line 382 "perly.y"
eae48c89
Z
382 {
383 (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
94bf0465 384 newFOROP(0, (OP*)NULL, (ps[(4) - (7)].val.opval), (ps[(6) - (7)].val.opval), (ps[(7) - (7)].val.opval)));
624fa8bd 385 parser->copline = (line_t)(ps[(1) - (7)].val.ival);
2d0e3c96 386 ;}
0de566d7
DM
387 break;
388
2d0e3c96
FC
389 case 47:
390#line 388 "perly.y"
eae48c89
Z
391 {
392 /* a block is a loop that happens once */
393 (yyval.opval) = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
94bf0465 394 (OP*)NULL, (ps[(1) - (2)].val.opval), (ps[(2) - (2)].val.opval), 0);
2d0e3c96 395 ;}
0de566d7
DM
396 break;
397
2d0e3c96
FC
398 case 48:
399#line 394 "perly.y"
eae48c89 400 {
eae48c89 401 package((ps[(3) - (5)].val.opval));
eae48c89 402 if ((ps[(2) - (5)].val.opval)) {
eae48c89 403 package_version((ps[(2) - (5)].val.opval));
eae48c89 404 }
2d0e3c96 405 ;}
0de566d7
DM
406 break;
407
2d0e3c96
FC
408 case 49:
409#line 401 "perly.y"
eae48c89
Z
410 {
411 /* a block is a loop that happens once */
94bf0465 412 (yyval.opval) = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
eae48c89 413 (OP*)NULL, block_end((ps[(5) - (8)].val.ival), (ps[(7) - (8)].val.opval)), (OP*)NULL, 0);
624fa8bd
FC
414 if (parser->copline > (line_t)(ps[(4) - (8)].val.ival))
415 parser->copline = (line_t)(ps[(4) - (8)].val.ival);
2d0e3c96 416 ;}
0d863452
RH
417 break;
418
2d0e3c96
FC
419 case 50:
420#line 409 "perly.y"
eae48c89 421 {
eae48c89 422 (yyval.opval) = (ps[(1) - (2)].val.opval);
2d0e3c96 423 ;}
0d863452
RH
424 break;
425
2d0e3c96
FC
426 case 51:
427#line 413 "perly.y"
eae48c89 428 {
b5bbe64a 429 (yyval.opval) = (OP*)NULL;
624fa8bd 430 parser->copline = NOLINE;
2d0e3c96 431 ;}
0de566d7
DM
432 break;
433
2d0e3c96
FC
434 case 52:
435#line 421 "perly.y"
705fe0e5
FC
436 { OP *list;
437 if ((ps[(2) - (2)].val.opval)) {
438 OP *term = (ps[(2) - (2)].val.opval);
705fe0e5
FC
439 list = op_append_elem(OP_LIST, (ps[(1) - (2)].val.opval), term);
440 }
441 else {
705fe0e5 442 list = (ps[(1) - (2)].val.opval);
705fe0e5 443 }
624fa8bd
FC
444 if (parser->copline == NOLINE)
445 parser->copline = CopLINE(PL_curcop)-1;
446 else parser->copline--;
705fe0e5
FC
447 (yyval.opval) = newSTATEOP(0, NULL,
448 convert(OP_FORMLINE, 0, list));
2d0e3c96 449 ;}
705fe0e5
FC
450 break;
451
b5bbe64a 452 case 53:
2d0e3c96
FC
453#line 438 "perly.y"
454 { (yyval.opval) = NULL; ;}
0de566d7
DM
455 break;
456
b5bbe64a 457 case 54:
2d0e3c96
FC
458#line 440 "perly.y"
459 { (yyval.opval) = op_unscope((ps[(2) - (3)].val.opval)); ;}
0de566d7
DM
460 break;
461
b5bbe64a 462 case 55:
2d0e3c96
FC
463#line 445 "perly.y"
464 { (yyval.opval) = (OP*)NULL; ;}
b5bbe64a
JH
465 break;
466
8d2a5fb4 467 case 56:
2d0e3c96
FC
468#line 447 "perly.y"
469 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM
470 break;
471
8d2a5fb4 472 case 57:
2d0e3c96
FC
473#line 449 "perly.y"
474 { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval)); ;}
0de566d7
DM
475 break;
476
8d2a5fb4 477 case 58:
2d0e3c96
FC
478#line 451 "perly.y"
479 { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval)); ;}
0de566d7
DM
480 break;
481
8d2a5fb4 482 case 59:
2d0e3c96
FC
483#line 453 "perly.y"
484 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((ps[(3) - (3)].val.opval)), (ps[(1) - (3)].val.opval)); ;}
0de566d7
DM
485 break;
486
b5bbe64a 487 case 60:
2d0e3c96
FC
488#line 455 "perly.y"
489 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval)); ;}
0de566d7
DM
490 break;
491
b5bbe64a 492 case 61:
2d0e3c96
FC
493#line 457 "perly.y"
494 { (yyval.opval) = newFOROP(0, (OP*)NULL, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval), (OP*)NULL);
624fa8bd 495 parser->copline = (line_t)(ps[(2) - (3)].val.ival); ;}
0d863452
RH
496 break;
497
b5bbe64a 498 case 62:
2d0e3c96
FC
499#line 460 "perly.y"
500 { (yyval.opval) = newWHENOP((ps[(3) - (3)].val.opval), op_scope((ps[(1) - (3)].val.opval))); ;}
501 break;
502
503 case 63:
b5bbe64a 504#line 465 "perly.y"
2d0e3c96
FC
505 { (yyval.opval) = (OP*)NULL; ;}
506 break;
507
508 case 64:
509#line 467 "perly.y"
3ad73efd
Z
510 {
511 ((ps[(2) - (2)].val.opval))->op_flags |= OPf_PARENS;
512 (yyval.opval) = op_scope((ps[(2) - (2)].val.opval));
2d0e3c96 513 ;}
eae48c89
Z
514 break;
515
2d0e3c96
FC
516 case 65:
517#line 472 "perly.y"
624fa8bd 518 { parser->copline = (line_t)(ps[(1) - (6)].val.ival);
3ad73efd
Z
519 (yyval.opval) = newCONDOP(0,
520 newSTATEOP(OPf_SPECIAL,NULL,(ps[(3) - (6)].val.opval)),
521 op_scope((ps[(5) - (6)].val.opval)), (ps[(6) - (6)].val.opval));
522 PL_hints |= HINT_BLOCK_SCOPE;
2d0e3c96 523 ;}
eae48c89
Z
524 break;
525
2d0e3c96
FC
526 case 66:
527#line 482 "perly.y"
528 { (yyval.opval) = (OP*)NULL; ;}
eae48c89
Z
529 break;
530
2d0e3c96
FC
531 case 67:
532#line 484 "perly.y"
533 { (yyval.opval) = op_scope((ps[(2) - (2)].val.opval)); ;}
eae48c89
Z
534 break;
535
2d0e3c96
FC
536 case 68:
537#line 489 "perly.y"
9a9798c2 538 { (yyval.ival) = (PL_min_intro_pending &&
a034e688 539 PL_max_intro_pending >= PL_min_intro_pending);
2d0e3c96 540 intro_my(); ;}
0de566d7
DM
541 break;
542
b5bbe64a 543 case 69:
2d0e3c96
FC
544#line 495 "perly.y"
545 { (yyval.opval) = (OP*)NULL; ;}
0de566d7
DM
546 break;
547
b5bbe64a 548 case 71:
2d0e3c96
FC
549#line 501 "perly.y"
550 { YYSTYPE tmplval;
551 (void)scan_num("1", &tmplval);
552 (yyval.opval) = tmplval.opval; ;}
9eb5c532
Z
553 break;
554
b5bbe64a 555 case 73:
2d0e3c96
FC
556#line 509 "perly.y"
557 { (yyval.opval) = invert(scalar((ps[(1) - (1)].val.opval))); ;}
f20dcd76
VP
558 break;
559
b5bbe64a 560 case 74:
2d0e3c96
FC
561#line 514 "perly.y"
562 { (yyval.opval) = (ps[(1) - (1)].val.opval); intro_my(); ;}
0de566d7
DM
563 break;
564
b5bbe64a 565 case 75:
2d0e3c96
FC
566#line 518 "perly.y"
567 { (yyval.opval) = (ps[(1) - (1)].val.opval); intro_my(); ;}
7c70caa5
FC
568 break;
569
b5bbe64a 570 case 76:
2d0e3c96
FC
571#line 522 "perly.y"
572 { (yyval.opval) = (ps[(1) - (1)].val.opval); intro_my(); ;}
764212cf
FC
573 break;
574
b5bbe64a 575 case 77:
2d0e3c96
FC
576#line 525 "perly.y"
577 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM
578 break;
579
b5bbe64a 580 case 78:
2d0e3c96
FC
581#line 526 "perly.y"
582 { (yyval.opval) = (OP*)NULL; ;}
500bedb6
DM
583 break;
584
b5bbe64a 585 case 79:
2d0e3c96
FC
586#line 530 "perly.y"
587 { (yyval.ival) = start_subparse(FALSE, 0);
588 SAVEFREESV(PL_compcv); ;}
2af555bf
DM
589 break;
590
2d0e3c96
FC
591 case 80:
592#line 536 "perly.y"
593 { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
594 SAVEFREESV(PL_compcv); ;}
0de566d7
DM
595 break;
596
2d0e3c96
FC
597 case 81:
598#line 541 "perly.y"
599 { (yyval.ival) = start_subparse(TRUE, 0);
600 SAVEFREESV(PL_compcv); ;}
0de566d7
DM
601 break;
602
2d0e3c96
FC
603 case 84:
604#line 552 "perly.y"
605 { (yyval.opval) = (OP*)NULL; ;}
b5bbe64a
JH
606 break;
607
8d2a5fb4 608 case 86:
2d0e3c96
FC
609#line 558 "perly.y"
610 { (yyval.opval) = (OP*)NULL; ;}
0de566d7
DM
611 break;
612
8d2a5fb4 613 case 87:
2d0e3c96
FC
614#line 560 "perly.y"
615 { (yyval.opval) = (ps[(2) - (2)].val.opval); ;}
0de566d7
DM
616 break;
617
8d2a5fb4 618 case 88:
2d0e3c96
FC
619#line 562 "perly.y"
620 { (yyval.opval) = (OP*)NULL; ;}
0de566d7
DM
621 break;
622
8d2a5fb4 623 case 89:
2d0e3c96
FC
624#line 567 "perly.y"
625 { (yyval.opval) = (ps[(2) - (2)].val.opval); ;}
0de566d7
DM
626 break;
627
b5bbe64a 628 case 90:
2d0e3c96
FC
629#line 569 "perly.y"
630 { (yyval.opval) = (OP*)NULL; ;}
631 break;
632
633 case 91:
b5bbe64a 634#line 573 "perly.y"
2d0e3c96
FC
635 { (yyval.opval) = (OP*)NULL; ;}
636 break;
637
638 case 92:
639#line 575 "perly.y"
30d9c59b
Z
640 {
641 if (!FEATURE_SIGNATURES_IS_ENABLED)
642 Perl_croak(aTHX_ "Experimental "
643 "subroutine signatures not enabled");
644 Perl_ck_warner_d(aTHX_
645 packWARN(WARN_EXPERIMENTAL__SIGNATURES),
646 "The signatures feature is experimental");
647 (yyval.opval) = parse_subsignature();
2d0e3c96 648 ;}
30d9c59b
Z
649 break;
650
2d0e3c96
FC
651 case 93:
652#line 585 "perly.y"
30d9c59b
Z
653 {
654 (yyval.opval) = op_append_list(OP_LINESEQ, (ps[(2) - (3)].val.opval),
655 newSTATEOP(0, NULL, sawparens(newNULLLIST())));
624fa8bd 656 parser->expect = XBLOCK;
2d0e3c96 657 ;}
30d9c59b
Z
658 break;
659
2d0e3c96
FC
660 case 94:
661#line 594 "perly.y"
30d9c59b 662 {
624fa8bd
FC
663 if (parser->copline > (line_t)(ps[(3) - (5)].val.ival))
664 parser->copline = (line_t)(ps[(3) - (5)].val.ival);
30d9c59b
Z
665 (yyval.opval) = block_end((ps[(1) - (5)].val.ival),
666 op_append_list(OP_LINESEQ, (ps[(2) - (5)].val.opval), (ps[(4) - (5)].val.opval)));
2d0e3c96 667 ;}
30d9c59b
Z
668 break;
669
2d0e3c96
FC
670 case 95:
671#line 603 "perly.y"
672 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
30d9c59b
Z
673 break;
674
2d0e3c96
FC
675 case 96:
676#line 604 "perly.y"
677 { (yyval.opval) = (OP*)NULL; ;}
0de566d7
DM
678 break;
679
2d0e3c96 680 case 97:
b5bbe64a 681#line 609 "perly.y"
2d0e3c96 682 { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); ;}
b5bbe64a
JH
683 break;
684
2d0e3c96 685 case 98:
b5bbe64a 686#line 611 "perly.y"
2d0e3c96 687 { (yyval.opval) = newLOGOP((ps[(2) - (3)].val.ival), 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); ;}
0de566d7
DM
688 break;
689
2d0e3c96 690 case 99:
b5bbe64a 691#line 613 "perly.y"
2d0e3c96 692 { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); ;}
0de566d7
DM
693 break;
694
2d0e3c96 695 case 101:
b5bbe64a 696#line 619 "perly.y"
2d0e3c96 697 { (yyval.opval) = (ps[(1) - (2)].val.opval); ;}
0de566d7
DM
698 break;
699
2d0e3c96 700 case 102:
b5bbe64a 701#line 621 "perly.y"
f05e27e5 702 {
1654d593 703 OP* term = (ps[(3) - (3)].val.opval);
2fcb4757 704 (yyval.opval) = op_append_elem(OP_LIST, (ps[(1) - (3)].val.opval), term);
2d0e3c96 705 ;}
0de566d7
DM
706 break;
707
2d0e3c96 708 case 104:
b5bbe64a
JH
709#line 630 "perly.y"
710 { (yyval.opval) = convert((ps[(1) - (3)].val.ival), OPf_STACKED,
711 op_prepend_elem(OP_LIST, newGVREF((ps[(1) - (3)].val.ival),(ps[(2) - (3)].val.opval)), (ps[(3) - (3)].val.opval)) );
2d0e3c96 712 ;}
0de566d7
DM
713 break;
714
2d0e3c96 715 case 105:
b5bbe64a
JH
716#line 634 "perly.y"
717 { (yyval.opval) = convert((ps[(1) - (5)].val.ival), OPf_STACKED,
718 op_prepend_elem(OP_LIST, newGVREF((ps[(1) - (5)].val.ival),(ps[(3) - (5)].val.opval)), (ps[(4) - (5)].val.opval)) );
2d0e3c96 719 ;}
0de566d7
DM
720 break;
721
2d0e3c96 722 case 106:
b5bbe64a 723#line 638 "perly.y"
9a9798c2 724 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
2fcb4757
Z
725 op_append_elem(OP_LIST,
726 op_prepend_elem(OP_LIST, scalar((ps[(1) - (6)].val.opval)), (ps[(5) - (6)].val.opval)),
1654d593 727 newUNOP(OP_METHOD, 0, (ps[(3) - (6)].val.opval))));
2d0e3c96 728 ;}
0de566d7
DM
729 break;
730
2d0e3c96 731 case 107:
b5bbe64a 732#line 644 "perly.y"
9a9798c2 733 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
2fcb4757 734 op_append_elem(OP_LIST, scalar((ps[(1) - (3)].val.opval)),
1654d593 735 newUNOP(OP_METHOD, 0, (ps[(3) - (3)].val.opval))));
2d0e3c96 736 ;}
0de566d7
DM
737 break;
738
2d0e3c96 739 case 108:
b5bbe64a 740#line 649 "perly.y"
f05e27e5 741 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
2fcb4757
Z
742 op_append_elem(OP_LIST,
743 op_prepend_elem(OP_LIST, (ps[(2) - (3)].val.opval), (ps[(3) - (3)].val.opval)),
1654d593 744 newUNOP(OP_METHOD, 0, (ps[(1) - (3)].val.opval))));
2d0e3c96 745 ;}
0de566d7
DM
746 break;
747
2d0e3c96 748 case 109:
b5bbe64a 749#line 655 "perly.y"
f05e27e5 750 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
2fcb4757
Z
751 op_append_elem(OP_LIST,
752 op_prepend_elem(OP_LIST, (ps[(2) - (5)].val.opval), (ps[(4) - (5)].val.opval)),
1654d593 753 newUNOP(OP_METHOD, 0, (ps[(1) - (5)].val.opval))));
2d0e3c96 754 ;}
0de566d7
DM
755 break;
756
2d0e3c96 757 case 110:
b5bbe64a 758#line 661 "perly.y"
2d0e3c96 759 { (yyval.opval) = convert((ps[(1) - (2)].val.ival), 0, (ps[(2) - (2)].val.opval)); ;}
0de566d7
DM
760 break;
761
2d0e3c96 762 case 111:
b5bbe64a 763#line 663 "perly.y"
2d0e3c96 764 { (yyval.opval) = convert((ps[(1) - (4)].val.ival), 0, (ps[(3) - (4)].val.opval)); ;}
0de566d7
DM
765 break;
766
2d0e3c96 767 case 112:
b5bbe64a 768#line 665 "perly.y"
5a5094bd 769 { SvREFCNT_inc_simple_void(PL_compcv);
2d0e3c96 770 (yyval.opval) = newANONATTRSUB((ps[(2) - (3)].val.ival), 0, (OP*)NULL, (ps[(3) - (3)].val.opval)); ;}
0de566d7
DM
771 break;
772
2d0e3c96 773 case 113:
b5bbe64a 774#line 668 "perly.y"
f05e27e5 775 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
2fcb4757
Z
776 op_append_elem(OP_LIST,
777 op_prepend_elem(OP_LIST, (ps[(4) - (5)].val.opval), (ps[(5) - (5)].val.opval)), (ps[(1) - (5)].val.opval)));
2d0e3c96 778 ;}
0de566d7
DM
779 break;
780
2d0e3c96 781 case 116:
b5bbe64a 782#line 683 "perly.y"
5c86b6df 783 { (yyval.opval) = newBINOP(OP_GELEM, 0, (ps[(1) - (5)].val.opval), scalar((ps[(3) - (5)].val.opval))); ;}
0de566d7
DM
784 break;
785
2d0e3c96 786 case 117:
5c86b6df 787#line 685 "perly.y"
1654d593 788 { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((ps[(1) - (4)].val.opval)), scalar((ps[(3) - (4)].val.opval)));
2d0e3c96 789 ;}
0de566d7
DM
790 break;
791
2d0e3c96 792 case 118:
5c86b6df 793#line 688 "perly.y"
f05e27e5 794 { (yyval.opval) = newBINOP(OP_AELEM, 0,
1654d593
DM
795 ref(newAVREF((ps[(1) - (5)].val.opval)),OP_RV2AV),
796 scalar((ps[(4) - (5)].val.opval)));
2d0e3c96 797 ;}
0de566d7
DM
798 break;
799
2d0e3c96 800 case 119:
5c86b6df 801#line 693 "perly.y"
f05e27e5 802 { (yyval.opval) = newBINOP(OP_AELEM, 0,
1654d593
DM
803 ref(newAVREF((ps[(1) - (4)].val.opval)),OP_RV2AV),
804 scalar((ps[(3) - (4)].val.opval)));
2d0e3c96 805 ;}
0de566d7
DM
806 break;
807
2d0e3c96 808 case 120:
5c86b6df 809#line 698 "perly.y"
1654d593 810 { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((ps[(1) - (5)].val.opval)), jmaybe((ps[(3) - (5)].val.opval)));
2d0e3c96 811 ;}
0de566d7
DM
812 break;
813
2d0e3c96 814 case 121:
5c86b6df 815#line 701 "perly.y"
f05e27e5 816 { (yyval.opval) = newBINOP(OP_HELEM, 0,
1654d593 817 ref(newHVREF((ps[(1) - (6)].val.opval)),OP_RV2HV),
5c86b6df 818 jmaybe((ps[(4) - (6)].val.opval))); ;}
0de566d7
DM
819 break;
820
2d0e3c96 821 case 122:
5c86b6df 822#line 705 "perly.y"
f05e27e5 823 { (yyval.opval) = newBINOP(OP_HELEM, 0,
1654d593 824 ref(newHVREF((ps[(1) - (5)].val.opval)),OP_RV2HV),
5c86b6df 825 jmaybe((ps[(3) - (5)].val.opval))); ;}
0de566d7
DM
826 break;
827
2d0e3c96 828 case 123:
5c86b6df 829#line 709 "perly.y"
b5bbe64a 830 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
2d0e3c96 831 newCVREF(0, scalar((ps[(1) - (4)].val.opval)))); ;}
b5bbe64a
JH
832 break;
833
2d0e3c96 834 case 124:
5c86b6df 835#line 712 "perly.y"
9a9798c2 836 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
b5bbe64a 837 op_append_elem(OP_LIST, (ps[(4) - (5)].val.opval),
2d0e3c96 838 newCVREF(0, scalar((ps[(1) - (5)].val.opval))))); ;}
0de566d7
DM
839 break;
840
2d0e3c96 841 case 125:
5c86b6df 842#line 717 "perly.y"
9a9798c2 843 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
b5bbe64a 844 op_append_elem(OP_LIST, (ps[(3) - (4)].val.opval),
2d0e3c96 845 newCVREF(0, scalar((ps[(1) - (4)].val.opval))))); ;}
0de566d7
DM
846 break;
847
2d0e3c96 848 case 126:
5c86b6df 849#line 721 "perly.y"
f05e27e5 850 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
2d0e3c96 851 newCVREF(0, scalar((ps[(1) - (3)].val.opval)))); ;}
0de566d7
DM
852 break;
853
2d0e3c96 854 case 127:
5c86b6df 855#line 724 "perly.y"
2d0e3c96 856 { (yyval.opval) = newSLICEOP(0, (ps[(5) - (6)].val.opval), (ps[(2) - (6)].val.opval)); ;}
0de566d7
DM
857 break;
858
2d0e3c96 859 case 128:
5c86b6df 860#line 726 "perly.y"
2d0e3c96 861 { (yyval.opval) = newSLICEOP(0, (ps[(3) - (4)].val.opval), (ps[(1) - (4)].val.opval)); ;}
0de566d7
DM
862 break;
863
2d0e3c96 864 case 129:
5c86b6df 865#line 728 "perly.y"
2d0e3c96 866 { (yyval.opval) = newSLICEOP(0, (ps[(4) - (5)].val.opval), (OP*)NULL); ;}
ea25a9b2
Z
867 break;
868
2d0e3c96 869 case 130:
5c86b6df 870#line 733 "perly.y"
2d0e3c96 871 { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[(1) - (3)].val.opval), (ps[(2) - (3)].val.ival), (ps[(3) - (3)].val.opval)); ;}
0de566d7
DM
872 break;
873
2d0e3c96 874 case 131:
5c86b6df 875#line 735 "perly.y"
2d0e3c96 876 { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); ;}
0de566d7
DM
877 break;
878
2d0e3c96 879 case 132:
5c86b6df 880#line 737 "perly.y"
b5bbe64a
JH
881 { if ((ps[(2) - (3)].val.ival) != OP_REPEAT)
882 scalar((ps[(1) - (3)].val.opval));
883 (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, (ps[(1) - (3)].val.opval), scalar((ps[(3) - (3)].val.opval)));
2d0e3c96 884 ;}
0de566d7
DM
885 break;
886
2d0e3c96 887 case 133:
5c86b6df 888#line 742 "perly.y"
2d0e3c96 889 { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); ;}
0de566d7
DM
890 break;
891
2d0e3c96 892 case 134:
5c86b6df 893#line 744 "perly.y"
2d0e3c96 894 { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); ;}
8d2a5fb4
FC
895 break;
896
2d0e3c96 897 case 135:
5c86b6df 898#line 746 "perly.y"
2d0e3c96 899 { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); ;}
0de566d7
DM
900 break;
901
2d0e3c96 902 case 136:
5c86b6df 903#line 748 "perly.y"
2d0e3c96 904 { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); ;}
f20dcd76
VP
905 break;
906
2d0e3c96 907 case 137:
5c86b6df 908#line 750 "perly.y"
2d0e3c96 909 { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); ;}
4098b6bb
JV
910 break;
911
2d0e3c96 912 case 138:
5c86b6df 913#line 752 "perly.y"
2d0e3c96 914 { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); ;}
7c70caa5
FC
915 break;
916
2d0e3c96 917 case 139:
5c86b6df 918#line 754 "perly.y"
2d0e3c96 919 { (yyval.opval) = newRANGE((ps[(2) - (3)].val.ival), scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); ;}
764212cf
FC
920 break;
921
2d0e3c96 922 case 140:
5c86b6df 923#line 756 "perly.y"
2d0e3c96 924 { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); ;}
0de566d7
DM
925 break;
926
2d0e3c96 927 case 141:
5c86b6df 928#line 758 "perly.y"
2d0e3c96 929 { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); ;}
0de566d7
DM
930 break;
931
2d0e3c96 932 case 142:
5c86b6df 933#line 760 "perly.y"
2d0e3c96 934 { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); ;}
0de566d7
DM
935 break;
936
2d0e3c96 937 case 143:
5c86b6df 938#line 762 "perly.y"
2d0e3c96 939 { (yyval.opval) = bind_match((ps[(2) - (3)].val.ival), (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); ;}
0de566d7
DM
940 break;
941
2d0e3c96 942 case 144:
5c86b6df 943#line 767 "perly.y"
2d0e3c96 944 { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[(2) - (2)].val.opval))); ;}
500bedb6
DM
945 break;
946
2d0e3c96 947 case 145:
5c86b6df 948#line 769 "perly.y"
2d0e3c96 949 { (yyval.opval) = (ps[(2) - (2)].val.opval); ;}
0de566d7
DM
950 break;
951
2d0e3c96 952 case 146:
5c86b6df 953#line 772 "perly.y"
2d0e3c96 954 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[(2) - (2)].val.opval))); ;}
0de566d7
DM
955 break;
956
2d0e3c96 957 case 147:
5c86b6df 958#line 774 "perly.y"
2d0e3c96 959 { (yyval.opval) = newUNOP(OP_COMPLEMENT, 0, scalar((ps[(2) - (2)].val.opval))); ;}
0de566d7
DM
960 break;
961
2d0e3c96 962 case 148:
5c86b6df 963#line 776 "perly.y"
f05e27e5 964 { (yyval.opval) = newUNOP(OP_POSTINC, 0,
2d0e3c96 965 op_lvalue(scalar((ps[(1) - (2)].val.opval)), OP_POSTINC)); ;}
0de566d7
DM
966 break;
967
2d0e3c96 968 case 149:
5c86b6df 969#line 779 "perly.y"
f05e27e5 970 { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
2d0e3c96 971 op_lvalue(scalar((ps[(1) - (2)].val.opval)), OP_POSTDEC));;}
0de566d7
DM
972 break;
973
2d0e3c96 974 case 150:
5c86b6df 975#line 782 "perly.y"
cc624add
FC
976 { (yyval.opval) = convert(OP_JOIN, 0,
977 op_append_elem(
978 OP_LIST,
979 newSVREF(scalar(
980 newSVOP(OP_CONST,0,
981 newSVpvs("\""))
982 )),
983 (ps[(1) - (2)].val.opval)
984 ));
2d0e3c96 985 ;}
cc624add
FC
986 break;
987
2d0e3c96 988 case 151:
5c86b6df 989#line 793 "perly.y"
f05e27e5 990 { (yyval.opval) = newUNOP(OP_PREINC, 0,
2d0e3c96 991 op_lvalue(scalar((ps[(2) - (2)].val.opval)), OP_PREINC)); ;}
0de566d7
DM
992 break;
993
2d0e3c96 994 case 152:
5c86b6df 995#line 796 "perly.y"
f05e27e5 996 { (yyval.opval) = newUNOP(OP_PREDEC, 0,
2d0e3c96 997 op_lvalue(scalar((ps[(2) - (2)].val.opval)), OP_PREDEC)); ;}
b5bbe64a
JH
998 break;
999
2d0e3c96 1000 case 153:
5c86b6df 1001#line 803 "perly.y"
2d0e3c96 1002 { (yyval.opval) = newANONLIST((ps[(2) - (3)].val.opval)); ;}
0de566d7
DM
1003 break;
1004
2d0e3c96 1005 case 154:
5c86b6df 1006#line 805 "perly.y"
2d0e3c96 1007 { (yyval.opval) = newANONLIST((OP*)NULL);;}
0de566d7
DM
1008 break;
1009
2d0e3c96 1010 case 155:
5c86b6df 1011#line 807 "perly.y"
2d0e3c96 1012 { (yyval.opval) = newANONHASH((ps[(2) - (4)].val.opval)); ;}
0de566d7
DM
1013 break;
1014
2d0e3c96 1015 case 156:
5c86b6df 1016#line 809 "perly.y"
2d0e3c96 1017 { (yyval.opval) = newANONHASH((OP*)NULL); ;}
0de566d7
DM
1018 break;
1019
2d0e3c96 1020 case 157:
5c86b6df 1021#line 811 "perly.y"
b5bbe64a 1022 { SvREFCNT_inc_simple_void(PL_compcv);
2d0e3c96 1023 (yyval.opval) = newANONATTRSUB((ps[(2) - (5)].val.ival), (ps[(3) - (5)].val.opval), (ps[(4) - (5)].val.opval), (ps[(5) - (5)].val.opval)); ;}
9a9798c2
YST
1024 break;
1025
2d0e3c96 1026 case 158:
5c86b6df 1027#line 818 "perly.y"
2d0e3c96 1028 { (yyval.opval) = dofile((ps[(2) - (2)].val.opval), (ps[(1) - (2)].val.ival));;}
9a9798c2
YST
1029 break;
1030
2d0e3c96 1031 case 159:
5c86b6df 1032#line 820 "perly.y"
2d0e3c96 1033 { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, op_scope((ps[(2) - (2)].val.opval)));;}
f05e27e5
DM
1034 break;
1035
2d0e3c96 1036 case 164:
5c86b6df 1037#line 828 "perly.y"
2d0e3c96 1038 { (yyval.opval) = newCONDOP(0, (ps[(1) - (5)].val.opval), (ps[(3) - (5)].val.opval), (ps[(5) - (5)].val.opval)); ;}
0de566d7
DM
1039 break;
1040
2d0e3c96 1041 case 165:
5c86b6df 1042#line 830 "perly.y"
2d0e3c96 1043 { (yyval.opval) = newUNOP(OP_REFGEN, 0, op_lvalue((ps[(2) - (2)].val.opval),OP_REFGEN)); ;}
0de566d7
DM
1044 break;
1045
2d0e3c96 1046 case 166:
5c86b6df 1047#line 832 "perly.y"
2d0e3c96 1048 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM
1049 break;
1050
2d0e3c96 1051 case 167:
5c86b6df 1052#line 834 "perly.y"
2d0e3c96 1053 { (yyval.opval) = localize((ps[(2) - (2)].val.opval),(ps[(1) - (2)].val.ival)); ;}
0de566d7
DM
1054 break;
1055
2d0e3c96 1056 case 168:
5c86b6df 1057#line 836 "perly.y"
2d0e3c96 1058 { (yyval.opval) = sawparens((ps[(2) - (3)].val.opval)); ;}
0de566d7
DM
1059 break;
1060
2d0e3c96 1061 case 169:
5c86b6df 1062#line 838 "perly.y"
2d0e3c96 1063 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM
1064 break;
1065
2d0e3c96 1066 case 170:
5c86b6df 1067#line 840 "perly.y"
2d0e3c96 1068 { (yyval.opval) = sawparens(newNULLLIST()); ;}
ea25a9b2
Z
1069 break;
1070
2d0e3c96 1071 case 171:
5c86b6df 1072#line 842 "perly.y"
2d0e3c96 1073 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM
1074 break;
1075
2d0e3c96 1076 case 172:
5c86b6df 1077#line 844 "perly.y"
2d0e3c96 1078 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM
1079 break;
1080
2d0e3c96 1081 case 173:
5c86b6df 1082#line 846 "perly.y"
2d0e3c96 1083 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
f20dcd76
VP
1084 break;
1085
2d0e3c96 1086 case 174:
5c86b6df 1087#line 848 "perly.y"
2d0e3c96 1088 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
8e720305
Z
1089 break;
1090
2d0e3c96 1091 case 175:
5c86b6df 1092#line 850 "perly.y"
2d0e3c96 1093 { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[(1) - (1)].val.opval), OP_AV2ARYLEN));;}
4210d3f1
FC
1094 break;
1095
2d0e3c96 1096 case 176:
5c86b6df 1097#line 852 "perly.y"
2d0e3c96 1098 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
cc624add
FC
1099 break;
1100
2d0e3c96 1101 case 177:
5c86b6df 1102#line 854 "perly.y"
2fcb4757 1103 { (yyval.opval) = op_prepend_elem(OP_ASLICE,
f05e27e5
DM
1104 newOP(OP_PUSHMARK, 0),
1105 newLISTOP(OP_ASLICE, 0,
1654d593
DM
1106 list((ps[(3) - (4)].val.opval)),
1107 ref((ps[(1) - (4)].val.opval), OP_ASLICE)));
429a2555
FC
1108 if ((yyval.opval) && (ps[(1) - (4)].val.opval))
1109 (yyval.opval)->op_private |=
1110 (ps[(1) - (4)].val.opval)->op_private & OPpSLICEWARNING;
2d0e3c96 1111 ;}
0de566d7
DM
1112 break;
1113
2d0e3c96 1114 case 178:
5c86b6df 1115#line 864 "perly.y"
6dd3e0f2
RZ
1116 { (yyval.opval) = op_prepend_elem(OP_KVASLICE,
1117 newOP(OP_PUSHMARK, 0),
1118 newLISTOP(OP_KVASLICE, 0,
1119 list((ps[(3) - (4)].val.opval)),
1120 ref(oopsAV((ps[(1) - (4)].val.opval)), OP_KVASLICE)));
95a31aad
FC
1121 if ((yyval.opval) && (ps[(1) - (4)].val.opval))
1122 (yyval.opval)->op_private |=
1123 (ps[(1) - (4)].val.opval)->op_private & OPpSLICEWARNING;
2d0e3c96 1124 ;}
6dd3e0f2
RZ
1125 break;
1126
2d0e3c96 1127 case 179:
5c86b6df 1128#line 874 "perly.y"
2fcb4757 1129 { (yyval.opval) = op_prepend_elem(OP_HSLICE,
f05e27e5
DM
1130 newOP(OP_PUSHMARK, 0),
1131 newLISTOP(OP_HSLICE, 0,
1654d593
DM
1132 list((ps[(3) - (5)].val.opval)),
1133 ref(oopsHV((ps[(1) - (5)].val.opval)), OP_HSLICE)));
429a2555
FC
1134 if ((yyval.opval) && (ps[(1) - (5)].val.opval))
1135 (yyval.opval)->op_private |=
1136 (ps[(1) - (5)].val.opval)->op_private & OPpSLICEWARNING;
2d0e3c96 1137 ;}
0de566d7
DM
1138 break;
1139
2d0e3c96 1140 case 180:
5c86b6df 1141#line 884 "perly.y"
5cae3edb
RZ
1142 { (yyval.opval) = op_prepend_elem(OP_KVHSLICE,
1143 newOP(OP_PUSHMARK, 0),
1144 newLISTOP(OP_KVHSLICE, 0,
1145 list((ps[(3) - (5)].val.opval)),
1146 ref((ps[(1) - (5)].val.opval), OP_KVHSLICE)));
95a31aad
FC
1147 if ((yyval.opval) && (ps[(1) - (5)].val.opval))
1148 (yyval.opval)->op_private |=
1149 (ps[(1) - (5)].val.opval)->op_private & OPpSLICEWARNING;
2d0e3c96 1150 ;}
0de566d7
DM
1151 break;
1152
2d0e3c96 1153 case 181:
5c86b6df 1154#line 894 "perly.y"
2d0e3c96 1155 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM
1156 break;
1157
2d0e3c96 1158 case 182:
5c86b6df 1159#line 896 "perly.y"
2d0e3c96 1160 { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[(1) - (1)].val.opval))); ;}
5cae3edb
RZ
1161 break;
1162
2d0e3c96 1163 case 183:
5c86b6df 1164#line 898 "perly.y"
1654d593 1165 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[(1) - (3)].val.opval)));
2d0e3c96 1166 ;}
0de566d7
DM
1167 break;
1168
2d0e3c96 1169 case 184:
5c86b6df 1170#line 901 "perly.y"
f05e27e5
DM
1171 {
1172 (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
2fcb4757 1173 op_append_elem(OP_LIST, (ps[(3) - (4)].val.opval), scalar((ps[(1) - (4)].val.opval))));
2d0e3c96 1174 ;}
0de566d7
DM
1175 break;
1176
2d0e3c96 1177 case 185:
5c86b6df 1178#line 906 "perly.y"
f05e27e5 1179 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
2fcb4757 1180 op_append_elem(OP_LIST, (ps[(3) - (3)].val.opval), scalar((ps[(2) - (3)].val.opval))));
2d0e3c96 1181 ;}
0de566d7
DM
1182 break;
1183
2d0e3c96 1184 case 186:
5c86b6df 1185#line 910 "perly.y"
2d0e3c96 1186 { (yyval.opval) = newSVREF((ps[(1) - (4)].val.opval)); ;}
b5bbe64a
JH
1187 break;
1188
2d0e3c96 1189 case 187:
5c86b6df 1190#line 912 "perly.y"
2d0e3c96 1191 { (yyval.opval) = newAVREF((ps[(1) - (4)].val.opval)); ;}
89f35911
FC
1192 break;
1193
2d0e3c96 1194 case 188:
5c86b6df 1195#line 914 "perly.y"
2d0e3c96 1196 { (yyval.opval) = newHVREF((ps[(1) - (4)].val.opval)); ;}
89f35911
FC
1197 break;
1198
2d0e3c96 1199 case 189:
5c86b6df 1200#line 916 "perly.y"
b5bbe64a 1201 { (yyval.opval) = newUNOP(OP_ENTERSUB, 0,
2d0e3c96 1202 scalar(newCVREF((ps[(3) - (4)].val.ival),(ps[(1) - (4)].val.opval)))); ;}
89f35911
FC
1203 break;
1204
2d0e3c96 1205 case 190:
5c86b6df 1206#line 919 "perly.y"
2d0e3c96 1207 { (yyval.opval) = newGVREF(0,(ps[(1) - (4)].val.opval)); ;}
89f35911
FC
1208 break;
1209
2d0e3c96 1210 case 191:
5c86b6df 1211#line 921 "perly.y"
b5bbe64a 1212 { (yyval.opval) = newOP((ps[(1) - (1)].val.ival), OPf_SPECIAL);
2d0e3c96 1213 PL_hints |= HINT_BLOCK_SCOPE; ;}
89f35911
FC
1214 break;
1215
2d0e3c96 1216 case 192:
5c86b6df 1217#line 924 "perly.y"
2d0e3c96 1218 { (yyval.opval) = newLOOPEX((ps[(1) - (2)].val.ival),(ps[(2) - (2)].val.opval)); ;}
0de566d7
DM
1219 break;
1220
2d0e3c96 1221 case 193:
5c86b6df 1222#line 926 "perly.y"
2d0e3c96 1223 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[(2) - (2)].val.opval))); ;}
0de566d7
DM
1224 break;
1225
2d0e3c96 1226 case 194:
5c86b6df 1227#line 928 "perly.y"
2d0e3c96 1228 { (yyval.opval) = newOP((ps[(1) - (1)].val.ival), 0); ;}
0de566d7
DM
1229 break;
1230
2d0e3c96 1231 case 195:
5c86b6df 1232#line 930 "perly.y"
2d0e3c96 1233 { (yyval.opval) = newUNOP((ps[(1) - (2)].val.ival), 0, (ps[(2) - (2)].val.opval)); ;}
0de566d7
DM
1234 break;
1235
2d0e3c96 1236 case 196:
5c86b6df 1237#line 932 "perly.y"
2d0e3c96 1238 { (yyval.opval) = newUNOP((ps[(1) - (2)].val.ival), 0, (ps[(2) - (2)].val.opval)); ;}
0de566d7
DM
1239 break;
1240
2d0e3c96 1241 case 197:
5c86b6df 1242#line 934 "perly.y"
2d0e3c96 1243 { (yyval.opval) = newOP(OP_REQUIRE, (ps[(1) - (1)].val.ival) ? OPf_SPECIAL : 0); ;}
0de566d7
DM
1244 break;
1245
2d0e3c96 1246 case 198:
5c86b6df 1247#line 936 "perly.y"
2d0e3c96 1248 { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[(1) - (2)].val.ival) ? OPf_SPECIAL : 0, (ps[(2) - (2)].val.opval)); ;}
0de566d7
DM
1249 break;
1250
2d0e3c96 1251 case 199:
5c86b6df 1252#line 938 "perly.y"
2d0e3c96 1253 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[(1) - (1)].val.opval))); ;}
0de566d7
DM
1254 break;
1255
2d0e3c96 1256 case 200:
5c86b6df 1257#line 940 "perly.y"
b5bbe64a 1258 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
2d0e3c96 1259 op_append_elem(OP_LIST, (ps[(2) - (2)].val.opval), scalar((ps[(1) - (2)].val.opval)))); ;}
9eb5c532
Z
1260 break;
1261
2d0e3c96 1262 case 201:
5c86b6df 1263#line 943 "perly.y"
2d0e3c96 1264 { (yyval.opval) = newOP((ps[(1) - (1)].val.ival), 0); ;}
0de566d7
DM
1265 break;
1266
2d0e3c96 1267 case 202:
5c86b6df 1268#line 945 "perly.y"
2d0e3c96 1269 { (yyval.opval) = newOP((ps[(1) - (3)].val.ival), 0);;}
0de566d7
DM
1270 break;
1271
2d0e3c96 1272 case 203:
5c86b6df 1273#line 947 "perly.y"
2d0e3c96 1274 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM
1275 break;
1276
2d0e3c96 1277 case 204:
5c86b6df 1278#line 949 "perly.y"
2d0e3c96 1279 { (yyval.opval) = (ps[(1) - (3)].val.opval); ;}
7eb971ee
FC
1280 break;
1281
2d0e3c96 1282 case 205:
5c86b6df 1283#line 951 "perly.y"
2d0e3c96 1284 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[(1) - (1)].val.opval))); ;}
7eb971ee
FC
1285 break;
1286
2d0e3c96 1287 case 206:
5c86b6df 1288#line 953 "perly.y"
b5bbe64a
JH
1289 { (yyval.opval) = ((ps[(1) - (3)].val.ival) == OP_NOT)
1290 ? newUNOP((ps[(1) - (3)].val.ival), 0, newSVOP(OP_CONST, 0, newSViv(0)))
2d0e3c96 1291 : newOP((ps[(1) - (3)].val.ival), OPf_SPECIAL); ;}
0de566d7
DM
1292 break;
1293
2d0e3c96 1294 case 207:
5c86b6df 1295#line 957 "perly.y"
2d0e3c96 1296 { (yyval.opval) = newUNOP((ps[(1) - (4)].val.ival), 0, (ps[(3) - (4)].val.opval)); ;}
0de566d7
DM
1297 break;
1298
2d0e3c96 1299 case 208:
5c86b6df 1300#line 959 "perly.y"
d63c20f2
DM
1301 {
1302 if ( (ps[(1) - (1)].val.opval)->op_type != OP_TRANS
1303 && (ps[(1) - (1)].val.opval)->op_type != OP_TRANSR
1304 && (((PMOP*)(ps[(1) - (1)].val.opval))->op_pmflags & PMf_HAS_CV))
1305 {
1306 (yyval.ival) = start_subparse(FALSE, CVf_ANON);
1307 SAVEFREESV(PL_compcv);
1308 } else
1309 (yyval.ival) = 0;
2d0e3c96 1310 ;}
d63c20f2
DM
1311 break;
1312
2d0e3c96 1313 case 209:
5c86b6df 1314#line 970 "perly.y"
2d0e3c96 1315 { (yyval.opval) = pmruntime((ps[(1) - (5)].val.opval), (ps[(4) - (5)].val.opval), 1, (ps[(2) - (5)].val.ival)); ;}
0de566d7
DM
1316 break;
1317
2d0e3c96 1318 case 212:
5c86b6df 1319#line 974 "perly.y"
be25f609 1320 {
1321 (yyval.opval) = newLISTOP(OP_DIE, 0, newOP(OP_PUSHMARK, 0),
1322 newSVOP(OP_CONST, 0, newSVpvs("Unimplemented")));
2d0e3c96 1323 ;}
be25f609 1324 break;
1325
2d0e3c96 1326 case 214:
5c86b6df 1327#line 983 "perly.y"
2d0e3c96 1328 { (yyval.opval) = my_attrs((ps[(2) - (3)].val.opval),(ps[(3) - (3)].val.opval)); ;}
b5bbe64a
JH
1329 break;
1330
2d0e3c96 1331 case 215:
5c86b6df 1332#line 985 "perly.y"
2d0e3c96 1333 { (yyval.opval) = localize((ps[(2) - (2)].val.opval),(ps[(1) - (2)].val.ival)); ;}
0de566d7
DM
1334 break;
1335
2d0e3c96 1336 case 216:
5c86b6df 1337#line 990 "perly.y"
2d0e3c96 1338 { (yyval.opval) = sawparens((ps[(2) - (3)].val.opval)); ;}
0de566d7
DM
1339 break;
1340
2d0e3c96 1341 case 217:
5c86b6df 1342#line 992 "perly.y"
2d0e3c96 1343 { (yyval.opval) = sawparens(newNULLLIST()); ;}
0de566d7
DM
1344 break;
1345
2d0e3c96 1346 case 218:
5c86b6df 1347#line 995 "perly.y"
2d0e3c96 1348 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
4098b6bb
JV
1349 break;
1350
2d0e3c96 1351 case 219:
5c86b6df 1352#line 997 "perly.y"
2d0e3c96 1353 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
ea25a9b2
Z
1354 break;
1355
2d0e3c96 1356 case 220:
5c86b6df 1357#line 999 "perly.y"
2d0e3c96 1358 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
d63c20f2
DM
1359 break;
1360
2d0e3c96 1361 case 221:
5c86b6df 1362#line 1004 "perly.y"
2d0e3c96 1363 { (yyval.opval) = (OP*)NULL; ;}
7c70caa5
FC
1364 break;
1365
2d0e3c96 1366 case 222:
5c86b6df 1367#line 1006 "perly.y"
2d0e3c96 1368 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
764212cf
FC
1369 break;
1370
2d0e3c96 1371 case 223:
5c86b6df 1372#line 1010 "perly.y"
2d0e3c96 1373 { (yyval.opval) = (OP*)NULL; ;}
4210d3f1
FC
1374 break;
1375
2d0e3c96 1376 case 224:
5c86b6df 1377#line 1012 "perly.y"
2d0e3c96 1378 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
5cae3edb
RZ
1379 break;
1380
2d0e3c96 1381 case 225:
5c86b6df 1382#line 1018 "perly.y"
624fa8bd 1383 { parser->in_my = 0; (yyval.opval) = my((ps[(1) - (1)].val.opval)); ;}
6dd3e0f2
RZ
1384 break;
1385
2d0e3c96 1386 case 226:
5c86b6df 1387#line 1022 "perly.y"
2d0e3c96 1388 { (yyval.opval) = newCVREF((ps[(1) - (2)].val.ival),(ps[(2) - (2)].val.opval)); ;}
cc624add
FC
1389 break;
1390
2d0e3c96 1391 case 227:
5c86b6df 1392#line 1026 "perly.y"
2d0e3c96 1393 { (yyval.opval) = newSVREF((ps[(2) - (2)].val.opval)); ;}
0de566d7
DM
1394 break;
1395
2d0e3c96 1396 case 228:
5c86b6df 1397#line 1030 "perly.y"
b5bbe64a
JH
1398 { (yyval.opval) = newAVREF((ps[(2) - (2)].val.opval));
1399 if ((yyval.opval)) (yyval.opval)->op_private |= (ps[(1) - (2)].val.ival);
2d0e3c96 1400 ;}
0de566d7
DM
1401 break;
1402
2d0e3c96 1403 case 229:
5c86b6df 1404#line 1036 "perly.y"
b5bbe64a
JH
1405 { (yyval.opval) = newHVREF((ps[(2) - (2)].val.opval));
1406 if ((yyval.opval)) (yyval.opval)->op_private |= (ps[(1) - (2)].val.ival);
2d0e3c96 1407 ;}
0de566d7
DM
1408 break;
1409
2d0e3c96 1410 case 230:
5c86b6df 1411#line 1042 "perly.y"
2d0e3c96 1412 { (yyval.opval) = newAVREF((ps[(2) - (2)].val.opval)); ;}
500bedb6
DM
1413 break;
1414
2d0e3c96 1415 case 231:
5c86b6df 1416#line 1044 "perly.y"
2d0e3c96 1417 { (yyval.opval) = newAVREF((ps[(1) - (4)].val.opval)); ;}
a72a1c8b
RGS
1418 break;
1419
2d0e3c96 1420 case 232:
5c86b6df 1421#line 1048 "perly.y"
2d0e3c96 1422 { (yyval.opval) = newGVREF(0,(ps[(2) - (2)].val.opval)); ;}
ff25e5db
FC
1423 break;
1424
2d0e3c96 1425 case 234:
5c86b6df 1426#line 1053 "perly.y"
2d0e3c96 1427 { (yyval.opval) = newAVREF((ps[(1) - (3)].val.opval)); ;}
503de470
DM
1428 break;
1429
2d0e3c96 1430 case 236:
5c86b6df 1431#line 1058 "perly.y"
2d0e3c96 1432 { (yyval.opval) = newHVREF((ps[(1) - (3)].val.opval)); ;}
89f35911
FC
1433 break;
1434
2d0e3c96 1435 case 238:
5c86b6df 1436#line 1063 "perly.y"
2d0e3c96 1437 { (yyval.opval) = newGVREF(0,(ps[(1) - (3)].val.opval)); ;}
76eba8ab
FC
1438 break;
1439
2d0e3c96 1440 case 239:
5c86b6df 1441#line 1068 "perly.y"
2d0e3c96 1442 { (yyval.opval) = scalar((ps[(1) - (1)].val.opval)); ;}
89f35911
FC
1443 break;
1444
2d0e3c96 1445 case 240:
5c86b6df 1446#line 1070 "perly.y"
2d0e3c96 1447 { (yyval.opval) = scalar((ps[(1) - (1)].val.opval)); ;}
3cd0a11a
RGS
1448 break;
1449
2d0e3c96 1450 case 241:
5c86b6df 1451#line 1072 "perly.y"
2d0e3c96 1452 { (yyval.opval) = op_scope((ps[(1) - (1)].val.opval)); ;}
f05e27e5
DM
1453 break;
1454
2d0e3c96 1455 case 242:
5c86b6df 1456#line 1075 "perly.y"
2d0e3c96 1457 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
5cae3edb 1458 break;
fb602e32 1459
2d0e3c96
FC
1460
1461/* Line 1267 of yacc.c. */
1462
20515881 1463 default: break;
0de566d7 1464
e8fb9efb 1465
c24c946d 1466/* Generated from:
624fa8bd 1467 * 39b6174c4729deec2a6ee4698d7dcd6496acb0a8f063daf726d1f853d4dcb54e perly.y
b5bbe64a 1468 * d1d4df7b8e30ac9dede664af9179e6e5e7ddc7f2ad9c4eff9e2e5b32c9e16a6e regen_perly.pl
c24c946d 1469 * ex: set ro: */