This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
utf8_heavy.pl: Return that property is user-defined
[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:
8e720305 8#line 142 "perly.y"
727a8fe5
Z		 9 {
10 PL_parser->expect = XSTATE;
11 ;}
0de566d7
DM		 12 break;
13
14 case 3:
8e720305 15#line 146 "perly.y"
636def1f 16 {
727a8fe5
Z		 17 newPROG(block_end((ps[(3) - (4)].val.ival),(ps[(4) - (4)].val.opval)));
18 (yyval.ival) = 0;
9eb5c532
Z		 19 ;}
20 break;
21
22 case 4:
8e720305 23#line 151 "perly.y"
727a8fe5 24 {
78cdf107 25 parser->expect = XTERM;
727a8fe5
Z		 26 ;}
27 break;
28
29 case 5:
8e720305 30#line 155 "perly.y"
9eb5c532
Z		 31 {
32 PL_eval_root = (ps[(3) - (3)].val.opval);
636def1f 33 (yyval.ival) = 0;
636def1f
RGS		 34 ;}
35 break;
36
727a8fe5 37 case 6:
8e720305 38#line 160 "perly.y"
07ffcb73 39 {
78cdf107 40 parser->expect = XBLOCK;
07ffcb73
Z		 41 ;}
42 break;
43
727a8fe5 44 case 7:
8e720305 45#line 164 "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;
07ffcb73
Z		 52 ;}
53 break;
54
727a8fe5 55 case 8:
8e720305 56#line 172 "perly.y"
e53d8f76
Z		 57 {
58 parser->expect = XSTATE;
59 ;}
636def1f
RGS		 60 break;
61
727a8fe5 62 case 9:
8e720305 63#line 176 "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;
e53d8f76
Z		 70 ;}
71 break;
72
727a8fe5 73 case 10:
8e720305 74#line 184 "perly.y"
8359b381
Z		 75 {
76 parser->expect = XSTATE;
77 ;}
e53d8f76
Z		 78 break;
79
727a8fe5 80 case 11:
8e720305 81#line 188 "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;
8359b381
Z		 88 ;}
89 break;
90
8359b381 91 case 12:
8e720305 92#line 196 "perly.y"
78cdf107
Z		 93 {
94 parser->expect = XSTATE;
95 ;}
96 break;
97
98 case 13:
8e720305 99#line 200 "perly.y"
78cdf107
Z		 100 {
101 PL_eval_root = (ps[(3) - (3)].val.opval);
102 (yyval.ival) = 0;
103 ;}
104 break;
105
106 case 14:
8e720305 107#line 208 "perly.y"
53a7735b
DM		 108 { if (PL_parser->copline > (line_t)IVAL((ps[(1) - (4)].val.i_tkval)))
109 PL_parser->copline = (line_t)IVAL((ps[(1) - (4)].val.i_tkval));
1654d593
DM		 110 (yyval.opval) = block_end((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval));
111 TOKEN_GETMAD((ps[(1) - (4)].val.i_tkval),(yyval.opval),'{');
112 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),'}');
f05e27e5 113 ;}
0de566d7
DM		 114 break;
115
78cdf107 116 case 15:
8e720305 117#line 217 "perly.y"
9eb5c532 118 { (yyval.ival) = block_start(TRUE); ;}
0d863452
RH		 119 break;
120
78cdf107 121 case 16:
8e720305 122#line 221 "perly.y"
9eb5c532
Z		 123 { (yyval.ival) = (I32) Perl_allocmy(aTHX_ STR_WITH_LEN("$_"), 0); ;}
124 break;
125
78cdf107 126 case 17:
8e720305 127#line 225 "perly.y"
53a7735b
DM		 128 { if (PL_parser->copline > (line_t)IVAL((ps[(1) - (4)].val.i_tkval)))
129 PL_parser->copline = (line_t)IVAL((ps[(1) - (4)].val.i_tkval));
1654d593
DM		 130 (yyval.opval) = block_end((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval));
131 TOKEN_GETMAD((ps[(1) - (4)].val.i_tkval),(yyval.opval),'{');
132 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),'}');
f05e27e5 133 ;}
0de566d7
DM		 134 break;
135
78cdf107 136 case 18:
8e720305 137#line 234 "perly.y"
9a9798c2 138 { (yyval.ival) = block_start(FALSE); ;}
0de566d7
DM		 139 break;
140
78cdf107 141 case 19:
8e720305 142#line 239 "perly.y"
bcabcc50 143 { (yyval.opval) = (OP*)NULL; ;}
0de566d7
DM		 144 break;
145
78cdf107 146 case 20:
8e720305 147#line 241 "perly.y"
2fcb4757 148 { (yyval.opval) = op_append_list(OP_LINESEQ, (ps[(1) - (2)].val.opval), (ps[(2) - (2)].val.opval));
500bedb6 149 PL_pad_reset_pending = TRUE;
503de470
DM		 150 if ((ps[(1) - (2)].val.opval) && (ps[(2) - (2)].val.opval))
151 PL_hints |= HINT_BLOCK_SCOPE;
152 ;}
500bedb6
DM		 153 break;
154
78cdf107 155 case 21:
8e720305 156#line 250 "perly.y"
eae48c89 157 {
8e720305
Z		 158 if((ps[(1) - (1)].val.opval)) {
159 (yyval.opval) = newSTATEOP(0, NULL, (ps[(1) - (1)].val.opval));
eae48c89 160 } else {
8e720305 161 (yyval.opval) = IF_MAD(newOP(OP_NULL, 0), NULL);
eae48c89
Z		 162 }
163 ;}
0d863452
RH		 164 break;
165
78cdf107 166 case 22:
8e720305 167#line 258 "perly.y"
1654d593 168 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0d863452
RH		 169 break;
170
78cdf107 171 case 23:
8e720305
Z		 172#line 262 "perly.y"
173 {
174 (yyval.opval) = newSTATEOP(0, PVAL((ps[(1) - (2)].val.p_tkval)), (ps[(2) - (2)].val.opval));
175 TOKEN_GETMAD((ps[(1) - (2)].val.p_tkval),
176 (ps[(2) - (2)].val.opval) ? cLISTOPx((yyval.opval))->op_first : (yyval.opval), 'L');
177 ;}
178 break;
179
180 case 24:
181#line 268 "perly.y"
182 {
183 (yyval.opval) = newSTATEOP(0, PVAL((ps[(1) - (2)].val.p_tkval)), (ps[(2) - (2)].val.opval));
184 TOKEN_GETMAD((ps[(1) - (2)].val.p_tkval), cLISTOPx((yyval.opval))->op_first, 'L');
185 ;}
186 break;
187
188 case 25:
189#line 276 "perly.y"
190 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
191 break;
192
193 case 26:
194#line 278 "perly.y"
eae48c89
Z		 195 {
196 (yyval.opval) = newOP(OP_NULL,0);
197 TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),'p');
198 ;}
199 break;
200
8e720305
Z		 201 case 27:
202#line 283 "perly.y"
eae48c89
Z		 203 {
204 CV *fmtcv = PL_compcv;
205 SvREFCNT_inc_simple_void(PL_compcv);
206#ifdef MAD
207 (yyval.opval) = newFORM((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval), (ps[(4) - (4)].val.opval));
208 prepend_madprops((ps[(1) - (4)].val.i_tkval)->tk_mad, (yyval.opval), 'F');
209 (ps[(1) - (4)].val.i_tkval)->tk_mad = 0;
210 token_free((ps[(1) - (4)].val.i_tkval));
211#else
212 newFORM((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval), (ps[(4) - (4)].val.opval));
213 (yyval.opval) = (OP*)NULL;
214#endif
215 if (CvOUTSIDE(fmtcv) && !CvUNIQUE(CvOUTSIDE(fmtcv))) {
216 SvREFCNT_inc_simple_void(fmtcv);
cc76b5cc 217 pad_add_anon(fmtcv, OP_NULL);
eae48c89
Z		 218 }
219 ;}
0de566d7
DM		 220 break;
221
8e720305
Z		 222 case 28:
223#line 301 "perly.y"
f05e27e5 224 {
eae48c89
Z		 225 SvREFCNT_inc_simple_void(PL_compcv);
226#ifdef MAD
227 {
228 OP* o = newSVOP(OP_ANONCODE, 0,
229 (SV*)newATTRSUB((ps[(2) - (6)].val.ival), (ps[(3) - (6)].val.opval), (ps[(4) - (6)].val.opval), (ps[(5) - (6)].val.opval), (ps[(6) - (6)].val.opval)));
230 (yyval.opval) = newOP(OP_NULL,0);
231 op_getmad(o,(yyval.opval),'&');
232 op_getmad((ps[(3) - (6)].val.opval),(yyval.opval),'n');
233 op_getmad((ps[(4) - (6)].val.opval),(yyval.opval),'s');
234 op_getmad((ps[(5) - (6)].val.opval),(yyval.opval),'a');
235 token_getmad((ps[(1) - (6)].val.i_tkval),(yyval.opval),'d');
236 append_madprops((ps[(6) - (6)].val.opval)->op_madprop, (yyval.opval), 0);
237 (ps[(6) - (6)].val.opval)->op_madprop = 0;
f05e27e5 238 }
eae48c89
Z		 239#else
240 newATTRSUB((ps[(2) - (6)].val.ival), (ps[(3) - (6)].val.opval), (ps[(4) - (6)].val.opval), (ps[(5) - (6)].val.opval), (ps[(6) - (6)].val.opval));
241 (yyval.opval) = (OP*)NULL;
242#endif
f05e27e5 243 ;}
0de566d7
DM		 244 break;
245
8e720305
Z		 246 case 29:
247#line 322 "perly.y"
f05e27e5 248 {
eae48c89
Z		 249 /* Unimplemented "my sub foo { }" */
250 SvREFCNT_inc_simple_void(PL_compcv);
251#ifdef MAD
252 (yyval.opval) = newMYSUB((ps[(2) - (6)].val.ival), (ps[(3) - (6)].val.opval), (ps[(4) - (6)].val.opval), (ps[(5) - (6)].val.opval), (ps[(6) - (6)].val.opval));
253 token_getmad((ps[(1) - (6)].val.i_tkval),(yyval.opval),'d');
254#else
255 newMYSUB((ps[(2) - (6)].val.ival), (ps[(3) - (6)].val.opval), (ps[(4) - (6)].val.opval), (ps[(5) - (6)].val.opval), (ps[(6) - (6)].val.opval));
256 (yyval.opval) = (OP*)NULL;
257#endif
f05e27e5 258 ;}
0de566d7
DM		 259 break;
260
8e720305
Z		 261 case 30:
262#line 334 "perly.y"
eae48c89
Z		 263 {
264#ifdef MAD
265 (yyval.opval) = package((ps[(3) - (4)].val.opval));
266 token_getmad((ps[(1) - (4)].val.i_tkval),(yyval.opval),'o');
267 if ((ps[(2) - (4)].val.opval))
268 package_version((ps[(2) - (4)].val.opval));
269 token_getmad((ps[(4) - (4)].val.i_tkval),(yyval.opval),';');
270#else
271 package((ps[(3) - (4)].val.opval));
272 if ((ps[(2) - (4)].val.opval))
273 package_version((ps[(2) - (4)].val.opval));
274 (yyval.opval) = (OP*)NULL;
275#endif
276 ;}
0de566d7
DM		 277 break;
278
8e720305
Z		 279 case 31:
280#line 349 "perly.y"
eae48c89 281 { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ ;}
0de566d7
DM		 282 break;
283
8e720305
Z		 284 case 32:
285#line 351 "perly.y"
5f211341 286 {
eae48c89
Z		 287 SvREFCNT_inc_simple_void(PL_compcv);
288#ifdef MAD
289 (yyval.opval) = utilize(IVAL((ps[(1) - (7)].val.i_tkval)), (ps[(2) - (7)].val.ival), (ps[(4) - (7)].val.opval), (ps[(5) - (7)].val.opval), (ps[(6) - (7)].val.opval));
290 token_getmad((ps[(1) - (7)].val.i_tkval),(yyval.opval),'o');
291 token_getmad((ps[(7) - (7)].val.i_tkval),(yyval.opval),';');
292 if (PL_parser->rsfp_filters &&
293 AvFILLp(PL_parser->rsfp_filters) >= 0)
294 append_madprops(newMADPROP('!', MAD_NULL, NULL, 0), (yyval.opval), 0);
295#else
296 utilize(IVAL((ps[(1) - (7)].val.i_tkval)), (ps[(2) - (7)].val.ival), (ps[(4) - (7)].val.opval), (ps[(5) - (7)].val.opval), (ps[(6) - (7)].val.opval));
297 (yyval.opval) = (OP*)NULL;
298#endif
5f211341
Z		 299 ;}
300 break;
301
8e720305
Z		 302 case 33:
303#line 366 "perly.y"
eae48c89 304 {
3ad73efd
Z		 305 (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
306 newCONDOP(0, (ps[(4) - (7)].val.opval), op_scope((ps[(6) - (7)].val.opval)), (ps[(7) - (7)].val.opval)));
eae48c89
Z		 307 TOKEN_GETMAD((ps[(1) - (7)].val.i_tkval),(yyval.opval),'I');
308 TOKEN_GETMAD((ps[(2) - (7)].val.i_tkval),(yyval.opval),'(');
309 TOKEN_GETMAD((ps[(5) - (7)].val.i_tkval),(yyval.opval),')');
310 PL_parser->copline = (line_t)IVAL((ps[(1) - (7)].val.i_tkval));
311 ;}
4098b6bb
JV		 312 break;
313
8e720305
Z		 314 case 34:
315#line 375 "perly.y"
eae48c89 316 {
3ad73efd
Z		 317 (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
318 newCONDOP(0, (ps[(4) - (7)].val.opval), op_scope((ps[(6) - (7)].val.opval)), (ps[(7) - (7)].val.opval)));
eae48c89
Z		 319 TOKEN_GETMAD((ps[(1) - (7)].val.i_tkval),(yyval.opval),'I');
320 TOKEN_GETMAD((ps[(2) - (7)].val.i_tkval),(yyval.opval),'(');
321 TOKEN_GETMAD((ps[(5) - (7)].val.i_tkval),(yyval.opval),')');
322 PL_parser->copline = (line_t)IVAL((ps[(1) - (7)].val.i_tkval));
323 ;}
4e4da3ac
Z		 324 break;
325
8e720305
Z		 326 case 35:
327#line 384 "perly.y"
eae48c89
Z		 328 {
329 (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
3ad73efd 330 newGIVENOP((ps[(5) - (7)].val.opval), op_scope((ps[(7) - (7)].val.opval)), (PADOFFSET)(ps[(4) - (7)].val.ival)));
eae48c89 331 PL_parser->copline = (line_t)IVAL((ps[(1) - (7)].val.i_tkval));
f05e27e5 332 ;}
0de566d7
DM		 333 break;
334
8e720305
Z		 335 case 36:
336#line 390 "perly.y"
3ad73efd 337 { (yyval.opval) = block_end((ps[(3) - (6)].val.ival), newWHENOP((ps[(4) - (6)].val.opval), op_scope((ps[(6) - (6)].val.opval)))); ;}
0de566d7
DM		 338 break;
339
8e720305
Z		 340 case 37:
341#line 392 "perly.y"
3ad73efd 342 { (yyval.opval) = newWHENOP(0, op_scope((ps[(2) - (2)].val.opval))); ;}
0de566d7
DM		 343 break;
344
8e720305
Z		 345 case 38:
346#line 394 "perly.y"
eae48c89
Z		 347 {
348 (yyval.opval) = block_end((ps[(3) - (8)].val.ival),
349 newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
94bf0465 350 (ps[(4) - (8)].val.opval), (ps[(7) - (8)].val.opval), (ps[(8) - (8)].val.opval), (ps[(6) - (8)].val.ival)));
eae48c89
Z		 351 TOKEN_GETMAD((ps[(1) - (8)].val.i_tkval),(yyval.opval),'W');
352 TOKEN_GETMAD((ps[(2) - (8)].val.i_tkval),(yyval.opval),'(');
353 TOKEN_GETMAD((ps[(5) - (8)].val.i_tkval),(yyval.opval),')');
354 PL_parser->copline = (line_t)IVAL((ps[(1) - (8)].val.i_tkval));
f05e27e5 355 ;}
0de566d7
DM		 356 break;
357
8e720305
Z		 358 case 39:
359#line 404 "perly.y"
eae48c89
Z		 360 {
361 (yyval.opval) = block_end((ps[(3) - (8)].val.ival),
94bf0465
Z		 362 newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
363 (ps[(4) - (8)].val.opval), (ps[(7) - (8)].val.opval), (ps[(8) - (8)].val.opval), (ps[(6) - (8)].val.ival)));
eae48c89
Z		 364 TOKEN_GETMAD((ps[(1) - (8)].val.i_tkval),(yyval.opval),'W');
365 TOKEN_GETMAD((ps[(2) - (8)].val.i_tkval),(yyval.opval),'(');
366 TOKEN_GETMAD((ps[(5) - (8)].val.i_tkval),(yyval.opval),')');
367 PL_parser->copline = (line_t)IVAL((ps[(1) - (8)].val.i_tkval));
f05e27e5 368 ;}
0de566d7
DM		 369 break;
370
8e720305
Z		 371 case 40:
372#line 415 "perly.y"
eae48c89
Z		 373 {
374 OP *initop = IF_MAD((ps[(4) - (11)].val.opval) ? (ps[(4) - (11)].val.opval) : newOP(OP_NULL, 0), (ps[(4) - (11)].val.opval));
375 OP *forop = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
94bf0465 376 scalar((ps[(6) - (11)].val.opval)), (ps[(11) - (11)].val.opval), (ps[(9) - (11)].val.opval), (ps[(8) - (11)].val.ival));
eae48c89
Z		 377 if (initop) {
378 forop = op_prepend_elem(OP_LINESEQ, initop,
379 op_append_elem(OP_LINESEQ,
380 newOP(OP_UNSTACK, OPf_SPECIAL),
381 forop));
382 }
383 DO_MAD({ forop = newUNOP(OP_NULL, 0, forop); })
384 (yyval.opval) = block_end((ps[(3) - (11)].val.ival), forop);
385 TOKEN_GETMAD((ps[(1) - (11)].val.i_tkval),(yyval.opval),'3');
386 TOKEN_GETMAD((ps[(2) - (11)].val.i_tkval),(yyval.opval),'(');
387 TOKEN_GETMAD((ps[(5) - (11)].val.i_tkval),(yyval.opval),'1');
388 TOKEN_GETMAD((ps[(7) - (11)].val.i_tkval),(yyval.opval),'2');
389 TOKEN_GETMAD((ps[(10) - (11)].val.i_tkval),(yyval.opval),')');
390 PL_parser->copline = (line_t)IVAL((ps[(1) - (11)].val.i_tkval));
391 ;}
0de566d7
DM		 392 break;
393
8e720305
Z		 394 case 41:
395#line 435 "perly.y"
eae48c89 396 {
94bf0465 397 (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)));
eae48c89
Z		 398 TOKEN_GETMAD((ps[(1) - (9)].val.i_tkval),(yyval.opval),'W');
399 TOKEN_GETMAD((ps[(2) - (9)].val.i_tkval),(yyval.opval),'d');
400 TOKEN_GETMAD((ps[(5) - (9)].val.i_tkval),(yyval.opval),'(');
401 TOKEN_GETMAD((ps[(7) - (9)].val.i_tkval),(yyval.opval),')');
402 PL_parser->copline = (line_t)IVAL((ps[(1) - (9)].val.i_tkval));
403 ;}
f20dcd76
VP		 404 break;
405
8e720305
Z		 406 case 42:
407#line 444 "perly.y"
eae48c89 408 {
94bf0465 409 (yyval.opval) = block_end((ps[(4) - (8)].val.ival), newFOROP(0,
3ad73efd 410 op_lvalue((ps[(2) - (8)].val.opval), OP_ENTERLOOP), (ps[(5) - (8)].val.opval), (ps[(7) - (8)].val.opval), (ps[(8) - (8)].val.opval)));
eae48c89
Z		 411 TOKEN_GETMAD((ps[(1) - (8)].val.i_tkval),(yyval.opval),'W');
412 TOKEN_GETMAD((ps[(3) - (8)].val.i_tkval),(yyval.opval),'(');
413 TOKEN_GETMAD((ps[(6) - (8)].val.i_tkval),(yyval.opval),')');
414 PL_parser->copline = (line_t)IVAL((ps[(1) - (8)].val.i_tkval));
f05e27e5 415 ;}
0de566d7
DM		 416 break;
417
8e720305
Z		 418 case 43:
419#line 453 "perly.y"
eae48c89
Z		 420 {
421 (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
94bf0465 422 newFOROP(0, (OP*)NULL, (ps[(4) - (7)].val.opval), (ps[(6) - (7)].val.opval), (ps[(7) - (7)].val.opval)));
eae48c89
Z		 423 TOKEN_GETMAD((ps[(1) - (7)].val.i_tkval),(yyval.opval),'W');
424 TOKEN_GETMAD((ps[(2) - (7)].val.i_tkval),(yyval.opval),'(');
425 TOKEN_GETMAD((ps[(5) - (7)].val.i_tkval),(yyval.opval),')');
426 PL_parser->copline = (line_t)IVAL((ps[(1) - (7)].val.i_tkval));
f05e27e5 427 ;}
0de566d7
DM		 428 break;
429
8e720305
Z		 430 case 44:
431#line 462 "perly.y"
eae48c89
Z		 432 {
433 /* a block is a loop that happens once */
434 (yyval.opval) = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
94bf0465 435 (OP*)NULL, (ps[(1) - (2)].val.opval), (ps[(2) - (2)].val.opval), 0);
f05e27e5 436 ;}
0de566d7
DM		 437 break;
438
8e720305
Z		 439 case 45:
440#line 468 "perly.y"
eae48c89
Z		 441 {
442 int save_3_latefree = (ps[(3) - (5)].val.opval)->op_latefree;
443 (ps[(3) - (5)].val.opval)->op_latefree = 1;
444 package((ps[(3) - (5)].val.opval));
445 (ps[(3) - (5)].val.opval)->op_latefree = save_3_latefree;
446 if ((ps[(2) - (5)].val.opval)) {
447 int save_2_latefree = (ps[(2) - (5)].val.opval)->op_latefree;
448 (ps[(2) - (5)].val.opval)->op_latefree = 1;
449 package_version((ps[(2) - (5)].val.opval));
450 (ps[(2) - (5)].val.opval)->op_latefree = save_2_latefree;
451 }
f05e27e5 452 ;}
0de566d7
DM		 453 break;
454
8e720305
Z		 455 case 46:
456#line 481 "perly.y"
eae48c89
Z		 457 {
458 /* a block is a loop that happens once */
94bf0465 459 (yyval.opval) = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
eae48c89
Z		 460 (OP*)NULL, block_end((ps[(5) - (8)].val.ival), (ps[(7) - (8)].val.opval)), (OP*)NULL, 0);
461 op_free((ps[(3) - (8)].val.opval));
462 if ((ps[(2) - (8)].val.opval))
463 op_free((ps[(2) - (8)].val.opval));
464 TOKEN_GETMAD((ps[(4) - (8)].val.i_tkval),(yyval.opval),'{');
465 TOKEN_GETMAD((ps[(8) - (8)].val.i_tkval),(yyval.opval),'}');
466 if (PL_parser->copline > (line_t)IVAL((ps[(4) - (8)].val.i_tkval)))
467 PL_parser->copline = (line_t)IVAL((ps[(4) - (8)].val.i_tkval));
468 ;}
0d863452
RH		 469 break;
470
8e720305
Z		 471 case 47:
472#line 494 "perly.y"
eae48c89
Z		 473 {
474 PL_parser->expect = XSTATE;
475 (yyval.opval) = (ps[(1) - (2)].val.opval);
476 TOKEN_GETMAD((ps[(2) - (2)].val.i_tkval),(yyval.opval),';');
477 ;}
0d863452
RH		 478 break;
479
8e720305
Z		 480 case 48:
481#line 500 "perly.y"
eae48c89
Z		 482 {
483 PL_parser->expect = XSTATE;
484 (yyval.opval) = IF_MAD(newOP(OP_NULL, 0), (OP*)NULL);
485 TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),';');
486 PL_parser->copline = NOLINE;
487 ;}
0de566d7
DM		 488 break;
489
8e720305
Z		 490 case 49:
491#line 510 "perly.y"
eae48c89 492 { (yyval.opval) = (OP*)NULL; ;}
0de566d7
DM		 493 break;
494
8e720305
Z		 495 case 50:
496#line 512 "perly.y"
eae48c89 497 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM		 498 break;
499
8e720305
Z		 500 case 51:
501#line 514 "perly.y"
eae48c89
Z		 502 { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval));
503 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'i');
f05e27e5 504 ;}
0de566d7
DM		 505 break;
506
8e720305
Z		 507 case 52:
508#line 518 "perly.y"
eae48c89
Z		 509 { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval));
510 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'i');
f05e27e5 511 ;}
0de566d7
DM		 512 break;
513
8e720305
Z		 514 case 53:
515#line 522 "perly.y"
eae48c89
Z		 516 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((ps[(3) - (3)].val.opval)), (ps[(1) - (3)].val.opval));
517 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'w');
f05e27e5 518 ;}
0de566d7
DM		 519 break;
520
8e720305
Z		 521 case 54:
522#line 526 "perly.y"
eae48c89
Z		 523 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval));
524 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'w');
f05e27e5 525 ;}
0de566d7
DM		 526 break;
527
8e720305
Z		 528 case 55:
529#line 530 "perly.y"
94bf0465 530 { (yyval.opval) = newFOROP(0, (OP*)NULL, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval), (OP*)NULL);
eae48c89 531 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'w');
94bf0465 532 PL_parser->copline = (line_t)IVAL((ps[(2) - (3)].val.i_tkval));
eae48c89 533 ;}
0de566d7
DM		 534 break;
535
8e720305
Z		 536 case 56:
537#line 535 "perly.y"
3ad73efd 538 { (yyval.opval) = newWHENOP((ps[(3) - (3)].val.opval), op_scope((ps[(1) - (3)].val.opval))); ;}
0de566d7
DM		 539 break;
540
8e720305
Z		 541 case 57:
542#line 540 "perly.y"
eae48c89 543 { (yyval.opval) = (OP*)NULL; ;}
0d863452
RH		 544 break;
545
8e720305
Z		 546 case 58:
547#line 542 "perly.y"
3ad73efd
Z		 548 {
549 ((ps[(2) - (2)].val.opval))->op_flags |= OPf_PARENS;
550 (yyval.opval) = op_scope((ps[(2) - (2)].val.opval));
eae48c89
Z		 551 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
552 ;}
553 break;
554
8e720305
Z		 555 case 59:
556#line 548 "perly.y"
eae48c89 557 { PL_parser->copline = (line_t)IVAL((ps[(1) - (6)].val.i_tkval));
3ad73efd
Z		 558 (yyval.opval) = newCONDOP(0,
559 newSTATEOP(OPf_SPECIAL,NULL,(ps[(3) - (6)].val.opval)),
560 op_scope((ps[(5) - (6)].val.opval)), (ps[(6) - (6)].val.opval));
561 PL_hints |= HINT_BLOCK_SCOPE;
eae48c89
Z		 562 TOKEN_GETMAD((ps[(1) - (6)].val.i_tkval),(yyval.opval),'I');
563 TOKEN_GETMAD((ps[(2) - (6)].val.i_tkval),(yyval.opval),'(');
564 TOKEN_GETMAD((ps[(4) - (6)].val.i_tkval),(yyval.opval),')');
565 ;}
566 break;
567
8e720305
Z		 568 case 60:
569#line 561 "perly.y"
eae48c89
Z		 570 { (yyval.opval) = (OP*)NULL; ;}
571 break;
572
8e720305
Z		 573 case 61:
574#line 563 "perly.y"
3ad73efd
Z		 575 {
576 (yyval.opval) = op_scope((ps[(2) - (2)].val.opval));
eae48c89
Z		 577 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
578 ;}
579 break;
580
8e720305
Z		 581 case 62:
582#line 571 "perly.y"
9a9798c2 583 { (yyval.ival) = (PL_min_intro_pending &&
a034e688
DM		 584 PL_max_intro_pending >= PL_min_intro_pending);
585 intro_my(); ;}
0de566d7
DM		 586 break;
587
8e720305
Z		 588 case 63:
589#line 577 "perly.y"
bcabcc50 590 { (yyval.opval) = (OP*)NULL; ;}
0de566d7
DM		 591 break;
592
8e720305
Z		 593 case 65:
594#line 583 "perly.y"
f05e27e5
DM		 595 { YYSTYPE tmplval;
596 (void)scan_num("1", &tmplval);
597 (yyval.opval) = tmplval.opval; ;}
0de566d7
DM		 598 break;
599
8e720305
Z		 600 case 67:
601#line 591 "perly.y"
9eb5c532 602 { (yyval.opval) = invert(scalar((ps[(1) - (1)].val.opval))); ;}
f20dcd76
VP		 603 break;
604
8e720305
Z		 605 case 68:
606#line 596 "perly.y"
4098b6bb
JV		 607 { (yyval.opval) = (ps[(1) - (1)].val.opval); intro_my(); ;}
608 break;
609
8e720305
Z		 610 case 69:
611#line 600 "perly.y"
4e4da3ac
Z		 612 { (yyval.opval) = (ps[(1) - (1)].val.opval); intro_my(); ;}
613 break;
614
8e720305
Z		 615 case 70:
616#line 604 "perly.y"
9eb5c532
Z		 617 { (yyval.opval) = (ps[(1) - (1)].val.opval); intro_my(); ;}
618 break;
619
8e720305
Z		 620 case 71:
621#line 607 "perly.y"
f20dcd76
VP		 622 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
623 break;
624
8e720305
Z		 625 case 72:
626#line 608 "perly.y"
bcabcc50 627 { (yyval.opval) = (OP*)NULL; ;}
0de566d7
DM		 628 break;
629
8e720305
Z		 630 case 73:
631#line 612 "perly.y"
2af555bf 632 { (yyval.ival) = start_subparse(FALSE, 0);
a8ff2fa6 633 SAVEFREESV(PL_compcv); ;}
0de566d7
DM		 634 break;
635
8e720305
Z		 636 case 74:
637#line 618 "perly.y"
2af555bf 638 { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
a8ff2fa6 639 SAVEFREESV(PL_compcv); ;}
500bedb6
DM		 640 break;
641
8e720305
Z		 642 case 75:
643#line 623 "perly.y"
2af555bf
DM		 644 { (yyval.ival) = start_subparse(TRUE, 0);
645 SAVEFREESV(PL_compcv); ;}
646 break;
647
8e720305
Z		 648 case 76:
649#line 628 "perly.y"
1654d593 650 { const char *const name = SvPV_nolen_const(((SVOP*)(ps[(1) - (1)].val.opval))->op_sv);
0de566d7 651 if (strEQ(name, "BEGIN") || strEQ(name, "END")
3c10abe3
AG		 652 || strEQ(name, "INIT") || strEQ(name, "CHECK")
653 || strEQ(name, "UNITCHECK"))
0de566d7 654 CvSPECIAL_on(PL_compcv);
1654d593 655 (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM		 656 break;
657
8e720305
Z		 658 case 77:
659#line 638 "perly.y"
bcabcc50 660 { (yyval.opval) = (OP*)NULL; ;}
0de566d7
DM		 661 break;
662
8e720305
Z		 663 case 79:
664#line 644 "perly.y"
bcabcc50 665 { (yyval.opval) = (OP*)NULL; ;}
0de566d7
DM		 666 break;
667
8e720305
Z		 668 case 80:
669#line 646 "perly.y"
1654d593
DM		 670 { (yyval.opval) = (ps[(2) - (2)].val.opval);
671 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),':');
f05e27e5 672 ;}
0de566d7
DM		 673 break;
674
8e720305
Z		 675 case 81:
676#line 650 "perly.y"
f05e27e5
DM		 677 { (yyval.opval) = IF_MAD(
678 newOP(OP_NULL, 0),
bcabcc50 679 (OP*)NULL
f05e27e5 680 );
1654d593 681 TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),':');
f05e27e5 682 ;}
0de566d7
DM		 683 break;
684
8e720305
Z		 685 case 82:
686#line 660 "perly.y"
1654d593
DM		 687 { (yyval.opval) = (ps[(2) - (2)].val.opval);
688 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),':');
f05e27e5 689 ;}
0de566d7
DM		 690 break;
691
8e720305
Z		 692 case 83:
693#line 664 "perly.y"
f05e27e5
DM		 694 { (yyval.opval) = IF_MAD(
695 newOP(OP_NULL, 0),
bcabcc50 696 (OP*)NULL
f05e27e5 697 );
1654d593 698 TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),':');
f05e27e5 699 ;}
0de566d7
DM		 700 break;
701
8e720305
Z		 702 case 84:
703#line 673 "perly.y"
1654d593 704 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM		 705 break;
706
8e720305
Z		 707 case 85:
708#line 674 "perly.y"
f05e27e5
DM		 709 { (yyval.opval) = IF_MAD(
710 newOP(OP_NULL,0),
bcabcc50 711 (OP*)NULL
f05e27e5 712 );
53a7735b 713 PL_parser->expect = XSTATE;
1654d593 714 TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),';');
f05e27e5 715 ;}
0de566d7
DM		 716 break;
717
8e720305
Z		 718 case 86:
719#line 685 "perly.y"
1654d593
DM		 720 { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
721 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
f05e27e5 722 ;}
0de566d7
DM		 723 break;
724
8e720305
Z		 725 case 87:
726#line 689 "perly.y"
1654d593
DM		 727 { (yyval.opval) = newLOGOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
728 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
f05e27e5 729 ;}
0de566d7
DM		 730 break;
731
8e720305
Z		 732 case 88:
733#line 693 "perly.y"
1654d593
DM		 734 { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
735 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
f05e27e5 736 ;}
0de566d7
DM		 737 break;
738
8e720305
Z		 739 case 90:
740#line 701 "perly.y"
f05e27e5
DM		 741 {
742#ifdef MAD
743 OP* op = newNULLLIST();
1654d593 744 token_getmad((ps[(2) - (2)].val.i_tkval),op,',');
2fcb4757 745 (yyval.opval) = op_append_elem(OP_LIST, (ps[(1) - (2)].val.opval), op);
f05e27e5 746#else
1654d593 747 (yyval.opval) = (ps[(1) - (2)].val.opval);
f05e27e5
DM		 748#endif
749 ;}
0de566d7
DM		 750 break;
751
8e720305
Z		 752 case 91:
753#line 711 "perly.y"
f05e27e5 754 {
1654d593 755 OP* term = (ps[(3) - (3)].val.opval);
f05e27e5 756 DO_MAD(
29522234 757 term = newUNOP(OP_NULL, 0, term);
1654d593 758 token_getmad((ps[(2) - (3)].val.i_tkval),term,',');
f05e27e5 759 )
2fcb4757 760 (yyval.opval) = op_append_elem(OP_LIST, (ps[(1) - (3)].val.opval), term);
f05e27e5 761 ;}
0de566d7
DM		 762 break;
763
8e720305
Z		 764 case 93:
765#line 724 "perly.y"
1654d593 766 { (yyval.opval) = convert(IVAL((ps[(1) - (3)].val.i_tkval)), OPf_STACKED,
2fcb4757 767 op_prepend_elem(OP_LIST, newGVREF(IVAL((ps[(1) - (3)].val.i_tkval)),(ps[(2) - (3)].val.opval)), (ps[(3) - (3)].val.opval)) );
1654d593 768 TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'o');
f05e27e5 769 ;}
0de566d7
DM		 770 break;
771
8e720305
Z		 772 case 94:
773#line 729 "perly.y"
1654d593 774 { (yyval.opval) = convert(IVAL((ps[(1) - (5)].val.i_tkval)), OPf_STACKED,
2fcb4757 775 op_prepend_elem(OP_LIST, newGVREF(IVAL((ps[(1) - (5)].val.i_tkval)),(ps[(3) - (5)].val.opval)), (ps[(4) - (5)].val.opval)) );
1654d593
DM		 776 TOKEN_GETMAD((ps[(1) - (5)].val.i_tkval),(yyval.opval),'o');
777 TOKEN_GETMAD((ps[(2) - (5)].val.i_tkval),(yyval.opval),'(');
778 TOKEN_GETMAD((ps[(5) - (5)].val.i_tkval),(yyval.opval),')');
f05e27e5 779 ;}
0de566d7
DM		 780 break;
781
8e720305
Z		 782 case 95:
783#line 736 "perly.y"
9a9798c2 784 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
2fcb4757
Z		 785 op_append_elem(OP_LIST,
786 op_prepend_elem(OP_LIST, scalar((ps[(1) - (6)].val.opval)), (ps[(5) - (6)].val.opval)),
1654d593
DM		 787 newUNOP(OP_METHOD, 0, (ps[(3) - (6)].val.opval))));
788 TOKEN_GETMAD((ps[(2) - (6)].val.i_tkval),(yyval.opval),'A');
789 TOKEN_GETMAD((ps[(4) - (6)].val.i_tkval),(yyval.opval),'(');
790 TOKEN_GETMAD((ps[(6) - (6)].val.i_tkval),(yyval.opval),')');
f05e27e5 791 ;}
0de566d7
DM		 792 break;
793
8e720305
Z		 794 case 96:
795#line 745 "perly.y"
9a9798c2 796 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
2fcb4757 797 op_append_elem(OP_LIST, scalar((ps[(1) - (3)].val.opval)),
1654d593
DM		 798 newUNOP(OP_METHOD, 0, (ps[(3) - (3)].val.opval))));
799 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'A');
f05e27e5 800 ;}
0de566d7
DM		 801 break;
802
8e720305
Z		 803 case 97:
804#line 751 "perly.y"
f05e27e5 805 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
2fcb4757
Z		 806 op_append_elem(OP_LIST,
807 op_prepend_elem(OP_LIST, (ps[(2) - (3)].val.opval), (ps[(3) - (3)].val.opval)),
1654d593 808 newUNOP(OP_METHOD, 0, (ps[(1) - (3)].val.opval))));
f05e27e5 809 ;}
0de566d7
DM		 810 break;
811
8e720305
Z		 812 case 98:
813#line 757 "perly.y"
f05e27e5 814 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
2fcb4757
Z		 815 op_append_elem(OP_LIST,
816 op_prepend_elem(OP_LIST, (ps[(2) - (5)].val.opval), (ps[(4) - (5)].val.opval)),
1654d593
DM		 817 newUNOP(OP_METHOD, 0, (ps[(1) - (5)].val.opval))));
818 TOKEN_GETMAD((ps[(3) - (5)].val.i_tkval),(yyval.opval),'(');
819 TOKEN_GETMAD((ps[(5) - (5)].val.i_tkval),(yyval.opval),')');
f05e27e5 820 ;}
0de566d7
DM		 821 break;
822
8e720305
Z		 823 case 99:
824#line 765 "perly.y"
1654d593
DM		 825 { (yyval.opval) = convert(IVAL((ps[(1) - (2)].val.i_tkval)), 0, (ps[(2) - (2)].val.opval));
826 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
f05e27e5 827 ;}
0de566d7
DM		 828 break;
829
8e720305
Z		 830 case 100:
831#line 769 "perly.y"
1654d593
DM		 832 { (yyval.opval) = convert(IVAL((ps[(1) - (4)].val.i_tkval)), 0, (ps[(3) - (4)].val.opval));
833 TOKEN_GETMAD((ps[(1) - (4)].val.i_tkval),(yyval.opval),'o');
834 TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'(');
835 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),')');
f05e27e5 836 ;}
0de566d7
DM		 837 break;
838
8e720305
Z		 839 case 101:
840#line 775 "perly.y"
5a5094bd 841 { SvREFCNT_inc_simple_void(PL_compcv);
bcabcc50 842 (yyval.opval) = newANONATTRSUB((ps[(2) - (3)].val.ival), 0, (OP*)NULL, (ps[(3) - (3)].val.opval)); ;}
0de566d7
DM		 843 break;
844
8e720305
Z		 845 case 102:
846#line 778 "perly.y"
f05e27e5 847 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
2fcb4757
Z		 848 op_append_elem(OP_LIST,
849 op_prepend_elem(OP_LIST, (ps[(4) - (5)].val.opval), (ps[(5) - (5)].val.opval)), (ps[(1) - (5)].val.opval)));
f05e27e5 850 ;}
0de566d7
DM		 851 break;
852
8e720305
Z		 853 case 105:
854#line 793 "perly.y"
1654d593 855 { (yyval.opval) = newBINOP(OP_GELEM, 0, (ps[(1) - (5)].val.opval), scalar((ps[(3) - (5)].val.opval)));
53a7735b 856 PL_parser->expect = XOPERATOR;
1654d593
DM		 857 TOKEN_GETMAD((ps[(2) - (5)].val.i_tkval),(yyval.opval),'{');
858 TOKEN_GETMAD((ps[(4) - (5)].val.i_tkval),(yyval.opval),';');
859 TOKEN_GETMAD((ps[(5) - (5)].val.i_tkval),(yyval.opval),'}');
f05e27e5 860 ;}
0de566d7
DM		 861 break;
862
8e720305
Z		 863 case 106:
864#line 800 "perly.y"
1654d593
DM		 865 { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((ps[(1) - (4)].val.opval)), scalar((ps[(3) - (4)].val.opval)));
866 TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'[');
867 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),']');
f05e27e5 868 ;}
0de566d7
DM		 869 break;
870
8e720305
Z		 871 case 107:
872#line 805 "perly.y"
f05e27e5 873 { (yyval.opval) = newBINOP(OP_AELEM, 0,
1654d593
DM		 874 ref(newAVREF((ps[(1) - (5)].val.opval)),OP_RV2AV),
875 scalar((ps[(4) - (5)].val.opval)));
876 TOKEN_GETMAD((ps[(2) - (5)].val.i_tkval),(yyval.opval),'a');
877 TOKEN_GETMAD((ps[(3) - (5)].val.i_tkval),(yyval.opval),'[');
878 TOKEN_GETMAD((ps[(5) - (5)].val.i_tkval),(yyval.opval),']');
f05e27e5 879 ;}
0de566d7
DM		 880 break;
881
8e720305
Z		 882 case 108:
883#line 813 "perly.y"
f05e27e5 884 { (yyval.opval) = newBINOP(OP_AELEM, 0,
1654d593
DM		 885 ref(newAVREF((ps[(1) - (4)].val.opval)),OP_RV2AV),
886 scalar((ps[(3) - (4)].val.opval)));
887 TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'[');
888 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),']');
f05e27e5 889 ;}
0de566d7
DM		 890 break;
891
8e720305
Z		 892 case 109:
893#line 820 "perly.y"
1654d593 894 { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((ps[(1) - (5)].val.opval)), jmaybe((ps[(3) - (5)].val.opval)));
53a7735b 895 PL_parser->expect = XOPERATOR;
1654d593
DM		 896 TOKEN_GETMAD((ps[(2) - (5)].val.i_tkval),(yyval.opval),'{');
897 TOKEN_GETMAD((ps[(4) - (5)].val.i_tkval),(yyval.opval),';');
898 TOKEN_GETMAD((ps[(5) - (5)].val.i_tkval),(yyval.opval),'}');
f05e27e5 899 ;}
0de566d7
DM		 900 break;
901
8e720305
Z		 902 case 110:
903#line 827 "perly.y"
f05e27e5 904 { (yyval.opval) = newBINOP(OP_HELEM, 0,
1654d593
DM		 905 ref(newHVREF((ps[(1) - (6)].val.opval)),OP_RV2HV),
906 jmaybe((ps[(4) - (6)].val.opval)));
53a7735b 907 PL_parser->expect = XOPERATOR;
1654d593
DM		 908 TOKEN_GETMAD((ps[(2) - (6)].val.i_tkval),(yyval.opval),'a');
909 TOKEN_GETMAD((ps[(3) - (6)].val.i_tkval),(yyval.opval),'{');
910 TOKEN_GETMAD((ps[(5) - (6)].val.i_tkval),(yyval.opval),';');
911 TOKEN_GETMAD((ps[(6) - (6)].val.i_tkval),(yyval.opval),'}');
f05e27e5 912 ;}
0de566d7
DM		 913 break;
914
8e720305
Z		 915 case 111:
916#line 837 "perly.y"
f05e27e5 917 { (yyval.opval) = newBINOP(OP_HELEM, 0,
1654d593
DM		 918 ref(newHVREF((ps[(1) - (5)].val.opval)),OP_RV2HV),
919 jmaybe((ps[(3) - (5)].val.opval)));
53a7735b 920 PL_parser->expect = XOPERATOR;
1654d593
DM		 921 TOKEN_GETMAD((ps[(2) - (5)].val.i_tkval),(yyval.opval),'{');
922 TOKEN_GETMAD((ps[(4) - (5)].val.i_tkval),(yyval.opval),';');
923 TOKEN_GETMAD((ps[(5) - (5)].val.i_tkval),(yyval.opval),'}');
f05e27e5 924 ;}
0de566d7
DM		 925 break;
926
8e720305
Z		 927 case 112:
928#line 846 "perly.y"
9a9798c2 929 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1654d593
DM		 930 newCVREF(0, scalar((ps[(1) - (4)].val.opval))));
931 TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'a');
932 TOKEN_GETMAD((ps[(3) - (4)].val.i_tkval),(yyval.opval),'(');
933 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),')');
f05e27e5 934 ;}
0de566d7
DM		 935 break;
936
8e720305
Z		 937 case 113:
938#line 853 "perly.y"
9a9798c2 939 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
2fcb4757 940 op_append_elem(OP_LIST, (ps[(4) - (5)].val.opval),
1654d593
DM		 941 newCVREF(0, scalar((ps[(1) - (5)].val.opval)))));
942 TOKEN_GETMAD((ps[(2) - (5)].val.i_tkval),(yyval.opval),'a');
943 TOKEN_GETMAD((ps[(3) - (5)].val.i_tkval),(yyval.opval),'(');
944 TOKEN_GETMAD((ps[(5) - (5)].val.i_tkval),(yyval.opval),')');
f05e27e5 945 ;}
0de566d7
DM		 946 break;
947
8e720305
Z		 948 case 114:
949#line 862 "perly.y"
f05e27e5 950 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
2fcb4757 951 op_append_elem(OP_LIST, (ps[(3) - (4)].val.opval),
1654d593
DM		 952 newCVREF(0, scalar((ps[(1) - (4)].val.opval)))));
953 TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'(');
954 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),')');
f05e27e5 955 ;}
0de566d7
DM		 956 break;
957
8e720305
Z		 958 case 115:
959#line 869 "perly.y"
f05e27e5 960 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1654d593
DM		 961 newCVREF(0, scalar((ps[(1) - (3)].val.opval))));
962 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'(');
963 TOKEN_GETMAD((ps[(3) - (3)].val.i_tkval),(yyval.opval),')');
f05e27e5 964 ;}
0de566d7
DM		 965 break;
966
8e720305
Z		 967 case 116:
968#line 875 "perly.y"
1654d593
DM		 969 { (yyval.opval) = newSLICEOP(0, (ps[(5) - (6)].val.opval), (ps[(2) - (6)].val.opval));
970 TOKEN_GETMAD((ps[(1) - (6)].val.i_tkval),(yyval.opval),'(');
971 TOKEN_GETMAD((ps[(3) - (6)].val.i_tkval),(yyval.opval),')');
972 TOKEN_GETMAD((ps[(4) - (6)].val.i_tkval),(yyval.opval),'[');
973 TOKEN_GETMAD((ps[(6) - (6)].val.i_tkval),(yyval.opval),']');
f05e27e5 974 ;}
0de566d7
DM		 975 break;
976
8e720305
Z		 977 case 117:
978#line 882 "perly.y"
ea25a9b2
Z		 979 { (yyval.opval) = newSLICEOP(0, (ps[(3) - (4)].val.opval), (ps[(1) - (4)].val.opval));
980 TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'[');
981 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),']');
982 ;}
983 break;
984
8e720305
Z		 985 case 118:
986#line 887 "perly.y"
bcabcc50 987 { (yyval.opval) = newSLICEOP(0, (ps[(4) - (5)].val.opval), (OP*)NULL);
1654d593
DM		 988 TOKEN_GETMAD((ps[(1) - (5)].val.i_tkval),(yyval.opval),'(');
989 TOKEN_GETMAD((ps[(2) - (5)].val.i_tkval),(yyval.opval),')');
990 TOKEN_GETMAD((ps[(3) - (5)].val.i_tkval),(yyval.opval),'[');
991 TOKEN_GETMAD((ps[(5) - (5)].val.i_tkval),(yyval.opval),']');
f05e27e5 992 ;}
0de566d7
DM		 993 break;
994
8e720305
Z		 995 case 119:
996#line 897 "perly.y"
9eb5c532 997 { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[(1) - (3)].val.opval), IVAL((ps[(2) - (3)].val.i_tkval)), (ps[(3) - (3)].val.opval));
1654d593 998 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
f05e27e5 999 ;}
0de566d7
DM		 1000 break;
1001
8e720305
Z		 1002 case 120:
1003#line 901 "perly.y"
9eb5c532 1004 { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
1654d593 1005 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1006 ;}
0de566d7
DM		 1007 break;
1008
8e720305
Z		 1009 case 121:
1010#line 905 "perly.y"
9eb5c532
Z		 1011 { if (IVAL((ps[(2) - (3)].val.i_tkval)) != OP_REPEAT)
1012 scalar((ps[(1) - (3)].val.opval));
1013 (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, (ps[(1) - (3)].val.opval), scalar((ps[(3) - (3)].val.opval)));
1654d593 1014 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1015 ;}
0de566d7
DM		 1016 break;
1017
78cdf107 1018 case 122:
8e720305 1019#line 911 "perly.y"
5f211341
Z		 1020 { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
1021 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
1022 ;}
1023 break;
1024
78cdf107 1025 case 123:
8e720305 1026#line 915 "perly.y"
1654d593
DM		 1027 { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
1028 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1029 ;}
0de566d7
DM		 1030 break;
1031
78cdf107 1032 case 124:
8e720305 1033#line 919 "perly.y"
1654d593
DM		 1034 { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
1035 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1036 ;}
0de566d7
DM		 1037 break;
1038
78cdf107 1039 case 125:
8e720305 1040#line 923 "perly.y"
f20dcd76
VP		 1041 { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
1042 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
1043 ;}
1044 break;
1045
78cdf107 1046 case 126:
8e720305 1047#line 927 "perly.y"
4098b6bb
JV		 1048 { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
1049 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
1050 ;}
1051 break;
1052
78cdf107 1053 case 127:
8e720305
Z		 1054#line 931 "perly.y"
1055 { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
1056 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
1057 ;}
1058 break;
1059
1060 case 128:
1061#line 935 "perly.y"
f05e27e5 1062 {
1654d593 1063 (yyval.opval) = newRANGE(IVAL((ps[(2) - (3)].val.i_tkval)), scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
035e2bcc 1064 DO_MAD({
f05e27e5
DM		 1065 UNOP *op;
1066 op = (UNOP*)(yyval.opval);
1067 op = (UNOP*)op->op_first; /* get to flop */
1068 op = (UNOP*)op->op_first; /* get to flip */
1069 op = (UNOP*)op->op_first; /* get to range */
1654d593 1070 token_getmad((ps[(2) - (3)].val.i_tkval),(OP*)op,'o');
035e2bcc 1071 })
f05e27e5 1072 ;}
0de566d7
DM		 1073 break;
1074
8e720305
Z		 1075 case 129:
1076#line 947 "perly.y"
1654d593
DM		 1077 { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
1078 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1079 ;}
0de566d7
DM		 1080 break;
1081
8e720305
Z		 1082 case 130:
1083#line 951 "perly.y"
1654d593
DM		 1084 { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
1085 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1086 ;}
0de566d7
DM		 1087 break;
1088
8e720305
Z		 1089 case 131:
1090#line 955 "perly.y"
1654d593
DM		 1091 { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
1092 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1093 ;}
0de566d7
DM		 1094 break;
1095
8e720305
Z		 1096 case 132:
1097#line 959 "perly.y"
1654d593
DM		 1098 { (yyval.opval) = bind_match(IVAL((ps[(2) - (3)].val.i_tkval)), (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
1099 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),
f05e27e5
DM		 1100 ((yyval.opval)->op_type == OP_NOT
1101 ? ((UNOP*)(yyval.opval))->op_first : (yyval.opval)),
1102 '~');
1103 ;}
500bedb6
DM		 1104 break;
1105
8e720305
Z		 1106 case 133:
1107#line 969 "perly.y"
1654d593
DM		 1108 { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[(2) - (2)].val.opval)));
1109 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1110 ;}
0de566d7
DM		 1111 break;
1112
8e720305
Z		 1113 case 134:
1114#line 973 "perly.y"
f05e27e5 1115 { (yyval.opval) = IF_MAD(
1654d593
DM		 1116 newUNOP(OP_NULL, 0, (ps[(2) - (2)].val.opval)),
1117 (ps[(2) - (2)].val.opval)
f05e27e5 1118 );
1654d593 1119 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'+');
f05e27e5 1120 ;}
0de566d7
DM		 1121 break;
1122
8e720305
Z		 1123 case 135:
1124#line 980 "perly.y"
1654d593
DM		 1125 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[(2) - (2)].val.opval)));
1126 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1127 ;}
0de566d7
DM		 1128 break;
1129
8e720305
Z		 1130 case 136:
1131#line 984 "perly.y"
1654d593
DM		 1132 { (yyval.opval) = newUNOP(OP_COMPLEMENT, 0, scalar((ps[(2) - (2)].val.opval)));
1133 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1134 ;}
0de566d7
DM		 1135 break;
1136
8e720305
Z		 1137 case 137:
1138#line 988 "perly.y"
f05e27e5 1139 { (yyval.opval) = newUNOP(OP_POSTINC, 0,
3ad73efd 1140 op_lvalue(scalar((ps[(1) - (2)].val.opval)), OP_POSTINC));
1654d593 1141 TOKEN_GETMAD((ps[(2) - (2)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1142 ;}
0de566d7
DM		 1143 break;
1144
8e720305
Z		 1145 case 138:
1146#line 993 "perly.y"
f05e27e5 1147 { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
3ad73efd 1148 op_lvalue(scalar((ps[(1) - (2)].val.opval)), OP_POSTDEC));
1654d593 1149 TOKEN_GETMAD((ps[(2) - (2)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1150 ;}
0de566d7
DM		 1151 break;
1152
8e720305
Z		 1153 case 139:
1154#line 998 "perly.y"
f05e27e5 1155 { (yyval.opval) = newUNOP(OP_PREINC, 0,
3ad73efd 1156 op_lvalue(scalar((ps[(2) - (2)].val.opval)), OP_PREINC));
1654d593 1157 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1158 ;}
0de566d7
DM		 1159 break;
1160
8e720305
Z		 1161 case 140:
1162#line 1003 "perly.y"
f05e27e5 1163 { (yyval.opval) = newUNOP(OP_PREDEC, 0,
3ad73efd 1164 op_lvalue(scalar((ps[(2) - (2)].val.opval)), OP_PREDEC));
1654d593 1165 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1166 ;}
0de566d7
DM		 1167 break;
1168
8e720305
Z		 1169 case 141:
1170#line 1012 "perly.y"
1654d593
DM		 1171 { (yyval.opval) = newANONLIST((ps[(2) - (3)].val.opval));
1172 TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'[');
1173 TOKEN_GETMAD((ps[(3) - (3)].val.i_tkval),(yyval.opval),']');
f05e27e5 1174 ;}
0de566d7
DM		 1175 break;
1176
8e720305
Z		 1177 case 142:
1178#line 1017 "perly.y"
bcabcc50 1179 { (yyval.opval) = newANONLIST((OP*)NULL);
1654d593
DM		 1180 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'[');
1181 TOKEN_GETMAD((ps[(2) - (2)].val.i_tkval),(yyval.opval),']');
f05e27e5 1182 ;}
0de566d7
DM		 1183 break;
1184
8e720305
Z		 1185 case 143:
1186#line 1022 "perly.y"
1654d593
DM		 1187 { (yyval.opval) = newANONHASH((ps[(2) - (4)].val.opval));
1188 TOKEN_GETMAD((ps[(1) - (4)].val.i_tkval),(yyval.opval),'{');
1189 TOKEN_GETMAD((ps[(3) - (4)].val.i_tkval),(yyval.opval),';');
1190 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),'}');
f05e27e5 1191 ;}
0de566d7
DM		 1192 break;
1193
8e720305
Z		 1194 case 144:
1195#line 1028 "perly.y"
bcabcc50 1196 { (yyval.opval) = newANONHASH((OP*)NULL);
1654d593
DM		 1197 TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'{');
1198 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),';');
1199 TOKEN_GETMAD((ps[(3) - (3)].val.i_tkval),(yyval.opval),'}');
f05e27e5 1200 ;}
9a9798c2
YST		 1201 break;
1202
8e720305
Z		 1203 case 145:
1204#line 1034 "perly.y"
5a5094bd 1205 { SvREFCNT_inc_simple_void(PL_compcv);
1654d593
DM		 1206 (yyval.opval) = newANONATTRSUB((ps[(2) - (5)].val.ival), (ps[(3) - (5)].val.opval), (ps[(4) - (5)].val.opval), (ps[(5) - (5)].val.opval));
1207 TOKEN_GETMAD((ps[(1) - (5)].val.i_tkval),(yyval.opval),'o');
1208 OP_GETMAD((ps[(3) - (5)].val.opval),(yyval.opval),'s');
1209 OP_GETMAD((ps[(4) - (5)].val.opval),(yyval.opval),'a');
f05e27e5 1210 ;}
9a9798c2
YST		 1211 break;
1212
8e720305
Z		 1213 case 146:
1214#line 1045 "perly.y"
1654d593
DM		 1215 { (yyval.opval) = dofile((ps[(2) - (2)].val.opval), IVAL((ps[(1) - (2)].val.i_tkval)));
1216 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
f05e27e5
DM		 1217 ;}
1218 break;
1219
8e720305
Z		 1220 case 147:
1221#line 1049 "perly.y"
3ad73efd 1222 { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, op_scope((ps[(2) - (2)].val.opval)));
1654d593 1223 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'D');
f05e27e5
DM		 1224 ;}
1225 break;
1226
8e720305
Z		 1227 case 148:
1228#line 1053 "perly.y"
9a9798c2 1229 { (yyval.opval) = newUNOP(OP_ENTERSUB,
0de566d7 1230 OPf_SPECIAL|OPf_STACKED,
2fcb4757 1231 op_prepend_elem(OP_LIST,
0de566d7
DM		 1232 scalar(newCVREF(
1233 (OPpENTERSUB_AMPER<<8),
1654d593 1234 scalar((ps[(2) - (4)].val.opval))
bcabcc50 1235 )),(OP*)NULL)); dep();
1654d593
DM		 1236 TOKEN_GETMAD((ps[(1) - (4)].val.i_tkval),(yyval.opval),'o');
1237 TOKEN_GETMAD((ps[(3) - (4)].val.i_tkval),(yyval.opval),'(');
1238 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),')');
f05e27e5 1239 ;}
0de566d7
DM		 1240 break;
1241
8e720305
Z		 1242 case 149:
1243#line 1065 "perly.y"
9a9798c2 1244 { (yyval.opval) = newUNOP(OP_ENTERSUB,
0de566d7 1245 OPf_SPECIAL|OPf_STACKED,
2fcb4757 1246 op_append_elem(OP_LIST,
1654d593 1247 (ps[(4) - (5)].val.opval),
0de566d7
DM		 1248 scalar(newCVREF(
1249 (OPpENTERSUB_AMPER<<8),
1654d593 1250 scalar((ps[(2) - (5)].val.opval))
f05e27e5 1251 )))); dep();
1654d593
DM		 1252 TOKEN_GETMAD((ps[(1) - (5)].val.i_tkval),(yyval.opval),'o');
1253 TOKEN_GETMAD((ps[(3) - (5)].val.i_tkval),(yyval.opval),'(');
1254 TOKEN_GETMAD((ps[(5) - (5)].val.i_tkval),(yyval.opval),')');
f05e27e5 1255 ;}
0de566d7
DM		 1256 break;
1257
8e720305
Z		 1258 case 150:
1259#line 1078 "perly.y"
9a9798c2 1260 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
2fcb4757 1261 op_prepend_elem(OP_LIST,
bcabcc50 1262 scalar(newCVREF(0,scalar((ps[(2) - (4)].val.opval)))), (OP*)NULL)); dep();
1654d593
DM		 1263 TOKEN_GETMAD((ps[(1) - (4)].val.i_tkval),(yyval.opval),'o');
1264 TOKEN_GETMAD((ps[(3) - (4)].val.i_tkval),(yyval.opval),'(');
1265 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),')');
f05e27e5 1266 ;}
0de566d7
DM		 1267 break;
1268
8e720305
Z		 1269 case 151:
1270#line 1086 "perly.y"
9a9798c2 1271 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
2fcb4757 1272 op_prepend_elem(OP_LIST,
1654d593
DM		 1273 (ps[(4) - (5)].val.opval),
1274 scalar(newCVREF(0,scalar((ps[(2) - (5)].val.opval)))))); dep();
1275 TOKEN_GETMAD((ps[(1) - (5)].val.i_tkval),(yyval.opval),'o');
1276 TOKEN_GETMAD((ps[(3) - (5)].val.i_tkval),(yyval.opval),'(');
1277 TOKEN_GETMAD((ps[(5) - (5)].val.i_tkval),(yyval.opval),')');
f05e27e5 1278 ;}
0de566d7
DM		 1279 break;
1280
8e720305
Z		 1281 case 156:
1282#line 1102 "perly.y"
1654d593
DM		 1283 { (yyval.opval) = newCONDOP(0, (ps[(1) - (5)].val.opval), (ps[(3) - (5)].val.opval), (ps[(5) - (5)].val.opval));
1284 TOKEN_GETMAD((ps[(2) - (5)].val.i_tkval),(yyval.opval),'?');
1285 TOKEN_GETMAD((ps[(4) - (5)].val.i_tkval),(yyval.opval),':');
f05e27e5 1286 ;}
0de566d7
DM		 1287 break;
1288
8e720305
Z		 1289 case 157:
1290#line 1107 "perly.y"
3ad73efd 1291 { (yyval.opval) = newUNOP(OP_REFGEN, 0, op_lvalue((ps[(2) - (2)].val.opval),OP_REFGEN));
1654d593 1292 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1293 ;}
0de566d7
DM		 1294 break;
1295
8e720305
Z		 1296 case 158:
1297#line 1111 "perly.y"
1654d593 1298 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM		 1299 break;
1300
8e720305
Z		 1301 case 159:
1302#line 1113 "perly.y"
1654d593 1303 { (yyval.opval) = localize((ps[(2) - (2)].val.opval),IVAL((ps[(1) - (2)].val.i_tkval)));
dde83331 1304 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'k');
f05e27e5 1305 ;}
0de566d7
DM		 1306 break;
1307
8e720305
Z		 1308 case 160:
1309#line 1117 "perly.y"
1654d593
DM		 1310 { (yyval.opval) = sawparens(IF_MAD(newUNOP(OP_NULL,0,(ps[(2) - (3)].val.opval)), (ps[(2) - (3)].val.opval)));
1311 TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'(');
1312 TOKEN_GETMAD((ps[(3) - (3)].val.i_tkval),(yyval.opval),')');
f05e27e5 1313 ;}
0de566d7
DM		 1314 break;
1315
8e720305
Z		 1316 case 161:
1317#line 1122 "perly.y"
ea25a9b2
Z		 1318 { (yyval.opval) = IF_MAD(newUNOP(OP_NULL,0,(ps[(1) - (1)].val.opval)), (ps[(1) - (1)].val.opval)); ;}
1319 break;
1320
8e720305
Z		 1321 case 162:
1322#line 1124 "perly.y"
f05e27e5 1323 { (yyval.opval) = sawparens(newNULLLIST());
1654d593
DM		 1324 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'(');
1325 TOKEN_GETMAD((ps[(2) - (2)].val.i_tkval),(yyval.opval),')');
f05e27e5 1326 ;}
0de566d7
DM		 1327 break;
1328
78cdf107 1329 case 163:
8e720305 1330#line 1129 "perly.y"
5f211341
Z		 1331 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
1332 break;
1333
78cdf107 1334 case 164:
8e720305 1335#line 1131 "perly.y"
5f211341
Z		 1336 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
1337 break;
1338
78cdf107 1339 case 165:
8e720305 1340#line 1133 "perly.y"
1654d593 1341 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM		 1342 break;
1343
78cdf107 1344 case 166:
8e720305
Z		 1345#line 1135 "perly.y"
1346 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM		 1347 break;
1348
78cdf107 1349 case 167:
8e720305
Z		 1350#line 1137 "perly.y"
1351 { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[(1) - (1)].val.opval), OP_AV2ARYLEN));;}
f20dcd76
VP		 1352 break;
1353
78cdf107 1354 case 168:
8e720305
Z		 1355#line 1139 "perly.y"
1356 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
1357 break;
1358
1359 case 169:
1360#line 1141 "perly.y"
2fcb4757 1361 { (yyval.opval) = op_prepend_elem(OP_ASLICE,
f05e27e5
DM		 1362 newOP(OP_PUSHMARK, 0),
1363 newLISTOP(OP_ASLICE, 0,
1654d593
DM		 1364 list((ps[(3) - (4)].val.opval)),
1365 ref((ps[(1) - (4)].val.opval), OP_ASLICE)));
1366 TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'[');
1367 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),']');
f05e27e5 1368 ;}
0de566d7
DM		 1369 break;
1370
8e720305
Z		 1371 case 170:
1372#line 1150 "perly.y"
2fcb4757 1373 { (yyval.opval) = op_prepend_elem(OP_HSLICE,
f05e27e5
DM		 1374 newOP(OP_PUSHMARK, 0),
1375 newLISTOP(OP_HSLICE, 0,
1654d593
DM		 1376 list((ps[(3) - (5)].val.opval)),
1377 ref(oopsHV((ps[(1) - (5)].val.opval)), OP_HSLICE)));
53a7735b 1378 PL_parser->expect = XOPERATOR;
1654d593
DM		 1379 TOKEN_GETMAD((ps[(2) - (5)].val.i_tkval),(yyval.opval),'{');
1380 TOKEN_GETMAD((ps[(4) - (5)].val.i_tkval),(yyval.opval),';');
1381 TOKEN_GETMAD((ps[(5) - (5)].val.i_tkval),(yyval.opval),'}');
f05e27e5 1382 ;}
0de566d7
DM		 1383 break;
1384
8e720305
Z		 1385 case 171:
1386#line 1161 "perly.y"
1654d593 1387 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM		 1388 break;
1389
8e720305
Z		 1390 case 172:
1391#line 1163 "perly.y"
1654d593 1392 { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[(1) - (1)].val.opval))); ;}
0de566d7
DM		 1393 break;
1394
8e720305
Z		 1395 case 173:
1396#line 1165 "perly.y"
1654d593
DM		 1397 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[(1) - (3)].val.opval)));
1398 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'(');
1399 TOKEN_GETMAD((ps[(3) - (3)].val.i_tkval),(yyval.opval),')');
f05e27e5 1400 ;}
0de566d7
DM		 1401 break;
1402
8e720305
Z		 1403 case 174:
1404#line 1170 "perly.y"
f05e27e5
DM		 1405 {
1406 (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
2fcb4757 1407 op_append_elem(OP_LIST, (ps[(3) - (4)].val.opval), scalar((ps[(1) - (4)].val.opval))));
035e2bcc 1408 DO_MAD({
f05e27e5
DM		 1409 OP* op = (yyval.opval);
1410 if (op->op_type == OP_CONST) { /* defeat const fold */
1411 op = (OP*)op->op_madprop->mad_val;
1412 }
1654d593
DM		 1413 token_getmad((ps[(2) - (4)].val.i_tkval),op,'(');
1414 token_getmad((ps[(4) - (4)].val.i_tkval),op,')');
035e2bcc 1415 })
f05e27e5 1416 ;}
0de566d7
DM		 1417 break;
1418
8e720305
Z		 1419 case 175:
1420#line 1183 "perly.y"
f05e27e5 1421 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
2fcb4757 1422 op_append_elem(OP_LIST, (ps[(3) - (3)].val.opval), scalar((ps[(2) - (3)].val.opval))));
1654d593 1423 TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1424 ;}
0de566d7
DM		 1425 break;
1426
8e720305
Z		 1427 case 176:
1428#line 1188 "perly.y"
1654d593 1429 { (yyval.opval) = newOP(IVAL((ps[(1) - (1)].val.i_tkval)), OPf_SPECIAL);
f05e27e5 1430 PL_hints |= HINT_BLOCK_SCOPE;
1654d593 1431 TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1432 ;}
0de566d7
DM		 1433 break;
1434
8e720305
Z		 1435 case 177:
1436#line 1193 "perly.y"
9eb5c532 1437 { (yyval.opval) = newLOOPEX(IVAL((ps[(1) - (2)].val.i_tkval)),(ps[(2) - (2)].val.opval));
1654d593 1438 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1439 ;}
0de566d7
DM		 1440 break;
1441
8e720305
Z		 1442 case 178:
1443#line 1197 "perly.y"
9eb5c532
Z		 1444 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[(2) - (2)].val.opval)));
1445 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1446 ;}
0de566d7
DM		 1447 break;
1448
8e720305
Z		 1449 case 179:
1450#line 1201 "perly.y"
9eb5c532
Z		 1451 { (yyval.opval) = newOP(IVAL((ps[(1) - (1)].val.i_tkval)), 0);
1452 TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1453 ;}
0de566d7
DM		 1454 break;
1455
8e720305
Z		 1456 case 180:
1457#line 1205 "perly.y"
1654d593
DM		 1458 { (yyval.opval) = newUNOP(IVAL((ps[(1) - (2)].val.i_tkval)), 0, (ps[(2) - (2)].val.opval));
1459 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1460 ;}
0de566d7
DM		 1461 break;
1462
8e720305
Z		 1463 case 181:
1464#line 1209 "perly.y"
9eb5c532
Z		 1465 { (yyval.opval) = newUNOP(IVAL((ps[(1) - (2)].val.i_tkval)), 0, (ps[(2) - (2)].val.opval));
1466 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
d2fdf8fd 1467 ;}
0de566d7
DM		 1468 break;
1469
8e720305
Z		 1470 case 182:
1471#line 1213 "perly.y"
9eb5c532
Z		 1472 { (yyval.opval) = newOP(OP_REQUIRE, (ps[(1) - (1)].val.i_tkval) ? OPf_SPECIAL : 0);
1473 TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),'o');
d2fdf8fd 1474 ;}
0de566d7
DM		 1475 break;
1476
8e720305
Z		 1477 case 183:
1478#line 1217 "perly.y"
9eb5c532
Z		 1479 { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[(1) - (2)].val.i_tkval) ? OPf_SPECIAL : 0, (ps[(2) - (2)].val.opval));
1480 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
1481 ;}
0de566d7
DM		 1482 break;
1483
8e720305
Z		 1484 case 184:
1485#line 1221 "perly.y"
9eb5c532
Z		 1486 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[(1) - (1)].val.opval))); ;}
1487 break;
1488
8e720305
Z		 1489 case 185:
1490#line 1223 "perly.y"
f05e27e5 1491 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
2fcb4757 1492 op_append_elem(OP_LIST, (ps[(2) - (2)].val.opval), scalar((ps[(1) - (2)].val.opval)))); ;}
0de566d7
DM		 1493 break;
1494
8e720305
Z		 1495 case 186:
1496#line 1226 "perly.y"
1654d593
DM		 1497 { (yyval.opval) = newOP(IVAL((ps[(1) - (1)].val.i_tkval)), 0);
1498 TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),'o');
f05e27e5 1499 ;}
0de566d7
DM		 1500 break;
1501
8e720305
Z		 1502 case 187:
1503#line 1230 "perly.y"
1654d593
DM		 1504 { (yyval.opval) = newOP(IVAL((ps[(1) - (3)].val.i_tkval)), 0);
1505 TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'o');
1506 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'(');
1507 TOKEN_GETMAD((ps[(3) - (3)].val.i_tkval),(yyval.opval),')');
f05e27e5 1508 ;}
0de566d7
DM		 1509 break;
1510
8e720305
Z		 1511 case 188:
1512#line 1236 "perly.y"
7eb971ee
FC		 1513 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
1514 break;
1515
1516 case 189:
1517#line 1238 "perly.y"
1518 { (yyval.opval) = (ps[(1) - (3)].val.opval);
1519 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'(');
1520 TOKEN_GETMAD((ps[(3) - (3)].val.i_tkval),(yyval.opval),')');
1521 ;}
1522 break;
1523
1524 case 190:
1525#line 1243 "perly.y"
f05e27e5 1526 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1654d593 1527 scalar((ps[(1) - (1)].val.opval))); ;}
0de566d7
DM		 1528 break;
1529
7eb971ee
FC		 1530 case 191:
1531#line 1246 "perly.y"
1654d593
DM		 1532 { (yyval.opval) = (IVAL((ps[(1) - (3)].val.i_tkval)) == OP_NOT)
1533 ? newUNOP(IVAL((ps[(1) - (3)].val.i_tkval)), 0, newSVOP(OP_CONST, 0, newSViv(0)))
1534 : newOP(IVAL((ps[(1) - (3)].val.i_tkval)), OPf_SPECIAL);
f05e27e5 1535
1654d593
DM		 1536 TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'o');
1537 TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'(');
1538 TOKEN_GETMAD((ps[(3) - (3)].val.i_tkval),(yyval.opval),')');
f05e27e5 1539 ;}
0de566d7
DM		 1540 break;
1541
7eb971ee
FC		 1542 case 192:
1543#line 1255 "perly.y"
1654d593
DM		 1544 { (yyval.opval) = newUNOP(IVAL((ps[(1) - (4)].val.i_tkval)), 0, (ps[(3) - (4)].val.opval));
1545 TOKEN_GETMAD((ps[(1) - (4)].val.i_tkval),(yyval.opval),'o');
1546 TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'(');
1547 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),')');
f05e27e5 1548 ;}
0de566d7
DM		 1549 break;
1550
7eb971ee
FC		 1551 case 193:
1552#line 1261 "perly.y"
1654d593
DM		 1553 { (yyval.opval) = pmruntime((ps[(1) - (4)].val.opval), (ps[(3) - (4)].val.opval), 1);
1554 TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'(');
1555 TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),')');
f05e27e5 1556 ;}
0de566d7
DM		 1557 break;
1558
7eb971ee
FC		 1559 case 196:
1560#line 1268 "perly.y"
be25f609 1561 {
1562 (yyval.opval) = newLISTOP(OP_DIE, 0, newOP(OP_PUSHMARK, 0),
1563 newSVOP(OP_CONST, 0, newSVpvs("Unimplemented")));
950f2ea2 1564 TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),'X');
be25f609 1565 ;}
1566 break;
1567
7eb971ee
FC		 1568 case 198:
1569#line 1278 "perly.y"
1654d593 1570 { (yyval.opval) = my_attrs((ps[(2) - (3)].val.opval),(ps[(3) - (3)].val.opval));
f05e27e5 1571 DO_MAD(
1654d593
DM		 1572 token_getmad((ps[(1) - (3)].val.i_tkval),(yyval.opval),'d');
1573 append_madprops((ps[(3) - (3)].val.opval)->op_madprop, (yyval.opval), 'a');
1574 (ps[(3) - (3)].val.opval)->op_madprop = 0;
f05e27e5
DM		 1575 )
1576 ;}
0de566d7
DM		 1577 break;
1578
7eb971ee
FC		 1579 case 199:
1580#line 1286 "perly.y"
1654d593
DM		 1581 { (yyval.opval) = localize((ps[(2) - (2)].val.opval),IVAL((ps[(1) - (2)].val.i_tkval)));
1582 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'d');
f05e27e5 1583 ;}
0de566d7
DM		 1584 break;
1585
7eb971ee
FC		 1586 case 200:
1587#line 1293 "perly.y"
1654d593
DM		 1588 { (yyval.opval) = sawparens((ps[(2) - (3)].val.opval));
1589 TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'(');
1590 TOKEN_GETMAD((ps[(3) - (3)].val.i_tkval),(yyval.opval),')');
f05e27e5 1591 ;}
0de566d7
DM		 1592 break;
1593
7eb971ee
FC		 1594 case 201:
1595#line 1298 "perly.y"
f05e27e5 1596 { (yyval.opval) = sawparens(newNULLLIST());
1654d593
DM		 1597 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'(');
1598 TOKEN_GETMAD((ps[(2) - (2)].val.i_tkval),(yyval.opval),')');
f05e27e5 1599 ;}
0de566d7
DM		 1600 break;
1601
78cdf107 1602 case 202:
7eb971ee 1603#line 1303 "perly.y"
8e720305 1604 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
0de566d7
DM		 1605 break;
1606
78cdf107 1607 case 203:
8e720305 1608#line 1305 "perly.y"
7eb971ee 1609 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
2af555bf
DM		 1610 break;
1611
78cdf107 1612 case 204:
8e720305
Z		 1613#line 1307 "perly.y"
1614 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
be25f609 1615 break;
1616
78cdf107 1617 case 205:
7eb971ee 1618#line 1312 "perly.y"
8e720305 1619 { (yyval.opval) = (OP*)NULL; ;}
f20dcd76
VP		 1620 break;
1621
78cdf107 1622 case 206:
7eb971ee 1623#line 1314 "perly.y"
8e720305 1624 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
4098b6bb
JV		 1625 break;
1626
78cdf107 1627 case 207:
7eb971ee
FC		 1628#line 1318 "perly.y"
1629 { (yyval.opval) = (OP*)NULL; ;}
4098b6bb
JV		 1630 break;
1631
78cdf107 1632 case 208:
7eb971ee
FC		 1633#line 1320 "perly.y"
1634 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
ea25a9b2
Z		 1635 break;
1636
78cdf107 1637 case 209:
7eb971ee
FC		 1638#line 1324 "perly.y"
1639 { (yyval.i_tkval) = (ps[(1) - (1)].val.i_tkval); ;}
ea25a9b2
Z		 1640 break;
1641
78cdf107 1642 case 210:
7eb971ee
FC		 1643#line 1326 "perly.y"
1644 { munge_qwlist_to_paren_list((ps[(1) - (1)].val.opval)); ;}
8e720305
Z		 1645 break;
1646
1647 case 211:
7eb971ee
FC		 1648#line 1328 "perly.y"
1649 { (yyval.i_tkval) = (ps[(3) - (3)].val.i_tkval); ;}
1650 break;
1651
1652 case 212:
1653#line 1334 "perly.y"
1654 { PL_parser->in_my = 0; (yyval.opval) = my((ps[(1) - (1)].val.opval)); ;}
1655 break;
1656
1657 case 213:
1658#line 1338 "perly.y"
1654d593
DM		 1659 { (yyval.opval) = newCVREF(IVAL((ps[(1) - (2)].val.i_tkval)),(ps[(2) - (2)].val.opval));
1660 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'&');
f05e27e5 1661 ;}
0de566d7
DM		 1662 break;
1663
7eb971ee
FC		 1664 case 214:
1665#line 1344 "perly.y"
1654d593
DM		 1666 { (yyval.opval) = newSVREF((ps[(2) - (2)].val.opval));
1667 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'$');
f05e27e5 1668 ;}
0de566d7
DM		 1669 break;
1670
7eb971ee
FC		 1671 case 215:
1672#line 1350 "perly.y"
1654d593
DM		 1673 { (yyval.opval) = newAVREF((ps[(2) - (2)].val.opval));
1674 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'@');
f05e27e5 1675 ;}
0de566d7
DM		 1676 break;
1677
7eb971ee
FC		 1678 case 216:
1679#line 1356 "perly.y"
1654d593
DM		 1680 { (yyval.opval) = newHVREF((ps[(2) - (2)].val.opval));
1681 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'%');
f05e27e5 1682 ;}
500bedb6
DM		 1683 break;
1684
7eb971ee
FC		 1685 case 217:
1686#line 1362 "perly.y"
1654d593
DM		 1687 { (yyval.opval) = newAVREF((ps[(2) - (2)].val.opval));
1688 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'l');
f05e27e5 1689 ;}
a72a1c8b
RGS		 1690 break;
1691
7eb971ee
FC		 1692 case 218:
1693#line 1368 "perly.y"
1654d593
DM		 1694 { (yyval.opval) = newGVREF(0,(ps[(2) - (2)].val.opval));
1695 TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'*');
f05e27e5 1696 ;}
a72a1c8b
RGS		 1697 break;
1698
7eb971ee
FC		 1699 case 219:
1700#line 1375 "perly.y"
503de470
DM		 1701 { (yyval.opval) = scalar((ps[(1) - (1)].val.opval)); ;}
1702 break;
1703
7eb971ee
FC		 1704 case 220:
1705#line 1377 "perly.y"
1654d593 1706 { (yyval.opval) = scalar((ps[(1) - (1)].val.opval)); ;}
3cd0a11a
RGS		 1707 break;
1708
7eb971ee
FC		 1709 case 221:
1710#line 1379 "perly.y"
3ad73efd 1711 { (yyval.opval) = op_scope((ps[(1) - (1)].val.opval)); ;}
f05e27e5
DM		 1712 break;
1713
7eb971ee
FC		 1714 case 222:
1715#line 1382 "perly.y"
1654d593 1716 { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
f05e27e5
DM		 1717 break;
1718
4e4da3ac
Z		 1719
1720/* Line 1267 of yacc.c. */
1721
20515881 1722 default: break;
0de566d7 1723
e8fb9efb 1724
c24c946d 1725/* Generated from:
7eb971ee 1726 * 7fb05fb0a9bd3f1c047696941084a07f2d9928ccde2dd343a19d32cf51669760 perly.y
cc49830d 1727 * 738ca60a0b4cb075902435e976a2f393d438e8e6e32ba81e037dd773b75c87b5 regen_perly.pl
c24c946d 1728 * ex: set ro: */
Unnamed repository; edit this file 'description' to name the repository.