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