| line |
true |
false |
branch |
|
513
|
1223597 |
12007468 |
if (*PL_bufptr == '=') { |
|
515
|
27 |
1223570 |
if (toketype == ANDAND) |
|
517
|
276275 |
947295 |
else if (toketype == OROR) |
|
519
|
505 |
946790 |
else if (toketype == DORDOR) |
|
548
|
54 |
0 |
if (!s) |
|
552
|
54 |
0 |
yywarn(Perl_form(aTHX_ "%s found where operator expected", what), UTF ? SVf_UTF8 : 0); |
|
|
2 |
52 |
yywarn(Perl_form(aTHX_ "%s found where operator expected", what), UTF ? SVf_UTF8 : 0); |
|
|
0 |
2 |
yywarn(Perl_form(aTHX_ "%s found where operator expected", what), UTF ? SVf_UTF8 : 0); |
|
|
51 |
1 |
yywarn(Perl_form(aTHX_ "%s found where operator expected", what), UTF ? SVf_UTF8 : 0); |
|
|
49 |
2 |
yywarn(Perl_form(aTHX_ "%s found where operator expected", what), UTF ? SVf_UTF8 : 0); |
|
553
|
31 |
23 |
if (ckWARN_d(WARN_SYNTAX)) { |
|
554
|
0 |
31 |
if (is_first) |
|
557
|
31 |
0 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
31 |
0 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
31 |
0 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
0 |
31 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
0 |
0 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
31 |
0 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
29 |
2 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
17 |
12 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
1 |
1 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
1 |
0 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
0 |
1 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
0 |
0 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
0 |
0 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
0 |
0 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
|
1 |
0 |
else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) { |
|
559
|
139 |
0 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
139 |
0 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
0 |
139 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
0 |
0 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
139 |
0 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
130 |
9 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
93 |
37 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
5 |
4 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
3 |
2 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
1 |
3 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
1 |
0 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
0 |
1 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
1 |
0 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
3 |
0 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
|
20 |
19 |
for (t = PL_oldoldbufptr; (isWORDCHAR_lazy_if(t,UTF) || *t == ':'); |
|
560
|
120 |
0 |
t += UTF ? UTF8SKIP(t) : 1) |
|
|
0 |
120 |
t += UTF ? UTF8SKIP(t) : 1) |
|
|
0 |
0 |
t += UTF ? UTF8SKIP(t) : 1) |
|
|
120 |
0 |
t += UTF ? UTF8SKIP(t) : 1) |
|
|
7 |
113 |
t += UTF ? UTF8SKIP(t) : 1) |
|
562
|
11 |
8 |
if (t < PL_bufptr && isSPACE(*t)) |
|
|
10 |
1 |
if (t < PL_bufptr && isSPACE(*t)) |
|
563
|
10 |
0 |
Perl_warner(aTHX_ packWARN(WARN_SYNTAX), |
|
|
10 |
0 |
Perl_warner(aTHX_ packWARN(WARN_SYNTAX), |
|
565
|
0 |
10 |
UTF8fARG(UTF, t - PL_oldoldbufptr, PL_oldoldbufptr)); |
|
|
0 |
0 |
UTF8fARG(UTF, t - PL_oldoldbufptr, PL_oldoldbufptr)); |
|
|
8 |
2 |
UTF8fARG(UTF, t - PL_oldoldbufptr, PL_oldoldbufptr)); |
|
569
|
12 |
0 |
Perl_warner(aTHX_ packWARN(WARN_SYNTAX), |
|
|
12 |
0 |
Perl_warner(aTHX_ packWARN(WARN_SYNTAX), |
|
571
|
0 |
12 |
UTF8fARG(UTF, s - oldbp, oldbp)); |
|
|
0 |
0 |
UTF8fARG(UTF, s - oldbp, oldbp)); |
|
|
12 |
0 |
UTF8fARG(UTF, s - oldbp, oldbp)); |
|
592
|
43 |
6 |
if (s) { |
|
594
|
43 |
0 |
if (nl) |
|
597
|
0 |
6 |
else if ((U8) PL_multi_close < 32) { |
|
599
|
0 |
0 |
tmpbuf[1] = (char)toCTRL(PL_multi_close); |
|
608
|
49 |
0 |
q = strchr(s,'"') ? '\'' : '"'; |
|
627
|
1656 |
0 |
if (namelen > MAX_FEATURE_LEN) |
|
715
|
1897818 |
318987 |
if (flags && flags & ~LEX_START_FLAGS) |
|
|
0 |
1897818 |
if (flags && flags & ~LEX_START_FLAGS) |
|
739
|
701779 |
1515026 |
parser->error_count = oparser ? oparser->error_count : 0; |
|
747
|
408307 |
1808498 |
: MUTABLE_AV(SvREFCNT_inc( |
|
|
322449 |
85858 |
: MUTABLE_AV(SvREFCNT_inc( |
|
758
|
1891097 |
325708 |
if (line) { |
|
760
|
1890606 |
491 |
s = SvPV_const(line, len); |
|
763
|
159 |
1890938 |
: newSVpvn_flags(s, len, SvUTF8(line)); |
|
764
|
1891095 |
2 |
sv_catpvn(parser->linestr, "\n;", rsfp ? 1 : 2); |
|
766
|
7063 |
318645 |
parser->linestr = newSVpvn("\n;", rsfp ? 1 : 2); |
|
791
|
22 |
2216783 |
if (PL_parser->lex_flags & LEX_DONT_CLOSE_RSFP) |
|
793
|
727 |
2216056 |
else if (parser->rsfp && (!parser->old_parser || |
|
|
291 |
436 |
else if (parser->rsfp && (!parser->old_parser || |
|
|
291 |
0 |
else if (parser->rsfp && (!parser->old_parser || |
|
816
|
2 |
122626 |
while (nexttoke--) { |
|
827
|
2 |
0 |
if (S_is_opval_token(parser->nexttype[nexttoke] & 0xffff) |
|
828
|
2 |
0 |
&& parser->nextval[nexttoke].opval |
|
829
|
2 |
0 |
&& parser->nextval[nexttoke].opval->op_slabbed |
|
830
|
2 |
0 |
&& OpSLAB(parser->nextval[nexttoke].opval) == slab) { |
|
931
|
0 |
0 |
return UTF; |
|
|
0 |
0 |
return UTF; |
|
|
0 |
0 |
return UTF; |
|
|
0 |
0 |
return UTF; |
|
|
0 |
0 |
return UTF; |
|
960
|
36 |
2 |
if (len <= SvLEN(linestr)) |
|
967
|
0 |
36 |
last_uni_pos = PL_parser->last_uni ? PL_parser->last_uni - buf : 0; |
|
968
|
0 |
36 |
last_lop_pos = PL_parser->last_lop ? PL_parser->last_lop - buf : 0; |
|
969
|
0 |
36 |
re_eval_start_pos = PL_parser->lex_shared->re_eval_start ? |
|
979
|
0 |
36 |
if (PL_parser->last_uni) |
|
981
|
0 |
36 |
if (PL_parser->last_lop) |
|
983
|
0 |
36 |
if (PL_parser->lex_shared->re_eval_start) |
|
1016
|
0 |
2 |
if (flags & ~(LEX_STUFF_UTF8)) |
|
1018
|
2 |
0 |
if (UTF) { |
|
|
0 |
2 |
if (UTF) { |
|
|
0 |
0 |
if (UTF) { |
|
|
2 |
0 |
if (UTF) { |
|
|
0 |
2 |
if (UTF) { |
|
1019
|
0 |
0 |
if (flags & LEX_STUFF_UTF8) { |
|
1024
|
0 |
0 |
for (p = pv; p != e; p++) { |
|
1025
|
0 |
0 |
if (! UTF8_IS_INVARIANT(*p)) { |
|
1029
|
0 |
0 |
if (!highhalf) |
|
1037
|
0 |
0 |
for (p = pv; p != e; p++) { |
|
1039
|
0 |
0 |
if (! UTF8_IS_INVARIANT(c)) { |
|
1048
|
0 |
2 |
if (flags & LEX_STUFF_UTF8) { |
|
1051
|
0 |
0 |
for (p = pv; p != e; p++) { |
|
1053
|
0 |
0 |
if (UTF8_IS_ABOVE_LATIN1(c)) { |
|
1056
|
0 |
0 |
} else if (UTF8_IS_NEXT_CHAR_DOWNGRADEABLE(p, e)) { |
|
|
0 |
0 |
} else if (UTF8_IS_NEXT_CHAR_DOWNGRADEABLE(p, e)) { |
|
|
0 |
0 |
} else if (UTF8_IS_NEXT_CHAR_DOWNGRADEABLE(p, e)) { |
|
1059
|
0 |
0 |
} else if (! UTF8_IS_INVARIANT(c)) { |
|
1068
|
0 |
0 |
if (!highhalf) |
|
1077
|
0 |
0 |
while (p < e) { |
|
1078
|
0 |
0 |
if (UTF8_IS_INVARIANT(*p)) { |
|
1155
|
0 |
0 |
if (flags) |
|
1157
|
0 |
0 |
pv = SvPV(sv, len); |
|
1158
|
0 |
0 |
lex_stuff_pvn(pv, len, flags | (SvUTF8(sv) ? LEX_STUFF_UTF8 : 0)); |
|
1182
|
0 |
0 |
if (ptr < buf) |
|
1184
|
0 |
0 |
if (ptr == buf) |
|
1187
|
0 |
0 |
if (ptr > bufend) |
|
1216
|
20 |
0 |
if (ptr < s || ptr > PL_parser->bufend) |
|
|
20 |
0 |
if (ptr < s || ptr > PL_parser->bufend) |
|
1218
|
82 |
20 |
for (; s != ptr; s++) |
|
1219
|
0 |
82 |
if (*s == '\n') { |
|
1220
|
0 |
0 |
COPLINE_INC_WITH_HERELINES; |
|
1253
|
0 |
0 |
if (ptr < buf) |
|
1255
|
0 |
0 |
if (ptr == buf) |
|
1257
|
0 |
0 |
if (ptr > PL_parser->bufptr) |
|
1260
|
0 |
0 |
if (PL_parser->oldbufptr < ptr) |
|
1262
|
0 |
0 |
if (PL_parser->oldoldbufptr < ptr) |
|
1264
|
0 |
0 |
if (PL_parser->last_uni && PL_parser->last_uni < ptr) |
|
|
0 |
0 |
if (PL_parser->last_uni && PL_parser->last_uni < ptr) |
|
1266
|
0 |
0 |
if (PL_parser->last_lop && PL_parser->last_lop < ptr) |
|
|
0 |
0 |
if (PL_parser->last_lop && PL_parser->last_lop < ptr) |
|
1274
|
0 |
0 |
if (PL_parser->last_uni) |
|
1276
|
0 |
0 |
if (PL_parser->last_lop) |
|
1315
|
0 |
111545641 |
if (flags & ~(LEX_KEEP_PREVIOUS|LEX_FAKE_EOF|LEX_NO_TERM)) |
|
1319
|
108277357 |
3268284 |
if (!(flags & LEX_KEEP_PREVIOUS) && |
|
|
108277357 |
0 |
if (!(flags & LEX_KEEP_PREVIOUS) && |
|
1323
|
108277357 |
0 |
if (PL_parser->last_uni != PL_parser->bufend) |
|
1325
|
108277357 |
0 |
if (PL_parser->last_lop != PL_parser->bufend) |
|
1336
|
433599 |
2834685 |
last_uni_pos = PL_parser->last_uni ? PL_parser->last_uni - buf : 0; |
|
1337
|
301381 |
2966903 |
last_lop_pos = PL_parser->last_lop ? PL_parser->last_lop - buf : 0; |
|
1339
|
111342037 |
203604 |
if (flags & LEX_FAKE_EOF) { |
|
1341
|
52 |
111341985 |
} else if (!PL_parser->rsfp && !PL_parser->filtered) { |
|
|
2 |
50 |
} else if (!PL_parser->rsfp && !PL_parser->filtered) { |
|
1343
|
114417 |
111227565 |
} else if (filter_gets(linestr, old_bufend_pos)) { |
|
1346
|
114327 |
90 |
} else if (flags & LEX_NO_TERM) { |
|
1349
|
7 |
114320 |
if (!SvPOK(linestr)) /* can get undefined by filter_gets */ |
|
1355
|
20 |
317911 |
if (PL_parser->lex_flags & LEX_DONT_CLOSE_RSFP) |
|
1357
|
316607 |
1304 |
else if (PL_parser->rsfp) |
|
1365
|
12002 |
305929 |
if (!PL_in_eval && PL_minus_p) { |
|
|
13 |
11989 |
if (!PL_in_eval && PL_minus_p) { |
|
1369
|
11989 |
305929 |
} else if (!PL_in_eval && PL_minus_n) { |
|
|
45 |
11944 |
} else if (!PL_in_eval && PL_minus_n) { |
|
1383
|
433599 |
111112037 |
if (PL_parser->last_uni) |
|
1385
|
301381 |
111244255 |
if (PL_parser->last_lop) |
|
1387
|
111227565 |
318071 |
if (got_some_for_debugger && (PERLDB_LINE || PERLDB_SAVESRC) && |
|
|
27669969 |
83557596 |
if (got_some_for_debugger && (PERLDB_LINE || PERLDB_SAVESRC) && |
|
|
1410031 |
26259938 |
if (got_some_for_debugger && (PERLDB_LINE || PERLDB_SAVESRC) && |
|
|
520884 |
889147 |
if (got_some_for_debugger && (PERLDB_LINE || PERLDB_SAVESRC) && |
|
1422
|
0 |
268 |
if (flags & ~(LEX_KEEP_PREVIOUS)) |
|
1426
|
268 |
0 |
if (UTF) { |
|
|
0 |
268 |
if (UTF) { |
|
|
0 |
0 |
if (UTF) { |
|
|
268 |
0 |
if (UTF) { |
|
|
0 |
268 |
if (UTF) { |
|
1430
|
0 |
0 |
if (s == bufend) { |
|
1431
|
0 |
0 |
if (!lex_next_chunk(flags)) |
|
1437
|
0 |
0 |
if (UTF8_IS_INVARIANT(head)) |
|
1439
|
0 |
0 |
if (UTF8_IS_START(head)) { |
|
1441
|
0 |
0 |
while ((STRLEN)(bufend-s) < len) { |
|
1442
|
0 |
0 |
if (!lex_next_chunk(flags | LEX_KEEP_PREVIOUS)) |
|
1449
|
0 |
0 |
if (retlen == (STRLEN)-1) { |
|
1459
|
3 |
265 |
if (s == bufend) { |
|
1460
|
0 |
3 |
if (!lex_next_chunk(flags)) |
|
1492
|
0 |
101 |
if (flags & ~(LEX_KEEP_PREVIOUS)) |
|
1495
|
101 |
0 |
if (c != -1) { |
|
1496
|
0 |
101 |
if (c == '\n') |
|
1497
|
0 |
0 |
COPLINE_INC_WITH_HERELINES; |
|
1498
|
101 |
0 |
if (UTF) |
|
|
0 |
101 |
if (UTF) |
|
|
0 |
0 |
if (UTF) |
|
|
101 |
0 |
if (UTF) |
|
|
0 |
101 |
if (UTF) |
|
1532
|
0 |
242871153 |
if (flags & ~(LEX_KEEP_PREVIOUS|LEX_NO_NEXT_CHUNK|LEX_NO_INCLINE)) |
|
1546
|
225513 |
388620541 |
if (c == '#') { |
|
1549
|
225512 |
7624863 |
} while (!(c == '\n' || (c == 0 && s == bufend))); |
|
|
1 |
7624862 |
} while (!(c == '\n' || (c == 0 && s == bufend))); |
|
1550
|
3537929 |
385082612 |
} else if (c == '\n') { |
|
1552
|
419778 |
3118151 |
if (can_incline) { |
|
1554
|
2849399 |
268752 |
if (s == bufend) |
|
1559
|
138943218 |
246139394 |
} else if (isSPACE(c)) { |
|
1561
|
3268295 |
242871099 |
} else if (c == 0 && s == bufend) { |
|
1567
|
3268294 |
1 |
if (flags & LEX_NO_NEXT_CHUNK) |
|
1570
|
2849510 |
418784 |
if (can_incline) COPLINE_INC_WITH_HERELINES; |
|
|
1251 |
2848259 |
if (can_incline) COPLINE_INC_WITH_HERELINES; |
|
1572
|
2849510 |
418784 |
if (can_incline) CopLINE_dec(PL_curcop); |
|
1575
|
3268241 |
53 |
if (!got_more) |
|
1577
|
418731 |
2849510 |
if (can_incline && need_incline && PL_parser->rsfp) { |
|
|
111 |
2849399 |
if (can_incline && need_incline && PL_parser->rsfp) { |
|
|
4557 |
2844842 |
if (can_incline && need_incline && PL_parser->rsfp) { |
|
1615
|
272032 |
0 |
char *p = proto ? SvPV(proto, len) : NULL; |
|
|
272032 |
0 |
char *p = proto ? SvPV(proto, len) : NULL; |
|
1627
|
272032 |
0 |
if (!proto) |
|
1631
|
261995 |
272032 |
for (; len--; p++) { |
|
1632
|
261969 |
26 |
if (!isSPACE(*p)) { |
|
1633
|
52 |
261917 |
if (must_be_last) |
|
1635
|
39 |
261930 |
if (underscore) { |
|
1636
|
9 |
30 |
if (!strchr(";@%", *p)) |
|
1640
|
261932 |
37 |
if (!strchr("$@%*;[]&\\_+", *p) || *p == '\0') { |
|
|
261928 |
4 |
if (!strchr("$@%*;[]&\\_+", *p) || *p == '\0') { |
|
1644
|
260458 |
1470 |
if (*p == '[') |
|
1646
|
258989 |
1469 |
else if (*p == ']') |
|
1648
|
20292 |
238697 |
else if ((*p == '@' || *p == '%') && |
|
|
20108 |
184 |
else if ((*p == '@' || *p == '%') && |
|
1649
|
17181 |
2927 |
!after_slash && |
|
1654
|
16934 |
224874 |
else if (*p == '_') |
|
1657
|
260003 |
1966 |
if (*p == '\\') |
|
1664
|
75667 |
196365 |
if (warn) { |
|
1670
|
2 |
75665 |
: pv_pretty(tmpsv, p, origlen, 60, NULL, NULL, PERL_PV_ESCAPE_NONASCII); |
|
1672
|
19 |
75648 |
if (proto_after_greedy_proto) |
|
1676
|
1 |
75666 |
if (in_brackets) |
|
1680
|
15 |
75652 |
if (bad_proto) |
|
1684
|
4 |
75663 |
if (bad_proto_after_underscore) |
|
1690
|
272008 |
24 |
return (! (proto_after_greedy_proto || bad_proto) ); |
|
|
11 |
271997 |
return (! (proto_after_greedy_proto || bad_proto) ); |
|
1714
|
4452 |
104620874 |
COPLINE_INC_WITH_HERELINES; |
|
1715
|
3805221 |
100820105 |
if (!PL_rsfp && !PL_parser->filtered && PL_lex_state == LEX_NORMAL |
|
|
3805220 |
1 |
if (!PL_rsfp && !PL_parser->filtered && PL_lex_state == LEX_NORMAL |
|
|
3757069 |
48151 |
if (!PL_rsfp && !PL_parser->filtered && PL_lex_state == LEX_NORMAL |
|
1716
|
1821284 |
1935785 |
&& s+1 == PL_bufend && *s == ';') { |
|
|
1821284 |
0 |
&& s+1 == PL_bufend && *s == ';') { |
|
1721
|
4395716 |
98408326 |
if (*s++ != '#') |
|
1723
|
4763939 |
4395716 |
while (SPACE_OR_TAB(*s)) |
|
1725
|
157520 |
4238196 |
if (strnEQ(s, "line", 4)) |
|
1729
|
155150 |
2370 |
if (SPACE_OR_TAB(*s)) |
|
1733
|
71 |
155150 |
while (SPACE_OR_TAB(*s)) |
|
1735
|
154562 |
588 |
if (!isDIGIT(*s)) |
|
1739
|
422159 |
154562 |
while (isDIGIT(*s)) |
|
1741
|
1375 |
153187 |
if (!SPACE_OR_TAB(*s) && *s != '\r' && *s != '\n' && *s != '\0') |
|
|
0 |
1375 |
if (!SPACE_OR_TAB(*s) && *s != '\r' && *s != '\n' && *s != '\0') |
|
|
1374 |
1 |
if (!SPACE_OR_TAB(*s) && *s != '\r' && *s != '\n' && *s != '\0') |
|
|
0 |
1 |
if (!SPACE_OR_TAB(*s) && *s != '\r' && *s != '\n' && *s != '\0') |
|
1743
|
153187 |
154561 |
while (SPACE_OR_TAB(*s)) |
|
1745
|
145884 |
8677 |
if (*s == '"' && (t = strchr(s+1, '"'))) { |
|
|
1 |
145883 |
if (*s == '"' && (t = strchr(s+1, '"'))) { |
|
1751
|
8678 |
120879 |
while (!isSPACE(*t)) |
|
1755
|
4 |
154561 |
while (SPACE_OR_TAB(*e) || *e == '\r' || *e == '\f') |
|
|
0 |
154561 |
while (SPACE_OR_TAB(*e) || *e == '\r' || *e == '\f') |
|
|
0 |
154561 |
while (SPACE_OR_TAB(*e) || *e == '\r' || *e == '\f') |
|
1757
|
154558 |
3 |
if (*e != '\n' && *e != '\0') |
|
1762
|
153182 |
1376 |
if (t - s > 0) { |
|
1765
|
142401 |
10781 |
if (!PL_rsfp && !PL_parser->filtered) { |
|
|
142401 |
0 |
if (!PL_rsfp && !PL_parser->filtered) { |
|
1771
|
142401 |
0 |
if (cfgv) { |
|
1777
|
2 |
142399 |
if (tmplen2 + 2 <= sizeof smallbuf) |
|
1789
|
1073 |
141328 |
if (!isGV(gv2)) { |
|
1796
|
5 |
1068 |
if (CopLINE(PL_curcop) == line_num) { |
|
1800
|
11 |
1057 |
else if (GvAV(cfgv)) { |
|
1804
|
11 |
0 |
if (items > 0) { |
|
1805
|
0 |
11 |
AV * const av2 = GvAVn(gv2); |
|
1808
|
23 |
11 |
while (items--) |
|
1814
|
2 |
142399 |
if (tmpbuf2 != smallbuf) Safefree(tmpbuf2); |
|
1909
|
520950 |
41 |
if (av) { |
|
1911
|
107 |
520843 |
if (orig_sv) |
|
1940
|
365 |
242870797 |
if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) { |
|
|
209 |
156 |
if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) { |
|
1941
|
281 |
0 |
while (s < PL_bufend && SPACE_OR_TAB(*s)) |
|
|
72 |
209 |
while (s < PL_bufend && SPACE_OR_TAB(*s)) |
|
1946
|
241566836 |
1304117 |
lex_read_space(flags | LEX_KEEP_PREVIOUS | |
|
|
241566836 |
0 |
lex_read_space(flags | LEX_KEEP_PREVIOUS | |
|
1951
|
2948452 |
239922501 |
if (PL_linestart > PL_bufptr) |
|
1978
|
48 |
173033 |
if (PL_oldoldbufptr != PL_last_uni) |
|
1980
|
33 |
48 |
while (isSPACE(*PL_last_uni)) |
|
1983
|
206 |
16 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
206 |
0 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
0 |
206 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
0 |
0 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
206 |
0 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
206 |
0 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
174 |
48 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
0 |
0 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
0 |
0 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
0 |
0 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
0 |
0 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
0 |
0 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
0 |
0 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
0 |
0 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
|
0 |
48 |
while (isWORDCHAR_lazy_if(s,UTF) || *s == '-') |
|
1985
|
42 |
6 |
if ((t = strchr(s, '(')) && t < PL_bufptr) |
|
|
0 |
42 |
if ((t = strchr(s, '(')) && t < PL_bufptr) |
|
2025
|
4507640 |
231 |
if (PL_nexttoke) |
|
2028
|
3066649 |
1440991 |
if (*s == '(') |
|
2031
|
3012068 |
54581 |
if (*s == '(') |
|
2035
|
104463 |
2907836 |
if (!PL_lex_allbrackets && PL_lex_fakeeof > LEX_FAKEEOF_LOWLOGIC) |
|
|
8 |
104455 |
if (!PL_lex_allbrackets && PL_lex_fakeeof > LEX_FAKEEOF_LOWLOGIC) |
|
2142
|
127335423 |
3429589 |
if (PL_lex_state != LEX_KNOWNEXT) { |
|
2154
|
39 |
68 |
if (yyc != YYEMPTY) { |
|
2155
|
39 |
0 |
if (yyc) { |
|
2158
|
36 |
3 |
if (yyc == '{'/*}*/ || yyc == HASHBRACK || yyc == '['/*]*/) { |
|
|
1 |
35 |
if (yyc == '{'/*}*/ || yyc == HASHBRACK || yyc == '['/*]*/) { |
|
2162
|
0 |
35 |
} else if (yyc == '('/*)*/) { |
|
2176
|
23721237 |
195451 |
SV * const sv = newSVpvn_utf8(start, len, |
|
|
23721237 |
0 |
SV * const sv = newSVpvn_utf8(start, len, |
|
|
18046 |
23703191 |
SV * const sv = newSVpvn_utf8(start, len, |
|
|
0 |
18046 |
SV * const sv = newSVpvn_utf8(start, len, |
|
|
23702881 |
310 |
SV * const sv = newSVpvn_utf8(start, len, |
|
|
4412 |
23698469 |
SV * const sv = newSVpvn_utf8(start, len, |
|
|
1069 |
21389 |
SV * const sv = newSVpvn_utf8(start, len, |
|
|
0 |
1069 |
SV * const sv = newSVpvn_utf8(start, len, |
|
2212
|
15271757 |
81923 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
15271757 |
0 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
537 |
15271220 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
0 |
537 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
15270921 |
299 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
15268941 |
1980 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
508645 |
14842518 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
2006 |
511 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
27 |
1979 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
8 |
503 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
8 |
0 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
0 |
8 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
0 |
8 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
0 |
503 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
|
65138 |
443534 |
if (isIDFIRST_lazy_if(s,UTF) || |
|
2213
|
1 |
65137 |
(allow_pack && *s == ':') ) |
|
2216
|
1288327 |
13556682 |
if (check_keyword) { |
|
2218
|
774111 |
514216 |
if (allow_pack && len > 6 && strnEQ(s2, "CORE::", 6)) |
|
|
326976 |
447135 |
if (allow_pack && len > 6 && strnEQ(s2, "CORE::", 6)) |
|
|
2 |
326974 |
if (allow_pack && len > 6 && strnEQ(s2, "CORE::", 6)) |
|
2220
|
781259 |
507068 |
if (keyword(s2, len, 0)) |
|
2226
|
6422281 |
7915660 |
if (token == METHOD) { |
|
2228
|
3185776 |
3236505 |
if (*s == '(') |
|
2261
|
563398 |
369005 |
if (s[0]) { |
|
2262
|
446997 |
116401 |
const STRLEN len = s[1] ? strlen(s) : 1; /* s = "\"" see yylex */ |
|
2263
|
563398 |
0 |
OP* const o = (OP*)newSVOP(OP_CONST, 0, newSVpvn_flags(s, len, |
|
|
11 |
563387 |
OP* const o = (OP*)newSVOP(OP_CONST, 0, newSVpvn_flags(s, len, |
|
|
0 |
11 |
OP* const o = (OP*)newSVOP(OP_CONST, 0, newSVpvn_flags(s, len, |
|
|
563387 |
0 |
OP* const o = (OP*)newSVOP(OP_CONST, 0, newSVpvn_flags(s, len, |
|
|
563146 |
241 |
OP* const o = (OP*)newSVOP(OP_CONST, 0, newSVpvn_flags(s, len, |
|
2268
|
563398 |
0 |
if (kind) { |
|
2273
|
454870 |
108528 |
gv_fetchpvn_flags(s, len, |
|
|
454870 |
0 |
gv_fetchpvn_flags(s, len, |
|
|
454870 |
0 |
gv_fetchpvn_flags(s, len, |
|
|
10371 |
553027 |
gv_fetchpvn_flags(s, len, |
|
|
563398 |
0 |
gv_fetchpvn_flags(s, len, |
|
|
11 |
563387 |
gv_fetchpvn_flags(s, len, |
|
|
0 |
11 |
gv_fetchpvn_flags(s, len, |
|
|
563387 |
0 |
gv_fetchpvn_flags(s, len, |
|
|
563146 |
241 |
gv_fetchpvn_flags(s, len, |
|
2299
|
456 |
0 |
const char *start = SvPV_const(sv,len); |
|
2305
|
1351 |
456 |
while (start < end) { |
|
2308
|
18 |
1333 |
if (utf) |
|
2344
|
74 |
2399461 |
if (*d == 'v') |
|
2346
|
96937 |
2302598 |
if (isDIGIT(*d)) { |
|
2347
|
423716 |
202516 |
while (isDIGIT(*d) || *d == '_' || *d == '.') |
|
|
10353 |
192163 |
while (isDIGIT(*d) || *d == '_' || *d == '.') |
|
|
95226 |
96937 |
while (isDIGIT(*d) || *d == '_' || *d == '.') |
|
2355
|
14166 |
82771 |
if (*d == ';' || isSPACE(*d) || *d == '{' || *d == '}' || !*d) { |
|
|
20 |
14146 |
if (*d == ';' || isSPACE(*d) || *d == '{' || *d == '}' || !*d) { |
|
|
20 |
0 |
if (*d == ';' || isSPACE(*d) || *d == '{' || *d == '}' || !*d) { |
|
|
17 |
3 |
if (*d == ';' || isSPACE(*d) || *d == '{' || *d == '}' || !*d) { |
|
|
0 |
17 |
if (*d == ';' || isSPACE(*d) || *d == '{' || *d == '}' || !*d) { |
|
2368
|
456 |
96464 |
if (SvPOK(ver) && !SvNIOK(ver)) { |
|
|
0 |
456 |
if (SvPOK(ver) && !SvNIOK(ver)) { |
|
2374
|
17 |
0 |
else if (guessing) { |
|
2418
|
0 |
364021 |
while (isSPACE(*s)) /* leading whitespace */ |
|
2421
|
44 |
363977 |
if (is_STRICT_VERSION(s,&errstr)) { |
|
2426
|
75 |
363902 |
else if ( (*s != ';' && *s != '{' && *s != '}' ) && |
|
|
64 |
0 |
else if ( (*s != ';' && *s != '{' && *s != '}' ) && |
|
2427
|
0 |
64 |
(s = SKIPSPACE1(s), (*s != ';' && *s != '{' && *s != '}' ))) |
|
2430
|
64 |
0 |
if (errstr) |
|
2470
|
23996461 |
0 |
if (!SvLEN(sv)) |
|
2473
|
23996461 |
0 |
s = SvPV_force(sv, len); |
|
2474
|
19444031 |
4552430 |
if (SvTYPE(sv) >= SVt_PVIV && SvIVX(sv) == -1) |
|
|
19332230 |
111801 |
if (SvTYPE(sv) >= SVt_PVIV && SvIVX(sv) == -1) |
|
2478
|
192827065 |
23777405 |
while (s < send && !(*s == '\\' && s[1] == '\\')) |
|
|
192344002 |
483063 |
while (s < send && !(*s == '\\' && s[1] == '\\')) |
|
|
375808 |
107255 |
while (s < send && !(*s == '\\' && s[1] == '\\')) |
|
2480
|
107255 |
23777405 |
if (s == send) |
|
2483
|
0 |
107255 |
if ( PL_hints & HINT_NEW_STRING ) { |
|
2486
|
614417 |
107255 |
while (s < send) { |
|
2487
|
130135 |
484282 |
if (*s == '\\') { |
|
2488
|
130135 |
0 |
if (s + 1 < send && (s[1] == '\\')) |
|
|
119240 |
10895 |
if (s + 1 < send && (s[1] == '\\')) |
|
2496
|
2 |
23996459 |
if ( PL_hints & HINT_NEW_STRING ) |
|
2535
|
46960 |
27309507 |
if (op_type == OP_NULL) { |
|
2540
|
19444022 |
7865485 |
if (op_type == OP_CONST || op_type == OP_READLINE) { |
|
2543
|
19444021 |
1 |
if (SvTYPE(sv) == SVt_PVIV) { |
|
2546
|
19444021 |
0 |
const char * const p = SvPV_const(sv, len); |
|
2554
|
0 |
19444022 |
if (op_type == OP_READLINE) |
|
2558
|
38512 |
7826973 |
else if (op_type == OP_BACKTICK && PL_lex_op) { |
|
|
4 |
38508 |
else if (op_type == OP_BACKTICK && PL_lex_op) { |
|
2573
|
2510669 |
5354812 |
if (PL_lex_op) { |
|
2614
|
67618 |
7797863 |
if (is_heredoc) |
|
2647
|
827063 |
7038418 |
if (PL_lex_repl) SAVEFREESV(PL_lex_repl); |
|
2659
|
67618 |
7797863 |
if (is_heredoc) |
|
2666
|
7797863 |
67618 |
if (!is_heredoc && PL_multi_start != PL_multi_end) { |
|
|
144708 |
7653155 |
if (!is_heredoc && PL_multi_start != PL_multi_end) { |
|
2672
|
14 |
7865467 |
if (PL_lex_inwhat == OP_TRANSR) PL_lex_inwhat = OP_TRANS; |
|
2673
|
2452624 |
5412857 |
if (PL_lex_inwhat == OP_MATCH || PL_lex_inwhat == OP_QR || PL_lex_inwhat == OP_SUBST) |
|
2693
|
380504 |
8708655 |
if (!PL_lex_starts++) { |
|
2695
|
1 |
380503 |
if (SvUTF8(PL_linestr)) |
|
2702
|
16231 |
8692424 |
if (PL_lex_casemods) { /* oops, we've got some unbalanced parens */ |
|
2709
|
827053 |
7865371 |
if (PL_lex_repl && (PL_lex_inwhat == OP_SUBST || PL_lex_inwhat == OP_TRANS)) { |
|
|
827053 |
0 |
if (PL_lex_repl && (PL_lex_inwhat == OP_SUBST || PL_lex_inwhat == OP_TRANS)) { |
|
2722
|
89844 |
737209 |
if (SvEVALED(PL_lex_repl)) { |
|
2734
|
14682 |
812371 |
if (SvTYPE(PL_linestr) >= SVt_PVNV) { |
|
2773
|
1289 |
0 |
SV* res = newSVpvn_flags(s, e - s, UTF ? SVf_UTF8 : 0); |
|
|
11 |
1278 |
SV* res = newSVpvn_flags(s, e - s, UTF ? SVf_UTF8 : 0); |
|
|
0 |
11 |
SV* res = newSVpvn_flags(s, e - s, UTF ? SVf_UTF8 : 0); |
|
|
1278 |
0 |
SV* res = newSVpvn_flags(s, e - s, UTF ? SVf_UTF8 : 0); |
|
|
1240 |
38 |
SV* res = newSVpvn_flags(s, e - s, UTF ? SVf_UTF8 : 0); |
|
2785
|
1289 |
0 |
if (UTF && ! is_utf8_string_loc((U8 *) backslash_ptr, |
|
|
11 |
1278 |
if (UTF && ! is_utf8_string_loc((U8 *) backslash_ptr, |
|
|
0 |
11 |
if (UTF && ! is_utf8_string_loc((U8 *) backslash_ptr, |
|
|
1278 |
0 |
if (UTF && ! is_utf8_string_loc((U8 *) backslash_ptr, |
|
|
38 |
1240 |
if (UTF && ! is_utf8_string_loc((U8 *) backslash_ptr, |
|
|
1 |
48 |
if (UTF && ! is_utf8_string_loc((U8 *) backslash_ptr, |
|
2807
|
55 |
1231 |
if (! SvPOK(res)) { |
|
2817
|
1229 |
2 |
if (cvp && (cv = *cvp) && SvROK(cv) && ((rv = SvRV(cv)) != NULL) |
|
|
1229 |
0 |
if (cvp && (cv = *cvp) && SvROK(cv) && ((rv = SvRV(cv)) != NULL) |
|
|
1228 |
1 |
if (cvp && (cv = *cvp) && SvROK(cv) && ((rv = SvRV(cv)) != NULL) |
|
|
1228 |
0 |
if (cvp && (cv = *cvp) && SvROK(cv) && ((rv = SvRV(cv)) != NULL) |
|
2818
|
1227 |
1 |
&& SvTYPE(rv) == SVt_PVCV && ((stash = CvSTASH(rv)) != NULL)) |
|
|
1227 |
0 |
&& SvTYPE(rv) == SVt_PVCV && ((stash = CvSTASH(rv)) != NULL)) |
|
2820
|
1227 |
0 |
const char * const name = HvNAME(stash); |
|
|
1227 |
0 |
const char * const name = HvNAME(stash); |
|
|
0 |
1227 |
const char * const name = HvNAME(stash); |
|
|
0 |
0 |
const char * const name = HvNAME(stash); |
|
|
1227 |
0 |
const char * const name = HvNAME(stash); |
|
|
0 |
1227 |
const char * const name = HvNAME(stash); |
|
2821
|
46 |
1181 |
if strEQ(name, "_charnames") { |
|
2834
|
50 |
0 |
if (! UTF) { |
|
|
4 |
46 |
if (! UTF) { |
|
|
0 |
4 |
if (! UTF) { |
|
|
46 |
0 |
if (! UTF) { |
|
|
36 |
10 |
if (! UTF) { |
|
2835
|
35 |
1 |
if (! isALPHAU(*s)) { |
|
2839
|
231 |
32 |
while (s < e) { |
|
2840
|
229 |
2 |
if (! isCHARNAME_CONT(*s)) { |
|
2843
|
19 |
210 |
if (*s == ' ' && *(s-1) == ' ' && ckWARN_d(WARN_DEPRECATED)) { |
|
|
4 |
15 |
if (*s == ' ' && *(s-1) == ' ' && ckWARN_d(WARN_DEPRECATED)) { |
|
|
3 |
1 |
if (*s == ' ' && *(s-1) == ' ' && ckWARN_d(WARN_DEPRECATED)) { |
|
2850
|
4 |
28 |
if (*(s-1) == ' ' && ckWARN_d(WARN_DEPRECATED)) { |
|
|
3 |
1 |
if (*(s-1) == ' ' && ckWARN_d(WARN_DEPRECATED)) { |
|
2860
|
12 |
2 |
if (UTF8_IS_INVARIANT(*s)) { |
|
2861
|
11 |
1 |
if (! isALPHAU(*s)) { |
|
2865
|
0 |
2 |
} else if (UTF8_IS_DOWNGRADEABLE_START(*s)) { |
|
2866
|
0 |
0 |
if (! isALPHAU(TWO_BYTE_UTF8_TO_NATIVE(*s, *(s+1)))) { |
|
|
0 |
0 |
if (! isALPHAU(TWO_BYTE_UTF8_TO_NATIVE(*s, *(s+1)))) { |
|
2872
|
1 |
1 |
if (! PL_utf8_charname_begin) { |
|
2879
|
1 |
1 |
if (! swash_fetch(PL_utf8_charname_begin, (U8 *) s, TRUE)) { |
|
2885
|
122 |
8 |
while (s < e) { |
|
2886
|
119 |
3 |
if (UTF8_IS_INVARIANT(*s)) { |
|
2887
|
118 |
1 |
if (! isCHARNAME_CONT(*s)) { |
|
2890
|
23 |
95 |
if (*s == ' ' && *(s-1) == ' ' |
|
|
4 |
19 |
if (*s == ' ' && *(s-1) == ' ' |
|
2891
|
3 |
1 |
&& ckWARN_d(WARN_DEPRECATED)) { |
|
2898
|
1 |
2 |
else if (UTF8_IS_DOWNGRADEABLE_START(*s)) { |
|
2899
|
1 |
0 |
if (! isCHARNAME_CONT(TWO_BYTE_UTF8_TO_NATIVE(*s, *(s+1)))) |
|
|
0 |
1 |
if (! isCHARNAME_CONT(TWO_BYTE_UTF8_TO_NATIVE(*s, *(s+1)))) |
|
2906
|
1 |
1 |
if (! PL_utf8_charname_continue) { |
|
2913
|
1 |
1 |
if (! swash_fetch(PL_utf8_charname_continue, (U8 *) s, TRUE)) { |
|
2919
|
4 |
4 |
if (*(s-1) == ' ' && ckWARN_d(WARN_DEPRECATED)) { |
|
|
3 |
1 |
if (*(s-1) == ' ' && ckWARN_d(WARN_DEPRECATED)) { |
|
2926
|
8 |
30 |
if (SvUTF8(res)) { /* Don't accept malformed input */ |
|
2929
|
8 |
0 |
const char* const str = SvPV_const(res, len); |
|
2930
|
1 |
7 |
if (! is_utf8_string_loc((U8 *) str, len, &first_bad_char_loc)) { |
|
2954
|
8 |
0 |
int bad_char_size = ((UTF) ? UTF8SKIP(s) : 1); |
|
|
3 |
5 |
int bad_char_size = ((UTF) ? UTF8SKIP(s) : 1); |
|
|
0 |
3 |
int bad_char_size = ((UTF) ? UTF8SKIP(s) : 1); |
|
|
5 |
0 |
int bad_char_size = ((UTF) ? UTF8SKIP(s) : 1); |
|
|
2 |
3 |
int bad_char_size = ((UTF) ? UTF8SKIP(s) : 1); |
|
2958
|
8 |
0 |
yyerror_pv( |
|
|
3 |
5 |
yyerror_pv( |
|
|
0 |
3 |
yyerror_pv( |
|
|
5 |
0 |
yyerror_pv( |
|
|
3 |
2 |
yyerror_pv( |
|
3071
|
11763320 |
0 |
bool this_utf8 = cBOOL(UTF); /* Is the source string assumed |
|
|
19643 |
11743677 |
bool this_utf8 = cBOOL(UTF); /* Is the source string assumed |
|
|
0 |
19643 |
bool this_utf8 = cBOOL(UTF); /* Is the source string assumed |
|
|
11740505 |
3172 |
bool this_utf8 = cBOOL(UTF); /* Is the source string assumed |
|
|
11738490 |
2015 |
bool this_utf8 = cBOOL(UTF); /* Is the source string assumed |
|
3101
|
72125 |
11691195 |
if (PL_lex_inwhat == OP_TRANS && PL_sublex_info.sub_op) { |
|
|
72125 |
0 |
if (PL_lex_inwhat == OP_TRANS && PL_sublex_info.sub_op) { |
|
3104
|
14087 |
58038 |
this_utf8 = PL_sublex_info.sub_op->op_private & (PL_lex_repl ? OPpTRANS_FROM_UTF : OPpTRANS_TO_UTF); |
|
3111
|
121828279 |
6883727 |
while (s < send || dorange) { |
|
|
16216 |
6867511 |
while (s < send || dorange) { |
|
3114
|
171883 |
121672612 |
if (PL_lex_inwhat == OP_TRANS) { |
|
3116
|
30304 |
141579 |
if (dorange) { |
|
3125
|
4 |
30300 |
if (has_utf8 |
|
3132
|
9 |
4 |
while (e-- > c) |
|
3151
|
30300 |
0 |
SvGROW(sv, SvLEN(sv) + 256); /* never more than 256 chars in a range */ |
|
|
30300 |
0 |
SvGROW(sv, SvLEN(sv) + 256); /* never more than 256 chars in a range */ |
|
3180
|
30297 |
3 |
if (min > max) { |
|
3198
|
1376197 |
30297 |
for (i = min; i <= max; i++) |
|
3227
|
34627 |
106952 |
else if (*s == '-' && s+1 < send && s != start) { |
|
|
30350 |
4277 |
else if (*s == '-' && s+1 < send && s != start) { |
|
3228
|
3 |
30347 |
if (didrange) { |
|
3231
|
43 |
30304 |
if (has_utf8 |
|
3254
|
1061325 |
120611287 |
else if (*s == '[' && PL_lex_inpat && !in_charclass) { |
|
|
981102 |
80223 |
else if (*s == '[' && PL_lex_inpat && !in_charclass) { |
|
|
945659 |
35443 |
else if (*s == '[' && PL_lex_inpat && !in_charclass) { |
|
3257
|
857880 |
108655 |
while (s1 >= start && *s1-- == '\\') |
|
|
20876 |
837004 |
while (s1 >= start && *s1-- == '\\') |
|
3259
|
945575 |
84 |
if (!esc) |
|
3263
|
1058019 |
119668934 |
else if (*s == ']' && PL_lex_inpat && in_charclass) { |
|
|
978910 |
79109 |
else if (*s == ']' && PL_lex_inpat && in_charclass) { |
|
|
943212 |
35698 |
else if (*s == ']' && PL_lex_inpat && in_charclass) { |
|
3266
|
1049682 |
0 |
while (s1 >= start && *s1-- == '\\') |
|
|
106470 |
943212 |
while (s1 >= start && *s1-- == '\\') |
|
3268
|
943128 |
84 |
if (!esc) |
|
3276
|
1919997 |
117863744 |
else if (*s == '(' && PL_lex_inpat && s[1] == '?' && !in_charclass) { |
|
|
1394082 |
525915 |
else if (*s == '(' && PL_lex_inpat && s[1] == '?' && !in_charclass) { |
|
|
409673 |
984409 |
else if (*s == '(' && PL_lex_inpat && s[1] == '?' && !in_charclass) { |
|
|
409473 |
200 |
else if (*s == '(' && PL_lex_inpat && s[1] == '?' && !in_charclass) { |
|
3277
|
220 |
409253 |
if (s[2] == '#') { |
|
3278
|
1510 |
14 |
while (s+1 < send && *s != ')') |
|
|
1304 |
206 |
while (s+1 < send && *s != ')') |
|
3281
|
409235 |
18 |
else if (!PL_lex_casemods && |
|
|
408027 |
1208 |
else if (!PL_lex_casemods && |
|
3283
|
4367 |
403660 |
|| (s[2] == '?' && s[3] == '{'))) |
|
|
0 |
4367 |
|| (s[2] == '?' && s[3] == '{'))) |
|
3290
|
248674 |
119125594 |
else if (*s == '#' && PL_lex_inpat && !in_charclass && |
|
|
125749 |
122925 |
else if (*s == '#' && PL_lex_inpat && !in_charclass && |
|
|
123308 |
2441 |
else if (*s == '#' && PL_lex_inpat && !in_charclass && |
|
|
108412 |
14896 |
else if (*s == '#' && PL_lex_inpat && !in_charclass && |
|
3292
|
2358381 |
578 |
while (s+1 < send && *s != '\n') |
|
|
2250547 |
107834 |
while (s+1 < send && *s != '\n') |
|
3297
|
28411109 |
90854747 |
else if (PL_lex_inpat && SvIVX(PL_linestr) == '\'') |
|
|
28025769 |
385340 |
else if (PL_lex_inpat && SvIVX(PL_linestr) == '\'') |
|
3303
|
137483 |
118743033 |
else if (*s == '@' && s[1]) { |
|
|
128031 |
9452 |
else if (*s == '@' && s[1]) { |
|
3304
|
127544 |
487 |
if (isWORDCHAR_lazy_if(s+1,UTF)) |
|
|
127544 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) |
|
|
5 |
127539 |
if (isWORDCHAR_lazy_if(s+1,UTF)) |
|
|
0 |
5 |
if (isWORDCHAR_lazy_if(s+1,UTF)) |
|
|
127539 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) |
|
|
127526 |
13 |
if (isWORDCHAR_lazy_if(s+1,UTF)) |
|
|
18 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) |
|
|
0 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) |
|
|
0 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) |
|
|
0 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) |
|
|
33730 |
94301 |
if (isWORDCHAR_lazy_if(s+1,UTF)) |
|
3306
|
19541 |
14189 |
if (strchr(":'{$", s[1])) |
|
3308
|
1649 |
17892 |
if (!PL_lex_inpat && (s[1] == '+' || s[1] == '-')) |
|
|
1594 |
55 |
if (!PL_lex_inpat && (s[1] == '+' || s[1] == '-')) |
|
3315
|
5253621 |
113498864 |
else if (*s == '$') { |
|
3316
|
784268 |
4469353 |
if (!PL_lex_inpat) /* not a regexp, so $ must be var */ |
|
3318
|
247786 |
536482 |
if (s + 1 < send && !strchr("()| \r\n\t", s[1])) { |
|
|
209978 |
37808 |
if (s + 1 < send && !strchr("()| \r\n\t", s[1])) { |
|
3319
|
6 |
209972 |
if (s[1] == '\\') { |
|
3330
|
22577959 |
94057395 |
if (*s == '\\' && s+1 < send) { |
|
|
22575624 |
2335 |
if (*s == '\\' && s+1 < send) { |
|
3337
|
1331540 |
21244084 |
if (PL_lex_inwhat == OP_SUBST && !PL_lex_inpat && |
|
|
202462 |
1129078 |
if (PL_lex_inwhat == OP_SUBST && !PL_lex_inpat && |
|
|
2424 |
200038 |
if (PL_lex_inwhat == OP_SUBST && !PL_lex_inpat && |
|
3338
|
296 |
2128 |
isDIGIT(*s) && *s != '0' && !isDIGIT(s[1])) |
|
|
5 |
291 |
isDIGIT(*s) && *s != '0' && !isDIGIT(s[1])) |
|
3346
|
22548421 |
27198 |
if (PL_lex_inwhat != OP_TRANS && *s && strchr("lLuUEQF", *s)) { |
|
|
22548420 |
1 |
if (PL_lex_inwhat != OP_TRANS && *s && strchr("lLuUEQF", *s)) { |
|
|
102293 |
22446127 |
if (PL_lex_inwhat != OP_TRANS && *s && strchr("lLuUEQF", *s)) { |
|
3363
|
2989742 |
19483584 |
else if (PL_lex_inpat |
|
3364
|
534 |
2989208 |
&& (*s != 'N' |
|
3365
|
295 |
239 |
|| s[1] != '{' |
|
3366
|
2 |
293 |
|| regcurly(s + 1, FALSE))) |
|
3376
|
266 |
2387 |
if (PL_lex_inwhat == OP_TRANS) { |
|
3383
|
5 |
860916 |
if ((isALPHANUMERIC(*s))) |
|
3399
|
136135 |
25832 |
if (len < 3 && s < send && isDIGIT(*s) |
|
|
0 |
136135 |
if (len < 3 && s < send && isDIGIT(*s) |
|
3400
|
0 |
0 |
&& ckWARN(WARN_MISC)) |
|
3413
|
32 |
0 |
bool valid = grok_bslash_o(&s, &uv, &error, |
|
|
0 |
32 |
bool valid = grok_bslash_o(&s, &uv, &error, |
|
|
0 |
0 |
bool valid = grok_bslash_o(&s, &uv, &error, |
|
|
32 |
0 |
bool valid = grok_bslash_o(&s, &uv, &error, |
|
|
32 |
0 |
bool valid = grok_bslash_o(&s, &uv, &error, |
|
3419
|
25 |
5 |
if (! valid) { |
|
3437
|
21 |
16544553 |
if (! valid) { |
|
3450
|
568317 |
16138208 |
if (!NATIVE_IS_INVARIANT(uv)) { |
|
3451
|
550038 |
18279 |
if (!has_utf8 && uv > 255) { |
|
|
132216 |
417822 |
if (!has_utf8 && uv > 255) { |
|
3460
|
132216 |
0 |
sv_utf8_upgrade_flags_grow(sv, |
|
|
100897 |
31319 |
sv_utf8_upgrade_flags_grow(sv, |
|
|
34391 |
66506 |
sv_utf8_upgrade_flags_grow(sv, |
|
|
10 |
34381 |
sv_utf8_upgrade_flags_grow(sv, |
|
|
9 |
1 |
sv_utf8_upgrade_flags_grow(sv, |
|
|
9 |
0 |
sv_utf8_upgrade_flags_grow(sv, |
|
|
3 |
6 |
sv_utf8_upgrade_flags_grow(sv, |
|
3467
|
150495 |
417822 |
if (has_utf8) { |
|
3469
|
76 |
150419 |
if (PL_lex_inwhat == OP_TRANS && |
|
|
76 |
0 |
if (PL_lex_inwhat == OP_TRANS && |
|
3471
|
34 |
42 |
PL_sublex_info.sub_op->op_private |= |
|
3516
|
21 |
1569 |
if (*s != '{') { |
|
3523
|
28 |
1541 |
if (! (e = strchr(s, '}'))) { |
|
3524
|
21 |
7 |
if (! PL_lex_inpat) { |
|
3534
|
255 |
1286 |
if (*s == 'U' && s[1] == '+') { /* \N{U+...} */ |
|
|
252 |
3 |
if (*s == 'U' && s[1] == '+') { /* \N{U+...} */ |
|
3544
|
183 |
41 |
if (len == 0 || len != (STRLEN)(e - s)) { |
|
|
0 |
183 |
if (len == 0 || len != (STRLEN)(e - s)) { |
|
3550
|
142 |
41 |
if (PL_lex_inpat) { |
|
3575
|
28 |
13 |
if (! has_utf8) { |
|
3580
|
28 |
0 |
sv_utf8_upgrade_flags_grow( |
|
|
12 |
16 |
sv_utf8_upgrade_flags_grow( |
|
|
2 |
10 |
sv_utf8_upgrade_flags_grow( |
|
|
0 |
2 |
sv_utf8_upgrade_flags_grow( |
|
|
0 |
0 |
sv_utf8_upgrade_flags_grow( |
|
|
0 |
0 |
sv_utf8_upgrade_flags_grow( |
|
|
0 |
0 |
sv_utf8_upgrade_flags_grow( |
|
3589
|
4 |
37 |
if (UNI_IS_INVARIANT(uv)) { |
|
3598
|
1218 |
65 |
if ((res = get_and_check_backslash_N_name(s, e))) |
|
3601
|
1218 |
0 |
const char *str = SvPV_const(res, len); |
|
3602
|
86 |
1132 |
if (PL_lex_inpat) { |
|
3604
|
6 |
80 |
if (! len) { /* The name resolved to an empty string */ |
|
3618
|
11 |
69 |
if (! SvUTF8(res)) { |
|
3624
|
11 |
0 |
d = off + SvGROW(sv, off |
|
|
7 |
4 |
d = off + SvGROW(sv, off |
|
3631
|
785 |
11 |
while (str < str_end) { |
|
3633
|
0 |
785 |
my_snprintf(hex_string, sizeof(hex_string), |
|
3661
|
0 |
69 |
my_snprintf(hex_string, sizeof(hex_string), |
|
3666
|
69 |
0 |
d = off + SvGROW(sv, off |
|
|
0 |
69 |
d = off + SvGROW(sv, off |
|
3676
|
2 |
69 |
while ((str += char_length) < str_end) { |
|
3683
|
0 |
2 |
my_snprintf(hex_string, |
|
3688
|
2 |
0 |
d = off + SvGROW(sv, off |
|
|
0 |
2 |
d = off + SvGROW(sv, off |
|
3707
|
1116 |
16 |
if (! has_utf8) { |
|
3717
|
0 |
16 |
} else if (len > (STRLEN)(e - s + 4)) { /* I _guess_ 4 is \N{} --jhi */ |
|
3722
|
0 |
0 |
d = off + SvGROW(sv, off + len + (STRLEN)(send - s) + 1); |
|
|
0 |
0 |
d = off + SvGROW(sv, off + len + (STRLEN)(send - s) + 1); |
|
3741
|
116612 |
21 |
if (s < send) { |
|
3784
|
29411 |
98266027 |
if (! NATIVE_IS_INVARIANT((U8)(*s)) && (this_utf8 || has_utf8)) { |
|
|
7546 |
21865 |
if (! NATIVE_IS_INVARIANT((U8)(*s)) && (this_utf8 || has_utf8)) { |
|
|
2 |
7544 |
if (! NATIVE_IS_INVARIANT((U8)(*s)) && (this_utf8 || has_utf8)) { |
|
3797
|
21865 |
2 |
: (UV) ((U8) *s); |
|
3798
|
21863 |
4 |
const STRLEN need = UNISKIP(nextuv); |
|
|
12123 |
9740 |
const STRLEN need = UNISKIP(nextuv); |
|
|
716 |
11407 |
const STRLEN need = UNISKIP(nextuv); |
|
|
0 |
716 |
const STRLEN need = UNISKIP(nextuv); |
|
|
0 |
0 |
const STRLEN need = UNISKIP(nextuv); |
|
|
0 |
0 |
const STRLEN need = UNISKIP(nextuv); |
|
|
0 |
0 |
const STRLEN need = UNISKIP(nextuv); |
|
3799
|
19159 |
2708 |
if (!has_utf8) { |
|
3809
|
2 |
2706 |
} else if (need > len) { |
|
3814
|
2 |
0 |
d = SvGROW(sv, off + need + (STRLEN)(send - s) + 1) + off; |
|
|
0 |
2 |
d = SvGROW(sv, off + need + (STRLEN)(send - s) + 1) + off; |
|
3832
|
0 |
11763256 |
if (SvCUR(sv) >= SvLEN(sv)) |
|
3837
|
528 |
11762728 |
if (PL_encoding && !has_utf8) { |
|
|
366 |
162 |
if (PL_encoding && !has_utf8) { |
|
3839
|
366 |
0 |
if (SvUTF8(sv)) |
|
3842
|
152950 |
11610306 |
if (has_utf8) { |
|
3844
|
108 |
152842 |
if (PL_lex_inwhat == OP_TRANS && PL_sublex_info.sub_op) { |
|
|
108 |
0 |
if (PL_lex_inwhat == OP_TRANS && PL_sublex_info.sub_op) { |
|
3845
|
55 |
53 |
PL_sublex_info.sub_op->op_private |= |
|
3851
|
10836970 |
926286 |
if (SvCUR(sv) + 5 < SvLEN(sv)) { |
|
3856
|
10368833 |
1394423 |
if (s > PL_bufptr) { |
|
3858
|
175690247 |
10368833 |
for (; s2 < s; s2++) { |
|
3859
|
841305 |
174848942 |
if (*s2 == '\n') |
|
3860
|
1 |
841304 |
COPLINE_INC_WITH_HERELINES; |
|
3863
|
7851587 |
2517246 |
if ( (PL_hints & ( PL_lex_inpat ? HINT_NEW_RE : HINT_NEW_STRING )) |
|
|
59 |
10368774 |
if ( (PL_hints & ( PL_lex_inpat ? HINT_NEW_RE : HINT_NEW_STRING )) |
|
3864
|
43 |
16 |
&& ! PL_parser->lex_re_reparsing) |
|
3866
|
6 |
37 |
const char *const key = PL_lex_inpat ? "qr" : "q"; |
|
3867
|
6 |
37 |
const STRLEN keylen = PL_lex_inpat ? 2 : 1; |
|
3871
|
41 |
2 |
if (PL_lex_inwhat == OP_TRANS) { |
|
3874
|
2 |
39 |
} else if (PL_lex_inwhat == OP_SUBST && !PL_lex_inpat) { |
|
|
0 |
2 |
} else if (PL_lex_inwhat == OP_SUBST && !PL_lex_inpat) { |
|
3877
|
37 |
2 |
} else if (PL_lex_inpat && SvIVX(PL_linestr) == '\'') { |
|
|
35 |
2 |
} else if (PL_lex_inpat && SvIVX(PL_linestr) == '\'') { |
|
3922
|
12202888 |
58098646 |
if (PL_lex_brackets) |
|
3924
|
475333 |
11727555 |
if (*s == '-' && s[1] == '>' && (s[2] == '[' || s[2] == '{')) |
|
|
422752 |
52581 |
if (*s == '-' && s[1] == '>' && (s[2] == '[' || s[2] == '{')) |
|
|
56910 |
365842 |
if (*s == '-' && s[1] == '>' && (s[2] == '[' || s[2] == '{')) |
|
3926
|
781091 |
11055955 |
if (*s != '{' && *s != '[') |
|
3928
|
10413 |
770678 |
if (!PL_lex_inpat) |
|
3932
|
6987 |
3426 |
if (*s == '{') { |
|
3933
|
3971 |
3016 |
if (regcurly(s, FALSE)) { |
|
3942
|
3396 |
30 |
if (*s == ']' || *s == '^') |
|
3952
|
3396 |
0 |
if (!send) /* has to be an expression */ |
|
3956
|
3226 |
170 |
if (*s == '$') |
|
3958
|
2958 |
268 |
else if (isDIGIT(*s)) { |
|
3959
|
0 |
2958 |
if (s[1] != ']') { |
|
3960
|
0 |
0 |
if (isDIGIT(s[1]) && s[2] == ']') |
|
|
0 |
0 |
if (isDIGIT(s[1]) && s[2] == ']') |
|
3968
|
5010 |
3396 |
for (; s < send; s++) { |
|
3976
|
170 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) { |
|
|
170 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) { |
|
|
0 |
170 |
if (isWORDCHAR_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) { |
|
|
170 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) { |
|
|
170 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) { |
|
|
0 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) { |
|
|
170 |
0 |
if (isWORDCHAR_lazy_if(s+1,UTF)) { |
|
3980
|
164 |
6 |
if (len > 1 && gv_fetchpvn_flags(tmpbuf, len, |
|
|
164 |
0 |
if (len > 1 && gv_fetchpvn_flags(tmpbuf, len, |
|
|
0 |
164 |
if (len > 1 && gv_fetchpvn_flags(tmpbuf, len, |
|
|
0 |
0 |
if (len > 1 && gv_fetchpvn_flags(tmpbuf, len, |
|
|
164 |
0 |
if (len > 1 && gv_fetchpvn_flags(tmpbuf, len, |
|
|
164 |
0 |
if (len > 1 && gv_fetchpvn_flags(tmpbuf, len, |
|
|
0 |
164 |
if (len > 1 && gv_fetchpvn_flags(tmpbuf, len, |
|
3986
|
0 |
0 |
else if (*s == '$' && s[1] && |
|
|
0 |
0 |
else if (*s == '$' && s[1] && |
|
|
0 |
0 |
else if (*s == '$' && s[1] && |
|
3988
|
0 |
0 |
if (/*{*/ strchr("])} =",s[2])) |
|
3996
|
522 |
0 |
if (s[1]) { |
|
3997
|
2 |
520 |
if (strchr("wds]",s[1])) |
|
3999
|
520 |
0 |
else if (seen[(U8)'\''] || seen[(U8)'"']) |
|
|
0 |
520 |
else if (seen[(U8)'\''] || seen[(U8)'"']) |
|
4001
|
0 |
520 |
else if (strchr("rnftbxcav",s[1])) |
|
4003
|
0 |
520 |
else if (isDIGIT(s[1])) { |
|
4005
|
0 |
0 |
while (s[1] && isDIGIT(s[1])) |
|
|
0 |
0 |
while (s[1] && isDIGIT(s[1])) |
|
4013
|
0 |
6 |
if (s[1] == '\\') |
|
4015
|
2 |
4 |
if (strchr("aA01! ",last_un_char)) |
|
4017
|
2 |
4 |
if (strchr("zZ79~",s[1])) |
|
4019
|
4 |
2 |
if (last_un_char == 255 && (isDIGIT(s[1]) || s[1] == '$')) |
|
|
0 |
4 |
if (last_un_char == 255 && (isDIGIT(s[1]) || s[1] == '$')) |
|
|
0 |
0 |
if (last_un_char == 255 && (isDIGIT(s[1]) || s[1] == '$')) |
|
4023
|
3654 |
658 |
if (!isWORDCHAR(last_un_char) |
|
4024
|
3484 |
170 |
&& !(last_un_char == '$' || last_un_char == '@' |
|
|
3484 |
0 |
&& !(last_un_char == '$' || last_un_char == '@' |
|
4026
|
4 |
3480 |
&& isALPHA(*s) && s[1] && isALPHA(s[1])) { |
|
|
4 |
0 |
&& isALPHA(*s) && s[1] && isALPHA(s[1])) { |
|
|
0 |
4 |
&& isALPHA(*s) && s[1] && isALPHA(s[1])) { |
|
4028
|
0 |
0 |
while (isALPHA(*s)) |
|
4031
|
0 |
0 |
if (keyword(tmpbuf, d - tmpbuf, 0)) |
|
4034
|
0 |
4312 |
if (un_char == last_un_char + 1) |
|
4041
|
3130 |
266 |
if (weight >= 0) /* probably a character class */ |
|
4083
|
376159 |
26167 |
if (gv && SvTYPE(gv) == SVt_PVGV && GvIO(gv)) |
|
|
376159 |
0 |
if (gv && SvTYPE(gv) == SVt_PVGV && GvIO(gv)) |
|
|
376159 |
0 |
if (gv && SvTYPE(gv) == SVt_PVGV && GvIO(gv)) |
|
|
376159 |
0 |
if (gv && SvTYPE(gv) == SVt_PVGV && GvIO(gv)) |
|
|
376159 |
0 |
if (gv && SvTYPE(gv) == SVt_PVGV && GvIO(gv)) |
|
|
334207 |
41952 |
if (gv && SvTYPE(gv) == SVt_PVGV && GvIO(gv)) |
|
4085
|
334166 |
26208 |
if (cv && SvPOK(cv)) { |
|
|
94824 |
239342 |
if (cv && SvPOK(cv)) { |
|
4086
|
94824 |
0 |
const char *proto = CvPROTO(cv); |
|
|
94824 |
0 |
const char *proto = CvPROTO(cv); |
|
|
1 |
94823 |
const char *proto = CvPROTO(cv); |
|
4087
|
94824 |
0 |
if (proto) { |
|
4088
|
15621 |
79265 |
while (*proto && (isSPACE(*proto) || *proto == ';')) |
|
|
9 |
15612 |
while (*proto && (isSPACE(*proto) || *proto == ';')) |
|
|
53 |
15559 |
while (*proto && (isSPACE(*proto) || *proto == ';')) |
|
4090
|
94513 |
311 |
if (*proto == '*') |
|
4095
|
176923 |
183140 |
if (*start == '$') { |
|
4096
|
17 |
176906 |
if (cv || PL_last_lop_op == OP_PRINT || PL_last_lop_op == OP_SAY || |
|
|
0 |
17 |
if (cv || PL_last_lop_op == OP_PRINT || PL_last_lop_op == OP_SAY || |
|
|
0 |
0 |
if (cv || PL_last_lop_op == OP_PRINT || PL_last_lop_op == OP_SAY || |
|
|
0 |
0 |
if (cv || PL_last_lop_op == OP_PRINT || PL_last_lop_op == OP_SAY || |
|
4108
|
0 |
0 |
return *s == '(' ? FUNCMETH : METHOD; |
|
4117
|
90593 |
92547 |
if (!keyword(tmpbuf, len, 0)) { |
|
4118
|
80091 |
10502 |
if (len > 2 && tmpbuf[len - 2] == ':' && tmpbuf[len - 1] == ':') { |
|
|
3 |
80088 |
if (len > 2 && tmpbuf[len - 2] == ':' && tmpbuf[len - 1] == ':') { |
|
|
2 |
1 |
if (len > 2 && tmpbuf[len - 2] == ':' && tmpbuf[len - 1] == ':') { |
|
4126
|
90591 |
0 |
indirgv = gv_fetchpvn_flags(tmpbuf, len, ( UTF ? SVf_UTF8 : 0 ), SVt_PVCV); |
|
|
1 |
90590 |
indirgv = gv_fetchpvn_flags(tmpbuf, len, ( UTF ? SVf_UTF8 : 0 ), SVt_PVCV); |
|
|
0 |
1 |
indirgv = gv_fetchpvn_flags(tmpbuf, len, ( UTF ? SVf_UTF8 : 0 ), SVt_PVCV); |
|
|
90590 |
0 |
indirgv = gv_fetchpvn_flags(tmpbuf, len, ( UTF ? SVf_UTF8 : 0 ), SVt_PVCV); |
|
|
90544 |
46 |
indirgv = gv_fetchpvn_flags(tmpbuf, len, ( UTF ? SVf_UTF8 : 0 ), SVt_PVCV); |
|
4127
|
34955 |
55636 |
if (indirgv && GvCVu(indirgv)) |
|
|
34955 |
0 |
if (indirgv && GvCVu(indirgv)) |
|
|
29276 |
5679 |
if (indirgv && GvCVu(indirgv)) |
|
4130
|
58756 |
26156 |
if (!cv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, UTF ? SVf_UTF8 : 0)) { |
|
|
29268 |
29488 |
if (!cv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, UTF ? SVf_UTF8 : 0)) { |
|
|
29268 |
0 |
if (!cv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, UTF ? SVf_UTF8 : 0)) { |
|
|
29268 |
0 |
if (!cv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, UTF ? SVf_UTF8 : 0)) { |
|
|
29268 |
0 |
if (!cv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, UTF ? SVf_UTF8 : 0)) { |
|
|
58756 |
0 |
if (!cv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, UTF ? SVf_UTF8 : 0)) { |
|
|
1 |
58755 |
if (!cv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, UTF ? SVf_UTF8 : 0)) { |
|
|
0 |
1 |
if (!cv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, UTF ? SVf_UTF8 : 0)) { |
|
|
58755 |
0 |
if (!cv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, UTF ? SVf_UTF8 : 0)) { |
|
|
58730 |
25 |
if (!cv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, UTF ? SVf_UTF8 : 0)) { |
|
|
21051 |
37705 |
if (!cv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, UTF ? SVf_UTF8 : 0)) { |
|
4135
|
47205 |
2 |
if ((PL_bufend - s) >= 2 && *s == '=' && *(s+1) == '>') |
|
|
15195 |
32010 |
if ((PL_bufend - s) >= 2 && *s == '=' && *(s+1) == '>') |
|
|
0 |
15195 |
if ((PL_bufend - s) >= 2 && *s == '=' && *(s+1) == '>') |
|
4151
|
27535 |
4479 |
return *s == '(' ? FUNCMETH : METHOD; |
|
4176
|
9864 |
0 |
{ |
|
4178
|
9865 |
0 |
if (!funcp) |
|
4181
|
9865 |
0 |
if (!PL_parser) |
|
4184
|
1 |
9864 |
if (PL_parser->lex_flags & LEX_IGNORE_UTF8_HINTS) |
|
4187
|
9845 |
19 |
if (!PL_rsfp_filters) |
|
4189
|
9820 |
44 |
if (!datasv) |
|
4199
|
9864 |
0 |
if ( |
|
4201
|
1 |
9863 |
&& PL_parser->lex_flags & LEX_EVALBYTES |
|
4202
|
1 |
0 |
&& PL_bufptr < PL_bufend |
|
4205
|
1 |
0 |
while (s < PL_bufend) { |
|
4206
|
1 |
0 |
if (*s == '\n') { |
|
4213
|
0 |
1 |
STRLEN const last_uni_pos = |
|
4215
|
0 |
1 |
STRLEN const last_lop_pos = |
|
4226
|
0 |
1 |
if (PL_parser->last_uni) |
|
4228
|
0 |
1 |
if (PL_parser->last_lop) |
|
4255
|
5815 |
0 |
if (!PL_parser || !PL_rsfp_filters || AvFILLp(PL_rsfp_filters)<0) |
|
|
5815 |
0 |
if (!PL_parser || !PL_rsfp_filters || AvFILLp(PL_rsfp_filters)<0) |
|
|
5815 |
0 |
if (!PL_parser || !PL_rsfp_filters || AvFILLp(PL_rsfp_filters)<0) |
|
4258
|
5815 |
0 |
datasv = FILTER_DATA(AvFILLp(PL_rsfp_filters)); |
|
4259
|
5815 |
0 |
if (IoANY(datasv) == FPTR2DPTR(void *, funcp)) { |
|
4280
|
21897281 |
0 |
unsigned int correct_length |
|
4291
|
21897281 |
0 |
if (!PL_parser || !PL_rsfp_filters) |
|
|
21897281 |
0 |
if (!PL_parser || !PL_rsfp_filters) |
|
4293
|
21872910 |
24371 |
if (idx > AvFILLp(PL_rsfp_filters)) { /* Any more filters? */ |
|
4298
|
10163 |
21862747 |
if (correct_length) { |
|
4304
|
10163 |
0 |
SvGROW(buf_sv, (STRLEN)(old_len + correct_length + 1)) ; |
|
|
4047 |
6116 |
SvGROW(buf_sv, (STRLEN)(old_len + correct_length + 1)) ; |
|
4305
|
3999 |
6164 |
if ((len = PerlIO_read(PL_rsfp, SvPVX(buf_sv) + old_len, |
|
4307
|
3999 |
0 |
if (PerlIO_error(PL_rsfp)) |
|
4316
|
2853 |
21859894 |
if (sv_gets(buf_sv, PL_rsfp, SvCUR(buf_sv)) == NULL) { |
|
4317
|
2853 |
0 |
if (PerlIO_error(PL_rsfp)) |
|
4326
|
24371 |
0 |
if ( (datasv = FILTER_DATA(idx)) == &PL_sv_undef) { |
|
|
0 |
24371 |
if ( (datasv = FILTER_DATA(idx)) == &PL_sv_undef) { |
|
4332
|
2 |
24369 |
if (SvTYPE(datasv) != SVt_PVIO) { |
|
4333
|
0 |
2 |
if (correct_length) { |
|
4336
|
0 |
0 |
if (!remainder) return 0; /* eof */ |
|
4337
|
0 |
0 |
if (correct_length > remainder) correct_length = remainder; |
|
4344
|
17 |
1 |
while (s < send) { |
|
4345
|
1 |
16 |
if (*s == '\n') { |
|
4351
|
1 |
1 |
if (s == send) return 0; /* eof */ |
|
4380
|
21882711 |
89459276 |
if (PL_rsfp_filters) { |
|
4381
|
20769372 |
1113339 |
if (!append) |
|
4383
|
21870107 |
12599 |
if (FILTER_READ(0, sv, 0) > 0) |
|
4400
|
3 |
42 |
if (len == 11 && *pkgname == '_' && strEQ(pkgname, "__PACKAGE__")) |
|
|
2 |
1 |
if (len == 11 && *pkgname == '_' && strEQ(pkgname, "__PACKAGE__")) |
|
|
2 |
0 |
if (len == 11 && *pkgname == '_' && strEQ(pkgname, "__PACKAGE__")) |
|
4403
|
39 |
4 |
if (len > 2 && |
|
|
4 |
35 |
if (len > 2 && |
|
4404
|
4 |
0 |
(pkgname[len - 2] == ':' && pkgname[len - 1] == ':') && |
|
|
2 |
2 |
(pkgname[len - 2] == ':' && pkgname[len - 1] == ':') && |
|
4405
|
4 |
0 |
(gv = gv_fetchpvn_flags(pkgname, len, ( UTF ? SVf_UTF8 : 0 ), SVt_PVHV))) |
|
|
2 |
2 |
(gv = gv_fetchpvn_flags(pkgname, len, ( UTF ? SVf_UTF8 : 0 ), SVt_PVHV))) |
|
|
0 |
2 |
(gv = gv_fetchpvn_flags(pkgname, len, ( UTF ? SVf_UTF8 : 0 ), SVt_PVHV))) |
|
|
2 |
0 |
(gv = gv_fetchpvn_flags(pkgname, len, ( UTF ? SVf_UTF8 : 0 ), SVt_PVHV))) |
|
|
2 |
0 |
(gv = gv_fetchpvn_flags(pkgname, len, ( UTF ? SVf_UTF8 : 0 ), SVt_PVHV))) |
|
4411
|
41 |
0 |
gv = gv_fetchpvn_flags(pkgname, len, UTF ? SVf_UTF8 : 0, SVt_PVCV); |
|
|
10 |
31 |
gv = gv_fetchpvn_flags(pkgname, len, UTF ? SVf_UTF8 : 0, SVt_PVCV); |
|
|
0 |
10 |
gv = gv_fetchpvn_flags(pkgname, len, UTF ? SVf_UTF8 : 0, SVt_PVCV); |
|
|
31 |
0 |
gv = gv_fetchpvn_flags(pkgname, len, UTF ? SVf_UTF8 : 0, SVt_PVCV); |
|
|
31 |
0 |
gv = gv_fetchpvn_flags(pkgname, len, UTF ? SVf_UTF8 : 0, SVt_PVCV); |
|
4412
|
4 |
37 |
if (gv && GvCV(gv)) { |
|
|
4 |
0 |
if (gv && GvCV(gv)) { |
|
4414
|
4 |
0 |
if (sv) |
|
4415
|
4 |
0 |
pkgname = SvPV_const(sv, len); |
|
4418
|
41 |
0 |
return gv_stashpvn(pkgname, len, UTF ? SVf_UTF8 : 0); |
|
|
10 |
31 |
return gv_stashpvn(pkgname, len, UTF ? SVf_UTF8 : 0); |
|
|
0 |
10 |
return gv_stashpvn(pkgname, len, UTF ? SVf_UTF8 : 0); |
|
|
31 |
0 |
return gv_stashpvn(pkgname, len, UTF ? SVf_UTF8 : 0); |
|
|
31 |
0 |
return gv_stashpvn(pkgname, len, UTF ? SVf_UTF8 : 0); |
|
4432
|
2 |
38510 |
if ((gv_readpipe |
|
4433
|
2 |
0 |
&& GvCVu(gv_readpipe) && GvIMPORTED_CV(gv_readpipe)) |
|
|
2 |
0 |
&& GvCVu(gv_readpipe) && GvIMPORTED_CV(gv_readpipe)) |
|
|
0 |
2 |
&& GvCVu(gv_readpipe) && GvIMPORTED_CV(gv_readpipe)) |
|
4434
|
3 |
38507 |
|| |
|
4436
|
3 |
0 |
&& (gv_readpipe = *gvp) && isGV_with_GP(gv_readpipe) |
|
|
2 |
1 |
&& (gv_readpipe = *gvp) && isGV_with_GP(gv_readpipe) |
|
|
2 |
0 |
&& (gv_readpipe = *gvp) && isGV_with_GP(gv_readpipe) |
|
4437
|
2 |
0 |
&& GvCVu(gv_readpipe) && GvIMPORTED_CV(gv_readpipe))) |
|
|
2 |
0 |
&& GvCVu(gv_readpipe) && GvIMPORTED_CV(gv_readpipe))) |
|
|
2 |
0 |
&& GvCVu(gv_readpipe) && GvIMPORTED_CV(gv_readpipe))) |
|
4439
|
0 |
4 |
COPLINE_SET_FROM_MULTI_END; |
|
4634
|
0 |
2372767 |
if (PL_expect != XSTATE) |
|
4635
|
0 |
0 |
yyerror(Perl_form(aTHX_ "\"%s\" not allowed in expression", |
|
4639
|
2317525 |
55242 |
if (isDIGIT(*s) || (*s == 'v' && isDIGIT(s[1]))) { |
|
|
82646 |
2234879 |
if (isDIGIT(*s) || (*s == 'v' && isDIGIT(s[1]))) { |
|
|
33 |
82613 |
if (isDIGIT(*s) || (*s == 'v' && isDIGIT(s[1]))) { |
|
4641
|
35 |
55240 |
if (*s == ';' || *s == '}' |
|
4642
|
35 |
0 |
|| (s = SKIPSPACE1(s), (*s == ';' || *s == '}'))) { |
|
4647
|
0 |
0 |
else if (*s == 'v') { |
|
4670
|
1987519 |
62682283 |
return (len == 1 && strchr("msyq", p[0])) || |
|
|
317532 |
1669987 |
return (len == 1 && strchr("msyq", p[0])) || |
|
|
20471969 |
42527846 |
return (len == 1 && strchr("msyq", p[0])) || |
|
4671
|
56381 |
20415588 |
(len == 2 && ( |
|
4672
|
1065 |
55316 |
(p[0] == 't' && p[1] == 'r') || |
|
|
1095152 |
19321501 |
(p[0] == 't' && p[1] == 'r') || |
|
4673
|
765 |
1094387 |
(p[0] == 'q' && strchr("qwxr", p[1])))); |
|
4785
|
127335421 |
3429589 |
if (!PL_nexttoke) { |
|
4798
|
167833 |
130597177 |
if (next_type & (7<<24)) { |
|
4799
|
4 |
167829 |
if (next_type & (1<<24)) { |
|
4800
|
0 |
4 |
if (PL_lex_brackets > 100) |
|
4805
|
167833 |
0 |
if (next_type & (2<<24)) |
|
4807
|
0 |
167833 |
if (next_type & (4<<24)) |
|
4811
|
73503824 |
57261186 |
return REPORT(next_type == 'p' ? pending_ident() : next_type); |
|
4825
|
102300 |
32546 |
if (PL_bufptr == PL_bufend || PL_bufptr[1] == 'E') { |
|
|
42991 |
59309 |
if (PL_bufptr == PL_bufend || PL_bufptr[1] == 'E') { |
|
4827
|
59298 |
16239 |
if (PL_lex_casemods) { |
|
4831
|
42983 |
16315 |
if (PL_bufptr != PL_bufend |
|
4832
|
41066 |
1917 |
&& (oldmod == 'L' || oldmod == 'U' || oldmod == 'Q' |
|
4833
|
41062 |
4 |
|| oldmod == 'F')) { |
|
4844
|
8 |
16231 |
else if ( PL_bufptr != PL_bufend && PL_bufptr[1] == 'E' ) { |
|
|
8 |
0 |
else if ( PL_bufptr != PL_bufend && PL_bufptr[1] == 'E' ) { |
|
4860
|
8 |
16231 |
if (PL_bufptr != PL_bufend) |
|
4870
|
42 |
59267 |
if (s[1] == '\\' && s[2] == 'E') { |
|
|
5 |
37 |
if (s[1] == '\\' && s[2] == 'E') { |
|
4885
|
59302 |
2 |
if (strnEQ(s, "L\\u", 3) || strnEQ(s, "U\\l", 3)) |
|
|
2 |
59300 |
if (strnEQ(s, "L\\u", 3) || strnEQ(s, "U\\l", 3)) |
|
4887
|
54569 |
4735 |
if ((*s == 'L' || *s == 'U' || *s == 'F') && |
|
|
13 |
54556 |
if ((*s == 'L' || *s == 'U' || *s == 'F') && |
|
|
4746 |
2 |
if ((*s == 'L' || *s == 'U' || *s == 'F') && |
|
4889
|
4745 |
1 |
|| strchr(PL_lex_casestack, 'U') |
|
4890
|
0 |
4745 |
|| strchr(PL_lex_casestack, 'F'))) { |
|
4895
|
2 |
59299 |
if (PL_lex_casemods > 10) |
|
4904
|
13 |
59288 |
if (*s == 'l') |
|
4906
|
5504 |
53784 |
else if (*s == 'u') |
|
4908
|
524 |
53260 |
else if (*s == 'L') |
|
4910
|
4208 |
49052 |
else if (*s == 'U') |
|
4912
|
49039 |
13 |
else if (*s == 'Q') |
|
4914
|
13 |
0 |
else if (*s == 'F') |
|
4928
|
48697 |
10604 |
if (PL_lex_starts) { |
|
4939
|
48629 |
68 |
if (PL_lex_casemods == 1 && PL_lex_inpat) |
|
|
38586 |
10043 |
if (PL_lex_casemods == 1 && PL_lex_inpat) |
|
4952
|
6867509 |
4793452 |
if (PL_bufptr == PL_bufend) |
|
4960
|
108545 |
4684907 |
&& (!PL_lex_inpat || PL_lex_casemods)); |
|
|
18 |
108527 |
&& (!PL_lex_inpat || PL_lex_casemods)); |
|
|
1 |
17 |
&& (!PL_lex_inpat || PL_lex_casemods)); |
|
4962
|
108528 |
4684924 |
if (PL_lex_dojoin) { |
|
4979
|
215569 |
4577883 |
if (PL_lex_inpat && *PL_bufptr == '(') { |
|
|
5575 |
209994 |
if (PL_lex_inpat && *PL_bufptr == '(') { |
|
4982
|
4367 |
1208 |
if (*PL_bufptr != '{') |
|
4990
|
3624335 |
1169117 |
if (PL_lex_starts++) { |
|
5000
|
3622567 |
1768 |
if (!PL_lex_casemods && PL_lex_inpat) |
|
|
114907 |
3507660 |
if (!PL_lex_casemods && PL_lex_inpat) |
|
5008
|
688921 |
3700001 |
if (intuit_more(PL_bufptr)) { |
|
5015
|
108528 |
4780290 |
if (PL_lex_dojoin) { |
|
5028
|
296507 |
4483783 |
if (PL_lex_inwhat == OP_SUBST && PL_linestr == PL_lex_repl |
|
|
89843 |
206664 |
if (PL_lex_inwhat == OP_SUBST && PL_linestr == PL_lex_repl |
|
5029
|
89843 |
0 |
&& SvEVALED(PL_lex_repl)) |
|
5031
|
3 |
89840 |
if (PL_bufptr != PL_bufend) |
|
5039
|
4774727 |
5560 |
if (PL_parser->lex_shared->re_eval_start |
|
5040
|
0 |
4774727 |
|| PL_parser->lex_shared->re_eval_str) { |
|
5042
|
15 |
5545 |
if (*PL_bufptr != ')') |
|
5047
|
3 |
5542 |
if (PL_parser->lex_shared->re_eval_str) { |
|
5074
|
2221650 |
11763325 |
if (PL_bufptr == PL_bufend) |
|
5078
|
35709 |
11727616 |
if (SvIVX(PL_linestr) == '\'' && !PL_lex_inpat) { |
|
|
5 |
35704 |
if (SvIVX(PL_linestr) == '\'' && !PL_lex_inpat) { |
|
5086
|
102293 |
11660963 |
if (*s == '\\') |
|
5092
|
10368838 |
1394423 |
if (s != PL_bufptr) { |
|
5100
|
3267139 |
7101699 |
if (PL_lex_starts++) { |
|
5109
|
3258363 |
8776 |
if (!PL_lex_casemods && PL_lex_inpat) |
|
|
139199 |
3119164 |
if (!PL_lex_casemods && PL_lex_inpat) |
|
5123
|
192 |
141 |
if (!PL_lex_formbrack) |
|
5149
|
17354 |
0 |
if (UTF ? isIDFIRST_utf8((U8*)s) : isALNUMC(*s)) |
|
|
16998 |
356 |
if (UTF ? isIDFIRST_utf8((U8*)s) : isALNUMC(*s)) |
|
|
0 |
16998 |
if (UTF ? isIDFIRST_utf8((U8*)s) : isALNUMC(*s)) |
|
|
355 |
1 |
if (UTF ? isIDFIRST_utf8((U8*)s) : isALNUMC(*s)) |
|
|
222 |
133 |
if (UTF ? isIDFIRST_utf8((U8*)s) : isALNUMC(*s)) |
|
|
0 |
17220 |
if (UTF ? isIDFIRST_utf8((U8*)s) : isALNUMC(*s)) |
|
|
68 |
17152 |
if (UTF ? isIDFIRST_utf8((U8*)s) : isALNUMC(*s)) |
|
|
68 |
0 |
if (UTF ? isIDFIRST_utf8((U8*)s) : isALNUMC(*s)) |
|
|
65 |
3 |
if (UTF ? isIDFIRST_utf8((U8*)s) : isALNUMC(*s)) |
|
|
17104 |
250 |
if (UTF ? isIDFIRST_utf8((U8*)s) : isALNUMC(*s)) |
|
5153
|
17104 |
0 |
const char *c = UTF ? savepv(sv_uni_display(dsv, newSVpvn_flags(s, |
|
|
16969 |
135 |
const char *c = UTF ? savepv(sv_uni_display(dsv, newSVpvn_flags(s, |
|
|
0 |
16969 |
const char *c = UTF ? savepv(sv_uni_display(dsv, newSVpvn_flags(s, |
|
|
134 |
1 |
const char *c = UTF ? savepv(sv_uni_display(dsv, newSVpvn_flags(s, |
|
|
1 |
133 |
const char *c = UTF ? savepv(sv_uni_display(dsv, newSVpvn_flags(s, |
|
5158
|
17104 |
0 |
len = UTF ? Perl_utf8_length(aTHX_ (U8 *) PL_linestart, (U8 *) s) : (STRLEN) (s - PL_linestart); |
|
|
16969 |
135 |
len = UTF ? Perl_utf8_length(aTHX_ (U8 *) PL_linestart, (U8 *) s) : (STRLEN) (s - PL_linestart); |
|
|
0 |
16969 |
len = UTF ? Perl_utf8_length(aTHX_ (U8 *) PL_linestart, (U8 *) s) : (STRLEN) (s - PL_linestart); |
|
|
134 |
1 |
len = UTF ? Perl_utf8_length(aTHX_ (U8 *) PL_linestart, (U8 *) s) : (STRLEN) (s - PL_linestart); |
|
|
1 |
133 |
len = UTF ? Perl_utf8_length(aTHX_ (U8 *) PL_linestart, (U8 *) s) : (STRLEN) (s - PL_linestart); |
|
5159
|
66 |
17038 |
if (len > UNRECOGNIZED_PRECEDE_COUNT) { |
|
5160
|
66 |
0 |
d = UTF ? (char *) Perl_utf8_hop(aTHX_ (U8 *) s, -UNRECOGNIZED_PRECEDE_COUNT) : s - UNRECOGNIZED_PRECEDE_COUNT; |
|
|
65 |
1 |
d = UTF ? (char *) Perl_utf8_hop(aTHX_ (U8 *) s, -UNRECOGNIZED_PRECEDE_COUNT) : s - UNRECOGNIZED_PRECEDE_COUNT; |
|
|
0 |
65 |
d = UTF ? (char *) Perl_utf8_hop(aTHX_ (U8 *) s, -UNRECOGNIZED_PRECEDE_COUNT) : s - UNRECOGNIZED_PRECEDE_COUNT; |
|
|
1 |
0 |
d = UTF ? (char *) Perl_utf8_hop(aTHX_ (U8 *) s, -UNRECOGNIZED_PRECEDE_COUNT) : s - UNRECOGNIZED_PRECEDE_COUNT; |
|
|
0 |
1 |
d = UTF ? (char *) Perl_utf8_hop(aTHX_ (U8 *) s, -UNRECOGNIZED_PRECEDE_COUNT) : s - UNRECOGNIZED_PRECEDE_COUNT; |
|
5166
|
17104 |
0 |
if (UTF) |
|
|
16969 |
135 |
if (UTF) |
|
|
0 |
16969 |
if (UTF) |
|
|
134 |
1 |
if (UTF) |
|
|
1 |
133 |
if (UTF) |
|
5178
|
2178031 |
85621436 |
if (!PL_rsfp && (!PL_parser->filtered || s+1 < PL_bufend)) { |
|
|
2 |
2178029 |
if (!PL_rsfp && (!PL_parser->filtered || s+1 < PL_bufend)) { |
|
|
0 |
2 |
if (!PL_rsfp && (!PL_parser->filtered || s+1 < PL_bufend)) { |
|
5181
|
34 |
2177995 |
if (PL_lex_brackets && |
|
|
30 |
4 |
if (PL_lex_brackets && |
|
5183
|
28 |
2 |
yyerror((const char *) |
|
5193
|
0 |
85621438 |
if (s++ < PL_bufend) |
|
5197
|
781229 |
84840209 |
if (!PL_in_eval && !PL_preambled) { |
|
|
12301 |
768928 |
if (!PL_in_eval && !PL_preambled) { |
|
5203
|
111 |
12190 |
if (PL_perldb) { |
|
5210
|
9 |
102 |
if (pdb) { |
|
5219
|
7321 |
4980 |
if (PL_preambleav) { |
|
5222
|
10686 |
7321 |
while(svp <= end) { |
|
5230
|
5 |
12296 |
if (PL_minus_E) |
|
5233
|
12254 |
47 |
if (PL_minus_n || PL_minus_p) { |
|
|
12 |
12242 |
if (PL_minus_n || PL_minus_p) { |
|
5235
|
2 |
57 |
if (PL_minus_l) |
|
5237
|
9 |
50 |
if (PL_minus_a) { |
|
5238
|
4 |
5 |
if (PL_minus_F) { |
|
5239
|
4 |
0 |
if ((*PL_splitstr == '/' || *PL_splitstr == '\'' |
|
|
0 |
0 |
if ((*PL_splitstr == '/' || *PL_splitstr == '\'' |
|
5240
|
0 |
4 |
|| *PL_splitstr == '"') |
|
5241
|
0 |
0 |
&& strchr(PL_splitstr + 1, *PL_splitstr)) |
|
|
0 |
0 |
&& strchr(PL_splitstr + 1, *PL_splitstr)) |
|
|
0 |
0 |
&& strchr(PL_splitstr + 1, *PL_splitstr)) |
|
5250
|
2 |
17 |
if (*splits == '\\') |
|
5253
|
15 |
4 |
} while (*splits++); |
|
5268
|
12190 |
111 |
if ((PERLDB_LINE || PERLDB_SAVESRC) && PL_curstash != PL_debstash) |
|
|
4 |
107 |
if ((PERLDB_LINE || PERLDB_SAVESRC) && PL_curstash != PL_debstash) |
|
|
0 |
107 |
if ((PERLDB_LINE || PERLDB_SAVESRC) && PL_curstash != PL_debstash) |
|
5280
|
173462 |
97618346 |
COPLINE_INC_WITH_HERELINES; |
|
5281
|
0 |
97791803 |
if (!lex_next_chunk(fake_eof)) { |
|
5294
|
97791429 |
374 |
if (bof && PL_rsfp && |
|
|
97478537 |
312892 |
if (bof && PL_rsfp && |
|
|
97477537 |
1000 |
if (bof && PL_rsfp && |
|
5295
|
97477520 |
17 |
(*s == 0 || |
|
5296
|
97475522 |
1998 |
*(U8*)s == BOM_UTF8_FIRST_BYTE || |
|
5297
|
17592585 |
79882937 |
*(U8*)s >= 0xFE || |
|
5306
|
13057 |
17582543 |
if (bof) { |
|
5311
|
12422086 |
85369717 |
if (PL_parser->in_pod) { |
|
5317
|
1430189 |
10991897 |
if (*s == '=' && strnEQ(s, "=cut", 4) && !isALPHA(s[4])) { |
|
|
443019 |
987170 |
if (*s == '=' && strnEQ(s, "=cut", 4) && !isALPHA(s[4])) { |
|
|
443019 |
0 |
if (*s == '=' && strnEQ(s, "=cut", 4) && !isALPHA(s[4])) { |
|
5325
|
313266 |
97478537 |
if (PL_rsfp || PL_parser->filtered) |
|
|
1 |
313265 |
if (PL_rsfp || PL_parser->filtered) |
|
5327
|
11979067 |
85812736 |
} while (PL_parser->in_pod); |
|
5331
|
321281 |
85491455 |
if (CopLINE(PL_curcop) == 1) { |
|
5332
|
329376 |
13243 |
while (s < PL_bufend && isSPACE(*s)) |
|
|
21338 |
308038 |
while (s < PL_bufend && isSPACE(*s)) |
|
5334
|
0 |
321281 |
if (*s == ':' && s[1] != ':') /* for csh execing sh scripts */ |
|
|
0 |
0 |
if (*s == ':' && s[1] != ':') /* for csh execing sh scripts */ |
|
5341
|
14750 |
306531 |
if (!PL_in_eval) { |
|
5342
|
4004 |
10746 |
if (*s == '#' && *(s+1) == '!') |
|
|
2964 |
1040 |
if (*s == '#' && *(s+1) == '!') |
|
5352
|
2964 |
318317 |
if (d) { |
|
5356
|
83 |
2964 |
while (isSPACE(*d)) |
|
5359
|
53647 |
0 |
while (*d && !isSPACE(*d)) |
|
|
50683 |
2964 |
while (*d && !isSPACE(*d)) |
|
5399
|
2075 |
889 |
if (!d) { |
|
5437
|
0 |
2964 |
if (!d && |
|
5438
|
0 |
0 |
*s == '#' && |
|
5439
|
0 |
0 |
ipathend > ipath && |
|
5440
|
0 |
0 |
!PL_minus_c && |
|
5441
|
0 |
0 |
!instr(s,"indir") && |
|
5449
|
0 |
0 |
while (s < PL_bufend && isSPACE(*s)) |
|
|
0 |
0 |
while (s < PL_bufend && isSPACE(*s)) |
|
5451
|
0 |
0 |
if (s < PL_bufend) { |
|
5452
|
0 |
0 |
Newx(newargv,PL_origargc+3,char*); |
|
5454
|
0 |
0 |
while (s < PL_bufend && !isSPACE(*s)) |
|
|
0 |
0 |
while (s < PL_bufend && !isSPACE(*s)) |
|
5457
|
0 |
0 |
Copy(PL_origargv+1, newargv+2, PL_origargc+1, char*); |
|
5467
|
2964 |
0 |
if (d) { |
|
5468
|
29008 |
0 |
while (*d && !isSPACE(*d)) |
|
|
26044 |
2964 |
while (*d && !isSPACE(*d)) |
|
5470
|
933 |
2964 |
while (SPACE_OR_TAB(*d)) |
|
5473
|
928 |
2036 |
if (*d++ == '-') { |
|
5482
|
5 |
1841 |
if (*d1 == 'C') { |
|
5484
|
2 |
3 |
if (parse_unicode_opts((const char **)&d2) |
|
5488
|
1844 |
2 |
if (baduni || *d1 == 'M' || *d1 == 'm') { |
|
|
1 |
1843 |
if (baduni || *d1 == 'M' || *d1 == 'm') { |
|
|
1 |
1842 |
if (baduni || *d1 == 'M' || *d1 == 'm') { |
|
5490
|
10 |
0 |
while (*d1 && !isSPACE(*d1)) |
|
|
6 |
4 |
while (*d1 && !isSPACE(*d1)) |
|
5496
|
918 |
885 |
} while (d1); |
|
5497
|
3 |
882 |
if (PL_doswitches && !switches_done) { |
|
|
3 |
0 |
if (PL_doswitches && !switches_done) { |
|
5502
|
9 |
0 |
} while (argc && argv[0][0] == '-' && argv[0][1]); |
|
|
6 |
3 |
} while (argc && argv[0][0] == '-' && argv[0][1]); |
|
|
6 |
0 |
} while (argc && argv[0][0] == '-' && argv[0][1]); |
|
5505
|
755 |
130 |
if (((PERLDB_LINE || PERLDB_SAVESRC) && !oldpdb) || |
|
|
754 |
1 |
if (((PERLDB_LINE || PERLDB_SAVESRC) && !oldpdb) || |
|
|
879 |
5 |
if (((PERLDB_LINE || PERLDB_SAVESRC) && !oldpdb) || |
|
5506
|
1 |
878 |
((PL_minus_n || PL_minus_p) && !(oldn || oldp))) |
|
|
6 |
0 |
((PL_minus_n || PL_minus_p) && !(oldn || oldp))) |
|
|
6 |
0 |
((PL_minus_n || PL_minus_p) && !(oldn || oldp))) |
|
5515
|
2 |
5 |
if (PERLDB_LINE || PERLDB_SAVESRC) |
|
|
4 |
1 |
if (PERLDB_LINE || PERLDB_SAVESRC) |
|
5523
|
85812417 |
269 |
if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) { |
|
|
35 |
234 |
if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) { |
|
5555
|
88664730 |
75636 |
if (PL_lex_state != LEX_NORMAL || |
|
|
776835 |
87887895 |
if (PL_lex_state != LEX_NORMAL || |
|
5556
|
84226039 |
3661856 |
(PL_in_eval && !PL_rsfp && !PL_parser->filtered)) { |
|
|
2 |
3661854 |
(PL_in_eval && !PL_rsfp && !PL_parser->filtered)) { |
|
5557
|
172957 |
3564533 |
if (*s == '#' && s == PL_linestart && PL_in_eval |
|
|
7505 |
165452 |
if (*s == '#' && s == PL_linestart && PL_in_eval |
|
|
7505 |
0 |
if (*s == '#' && s == PL_linestart && PL_in_eval |
|
5558
|
7505 |
0 |
&& !PL_rsfp && !PL_parser->filtered) { |
|
|
7505 |
0 |
&& !PL_rsfp && !PL_parser->filtered) { |
|
5571
|
10565157 |
2 |
while (d < PL_bufend && *d != '\n') |
|
|
6827669 |
3737488 |
while (d < PL_bufend && *d != '\n') |
|
5573
|
3737488 |
2 |
if (d < PL_bufend) |
|
5575
|
0 |
2 |
else if (d > PL_bufend) /* Found by Ilya: feed random input to Perl. */ |
|
5583
|
172957 |
3564533 |
if (in_comment && d == PL_bufend |
|
|
2 |
172955 |
if (in_comment && d == PL_bufend |
|
5584
|
2 |
0 |
&& PL_lex_state == LEX_INTERPNORMAL |
|
5585
|
2 |
0 |
&& PL_lex_inwhat == OP_SUBST && PL_lex_repl == PL_linestr |
|
|
2 |
0 |
&& PL_lex_inwhat == OP_SUBST && PL_lex_repl == PL_linestr |
|
5586
|
2 |
0 |
&& SvEVALED(PL_lex_repl) && d[-1] == '}') s--; |
|
|
2 |
0 |
&& SvEVALED(PL_lex_repl) && d[-1] == '}') s--; |
|
5589
|
3737421 |
69 |
if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) { |
|
|
0 |
69 |
if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) { |
|
5610
|
582328171 |
0 |
while (s < PL_bufend && *s != '\n') |
|
|
497325295 |
85002876 |
while (s < PL_bufend && *s != '\n') |
|
5612
|
85002876 |
0 |
if (s < PL_bufend) |
|
5615
|
84714891 |
287985 |
if (s < PL_bufend) |
|
5618
|
0 |
0 |
else if (s > PL_bufend) /* Found by Ilya: feed random input to Perl. */ |
|
5635
|
12522622 |
0 |
if (s[1] && isALPHA(s[1]) && !isWORDCHAR(s[2])) { |
|
|
390763 |
12131859 |
if (s[1] && isALPHA(s[1]) && !isWORDCHAR(s[2])) { |
|
|
382288 |
8475 |
if (s[1] && isALPHA(s[1]) && !isWORDCHAR(s[2])) { |
|
5643
|
761675 |
0 |
while (s < PL_bufend && SPACE_OR_TAB(*s)) |
|
|
379387 |
382288 |
while (s < PL_bufend && SPACE_OR_TAB(*s)) |
|
5646
|
25 |
382263 |
if (strnEQ(s,"=>",2)) { |
|
5689
|
382261 |
2 |
if (ftst) { |
|
5708
|
171742 |
11968594 |
if (*s == tmp) { |
|
5710
|
108804 |
62938 |
if (PL_expect == XOPERATOR) |
|
5715
|
11442805 |
525789 |
else if (*s == '>') { |
|
5718
|
11376849 |
65956 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
11376849 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
56 |
11376793 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
56 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
11376789 |
4 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
11375979 |
810 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
771 |
95 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
95 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
6422281 |
5020524 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
5722
|
39267 |
4981257 |
else if (*s == '$') |
|
5727
|
245526 |
280263 |
if (PL_expect == XOPERATOR) { |
|
5728
|
20448 |
225078 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
71 |
20377 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
0 |
71 |
if (*s == '=' && !PL_lex_allbrackets && |
|
5736
|
278073 |
2190 |
if (isSPACE(*s) || !isSPACE(*PL_bufptr)) |
|
|
159795 |
118278 |
if (isSPACE(*s) || !isSPACE(*PL_bufptr)) |
|
5745
|
412532 |
436852 |
if (*s == tmp) { |
|
5747
|
333184 |
79348 |
if (PL_expect == XOPERATOR) |
|
5752
|
402473 |
34379 |
if (PL_expect == XOPERATOR) { |
|
5753
|
96845 |
305628 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
166 |
96679 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
0 |
166 |
if (*s == '=' && !PL_lex_allbrackets && |
|
5761
|
34272 |
107 |
if (isSPACE(*s) || !isSPACE(*PL_bufptr)) |
|
|
10927 |
23345 |
if (isSPACE(*s) || !isSPACE(*PL_bufptr)) |
|
5768
|
823876 |
80428 |
if (PL_expect != XOPERATOR) { |
|
5772
|
369005 |
454870 |
if (!*PL_tokenbuf) |
|
5777
|
26758 |
53670 |
if (*s == '*') { |
|
5779
|
25 |
26733 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
10 |
15 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
0 |
10 |
if (*s == '=' && !PL_lex_allbrackets && |
|
5786
|
5019 |
48651 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
40 |
4979 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
0 |
40 |
if (*s == '=' && !PL_lex_allbrackets && |
|
5795
|
19615 |
1223559 |
if (PL_expect == XOPERATOR) { |
|
5796
|
213 |
19402 |
if (s[1] == '=' && !PL_lex_allbrackets && |
|
|
25 |
188 |
if (s[1] == '=' && !PL_lex_allbrackets && |
|
|
0 |
25 |
if (s[1] == '=' && !PL_lex_allbrackets && |
|
5806
|
361369 |
862189 |
if (!PL_tokenbuf[1]) { |
|
5814
|
225 |
3598 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
|
0 |
225 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
5815
|
217 |
8 |
(s[1] == '=' ? LEX_FAKEEOF_ASSIGN : LEX_FAKEEOF_BITWISE)) |
|
5820
|
0 |
3953727 |
if (PL_lex_brackets > 100) |
|
5829
|
370 |
95544 |
if (s[1] == '~' |
|
5830
|
362 |
8 |
&& (PL_expect == XOPERATOR || PL_expect == XTERMORDORDOR)) |
|
5832
|
350 |
12 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
|
0 |
350 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
5843
|
104656 |
20490745 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMMA) |
|
|
24 |
104632 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMMA) |
|
5848
|
416 |
1555040 |
if (s[1] == ':') { |
|
5859
|
54 |
1520388 |
if (!PL_in_my || PL_lex_state != LEX_NORMAL) |
|
|
54 |
0 |
if (!PL_in_my || PL_lex_state != LEX_NORMAL) |
|
5862
|
0 |
54 |
if (*s == '=') { |
|
5878
|
6323 |
6 |
while (isIDFIRST_lazy_if(s,UTF)) { |
|
|
6323 |
0 |
while (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
6323 |
while (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
while (isIDFIRST_lazy_if(s,UTF)) { |
|
|
6323 |
0 |
while (isIDFIRST_lazy_if(s,UTF)) { |
|
|
6321 |
2 |
while (isIDFIRST_lazy_if(s,UTF)) { |
|
|
2 |
0 |
while (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
while (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
while (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
while (isIDFIRST_lazy_if(s,UTF)) { |
|
|
3197 |
3132 |
while (isIDFIRST_lazy_if(s,UTF)) { |
|
5882
|
3107 |
90 |
if (isLOWER(*s) && (tmp = keyword(PL_tokenbuf, len, 0))) { |
|
|
0 |
3107 |
if (isLOWER(*s) && (tmp = keyword(PL_tokenbuf, len, 0))) { |
|
5883
|
0 |
0 |
if (tmp < 0) tmp = -tmp; |
|
5884
|
0 |
0 |
switch (tmp) { |
|
5898
|
3197 |
0 |
sv = newSVpvn_flags(s, len, UTF ? SVf_UTF8 : 0); |
|
|
0 |
3197 |
sv = newSVpvn_flags(s, len, UTF ? SVf_UTF8 : 0); |
|
|
0 |
0 |
sv = newSVpvn_flags(s, len, UTF ? SVf_UTF8 : 0); |
|
|
3197 |
0 |
sv = newSVpvn_flags(s, len, UTF ? SVf_UTF8 : 0); |
|
|
3196 |
1 |
sv = newSVpvn_flags(s, len, UTF ? SVf_UTF8 : 0); |
|
5899
|
73 |
3124 |
if (*d == '(') { |
|
5901
|
1 |
72 |
COPLINE_SET_FROM_MULTI_END; |
|
5902
|
0 |
73 |
if (!d) { |
|
5908
|
0 |
0 |
if (attrs) |
|
5914
|
73 |
3124 |
if (PL_lex_stuff) { |
|
5922
|
3104 |
20 |
if (len == 6 && strnEQ(SvPVX(sv), "unique", len)) { |
|
|
3104 |
0 |
if (len == 6 && strnEQ(SvPVX(sv), "unique", len)) { |
|
|
0 |
3104 |
if (len == 6 && strnEQ(SvPVX(sv), "unique", len)) { |
|
|
0 |
0 |
if (len == 6 && strnEQ(SvPVX(sv), "unique", len)) { |
|
|
2 |
3102 |
if (len == 6 && strnEQ(SvPVX(sv), "unique", len)) { |
|
5924
|
2 |
0 |
if (PL_in_my == KEY_our) { |
|
5933
|
3100 |
22 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "lvalue", len)) { |
|
|
3087 |
13 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "lvalue", len)) { |
|
|
3087 |
0 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "lvalue", len)) { |
|
|
0 |
3087 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "lvalue", len)) { |
|
|
0 |
0 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "lvalue", len)) { |
|
|
3077 |
10 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "lvalue", len)) { |
|
5937
|
23 |
22 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "locked", len)) { |
|
|
10 |
13 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "locked", len)) { |
|
|
10 |
0 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "locked", len)) { |
|
|
0 |
10 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "locked", len)) { |
|
|
0 |
0 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "locked", len)) { |
|
|
6 |
4 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "locked", len)) { |
|
5941
|
17 |
22 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "method", len)) { |
|
|
4 |
13 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "method", len)) { |
|
|
4 |
0 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "method", len)) { |
|
|
0 |
4 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "method", len)) { |
|
|
0 |
0 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "method", len)) { |
|
|
3 |
1 |
else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "method", len)) { |
|
5961
|
3 |
3194 |
if (*s == ':' && s[1] != ':') |
|
|
3 |
0 |
if (*s == ':' && s[1] != ':') |
|
5963
|
3132 |
62 |
else if (s == d) |
|
5968
|
3140 |
54 |
const char tmp |
|
5970
|
3132 |
62 |
if (*s != ';' && *s != '}' && *s != tmp |
|
|
0 |
3132 |
if (*s != ';' && *s != '}' && *s != tmp |
|
5971
|
0 |
0 |
&& (tmp != '=' || *s != ')')) { |
|
|
0 |
0 |
&& (tmp != '=' || *s != ')')) { |
|
5972
|
0 |
0 |
const char q = ((*s == '\'') ? '"' : '\''); |
|
5975
|
0 |
0 |
if (tmp == '=' && !attrs) { |
|
5983
|
0 |
0 |
yyerror( (const char *) |
|
5988
|
0 |
0 |
if (attrs) |
|
5994
|
108 |
3086 |
if (attrs) { |
|
6008
|
20 |
1551826 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_CLOSING) { |
|
|
4 |
16 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_CLOSING) { |
|
6016
|
21357666 |
1508019 |
if (PL_last_lop == PL_oldoldbufptr || PL_last_uni == PL_oldoldbufptr) |
|
|
1724642 |
19633024 |
if (PL_last_lop == PL_oldoldbufptr || PL_last_uni == PL_oldoldbufptr) |
|
6024
|
7904584 |
27464345 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
|
71 |
7904513 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
6030
|
4 |
22865092 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_CLOSING) |
|
|
3 |
1 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_CLOSING) |
|
6035
|
6160895 |
16704198 |
if (*s == '{') |
|
6039
|
3953725 |
0 |
if (PL_lex_brackets && PL_lex_brackstack[PL_lex_brackets-1] == XFAKEEOF) |
|
|
1 |
3953724 |
if (PL_lex_brackets && PL_lex_brackstack[PL_lex_brackets-1] == XFAKEEOF) |
|
6042
|
0 |
3953724 |
if (PL_lex_brackets <= 0) |
|
6047
|
153918 |
3799806 |
if (PL_lex_state == LEX_INTERPNORMAL) { |
|
6048
|
146639 |
7279 |
if (PL_lex_brackets == 0) { |
|
6049
|
605 |
146034 |
if (*s == '-' && s[1] == '>') |
|
|
34 |
571 |
if (*s == '-' && s[1] == '>') |
|
6051
|
122837 |
23768 |
else if (*s != '[' && *s != '{') |
|
6059
|
50 |
22937387 |
if (PL_lex_brackets > 100) { |
|
6068
|
8005294 |
0 |
while (s < PL_bufend && SPACE_OR_TAB(*s)) |
|
|
101445 |
7903849 |
while (s < PL_bufend && SPACE_OR_TAB(*s)) |
|
6072
|
7903849 |
0 |
if (d < PL_bufend && *d == '-') { |
|
|
19844 |
7884005 |
if (d < PL_bufend && *d == '-') { |
|
6075
|
19844 |
0 |
while (d < PL_bufend && SPACE_OR_TAB(*d)) |
|
|
0 |
19844 |
while (d < PL_bufend && SPACE_OR_TAB(*d)) |
|
6078
|
7903849 |
0 |
if (d < PL_bufend && isIDFIRST_lazy_if(d,UTF)) { |
|
|
7876624 |
27225 |
if (d < PL_bufend && isIDFIRST_lazy_if(d,UTF)) { |
|
|
7876624 |
0 |
if (d < PL_bufend && isIDFIRST_lazy_if(d,UTF)) { |
|
|
27 |
7876597 |
if (d < PL_bufend && isIDFIRST_lazy_if(d,UTF)) { |
|
|
0 |
27 |
if (d < PL_bufend && isIDFIRST_lazy_if(d,UTF)) { |
|
|
7876597 |
0 |
if (d < PL_bufend && isIDFIRST_lazy_if(d,UTF)) { |
|
|
7875490 |
1107 |
if (d < PL_bufend && isIDFIRST_lazy_if(d,UTF)) { |
|
|
1080 |
54 |
if (d < PL_bufend && isIDFIRST_lazy_if(d,UTF)) { |
|
|
4 |
50 |
if (d < PL_bufend && isIDFIRST_lazy_if(d,UTF)) { |
|
|
4 |
0 |
if (d < PL_bufend && isIDFIRST_lazy_if(d,UTF)) { |
|
|
0 |
4 |
if (d < PL_bufend && isIDFIRST_lazy_if(d,UTF)) { |
|
|
4589486 |
3314363 |
if (d < PL_bufend && isIDFIRST_lazy_if(d,UTF)) { |
|
6081
|
4696947 |
0 |
while (d < PL_bufend && SPACE_OR_TAB(*d)) |
|
|
107461 |
4589486 |
while (d < PL_bufend && SPACE_OR_TAB(*d)) |
|
6083
|
4452866 |
136620 |
if (*d == '}') { |
|
6086
|
11756 |
4441110 |
if (minus) |
|
6105
|
281274 |
1367818 |
if (PL_oldoldbufptr == PL_last_lop) |
|
6111
|
492 |
1648600 |
if (*s == '}') { |
|
6112
|
3 |
489 |
if (PL_expect == XREF && PL_lex_state == LEX_INTERPNORMAL) { |
|
|
1 |
2 |
if (PL_expect == XREF && PL_lex_state == LEX_INTERPNORMAL) { |
|
6137
|
1373710 |
274890 |
if (*s == '\'' || *s == '"' || *s == '`') { |
|
|
1 |
1373709 |
if (*s == '\'' || *s == '"' || *s == '`') { |
|
6139
|
4035185 |
0 |
for (t++; t < PL_bufend && *t != *s;) |
|
|
3760294 |
274891 |
for (t++; t < PL_bufend && *t != *s;) |
|
6140
|
97894 |
3662400 |
if (*t++ == '\\' && (*t == '\\' || *t == *s)) |
|
|
97886 |
8 |
if (*t++ == '\\' && (*t == '\\' || *t == *s)) |
|
|
8667 |
89219 |
if (*t++ == '\\' && (*t == '\\' || *t == *s)) |
|
6144
|
5665 |
1368044 |
else if (*s == 'q') { |
|
6145
|
5665 |
0 |
if (++t < PL_bufend |
|
6146
|
5657 |
8 |
&& (!isWORDCHAR(*t) |
|
6147
|
2110 |
3547 |
|| ((*t == 'q' || *t == 'x') && ++t < PL_bufend |
|
|
0 |
3547 |
|| ((*t == 'q' || *t == 'x') && ++t < PL_bufend |
|
6148
|
0 |
3547 |
&& !isWORDCHAR(*t)))) |
|
6155
|
3560 |
0 |
while (t < PL_bufend && isSPACE(*t)) |
|
|
5 |
3555 |
while (t < PL_bufend && isSPACE(*t)) |
|
6158
|
3555 |
0 |
if (t+1 < PL_bufend && t[0] == '=' && t[1] == '>') { |
|
|
5 |
3550 |
if (t+1 < PL_bufend && t[0] == '=' && t[1] == '>') { |
|
|
2 |
3 |
if (t+1 < PL_bufend && t[0] == '=' && t[1] == '>') { |
|
6163
|
3553 |
0 |
if (term && (tmps = strchr("([{< )]}> )]}>",term))) |
|
|
3536 |
17 |
if (term && (tmps = strchr("([{< )]}> )]}>",term))) |
|
6166
|
17 |
3536 |
if (open == close) |
|
6167
|
250 |
0 |
for (t++; t < PL_bufend; t++) { |
|
6168
|
0 |
250 |
if (*t == '\\' && t+1 < PL_bufend && open != '\\') |
|
|
0 |
0 |
if (*t == '\\' && t+1 < PL_bufend && open != '\\') |
|
6170
|
233 |
17 |
else if (*t == open) |
|
6174
|
25041 |
0 |
for (t++; t < PL_bufend; t++) { |
|
6175
|
0 |
25041 |
if (*t == '\\' && t+1 < PL_bufend) |
|
|
0 |
0 |
if (*t == '\\' && t+1 < PL_bufend) |
|
6177
|
3537 |
21504 |
else if (*t == close && --brackets <= 0) |
|
|
1 |
3536 |
else if (*t == close && --brackets <= 0) |
|
6179
|
1 |
21504 |
else if (*t == open) |
|
6187
|
0 |
15406 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
15406 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
15406 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
15406 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
15406 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
15406 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
2110 |
13296 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
6190
|
1362661 |
5383 |
else if (isWORDCHAR_lazy_if(t,UTF)) { |
|
|
1362661 |
0 |
else if (isWORDCHAR_lazy_if(t,UTF)) { |
|
|
120 |
1362541 |
else if (isWORDCHAR_lazy_if(t,UTF)) { |
|
|
0 |
120 |
else if (isWORDCHAR_lazy_if(t,UTF)) { |
|
|
1362538 |
3 |
else if (isWORDCHAR_lazy_if(t,UTF)) { |
|
|
1362151 |
387 |
else if (isWORDCHAR_lazy_if(t,UTF)) { |
|
|
505 |
2 |
else if (isWORDCHAR_lazy_if(t,UTF)) { |
|
|
0 |
2 |
else if (isWORDCHAR_lazy_if(t,UTF)) { |
|
|
0 |
0 |
else if (isWORDCHAR_lazy_if(t,UTF)) { |
|
|
0 |
0 |
else if (isWORDCHAR_lazy_if(t,UTF)) { |
|
|
1102846 |
265198 |
else if (isWORDCHAR_lazy_if(t,UTF)) { |
|
6192
|
0 |
1233244 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
1227875 |
5369 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
1227875 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
544 |
1227331 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
544 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
1227328 |
3 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
1226041 |
1287 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
264809 |
966604 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
1831 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
389 |
1442 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
|
0 |
0 |
while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF)) |
|
6195
|
1861632 |
497 |
while (t < PL_bufend && isSPACE(*t)) |
|
|
213531 |
1648101 |
while (t < PL_bufend && isSPACE(*t)) |
|
6199
|
1648101 |
497 |
if (t < PL_bufend && ((*t == ',' && (*s == 'q' || !isLOWER(*s))) |
|
|
263 |
1647838 |
if (t < PL_bufend && ((*t == ',' && (*s == 'q' || !isLOWER(*s))) |
|
|
262 |
1 |
if (t < PL_bufend && ((*t == ',' && (*s == 'q' || !isLOWER(*s))) |
|
|
258 |
4 |
if (t < PL_bufend && ((*t == ',' && (*s == 'q' || !isLOWER(*s))) |
|
6200
|
5921 |
1642175 |
|| (*t == '=' && t[1] == '>'))) |
|
|
5912 |
9 |
|| (*t == '=' && t[1] == '>'))) |
|
6202
|
1471060 |
171621 |
if (PL_expect == XREF) |
|
6212
|
9687878 |
12753134 |
if (isSPACE(*s) || *s == '#') |
|
|
258 |
9687620 |
if (isSPACE(*s) || *s == '#') |
|
6214
|
22440867 |
145 |
TOKEN(formbrack ? '=' : '{'); |
|
6216
|
22937270 |
6 |
if (PL_lex_brackets && PL_lex_brackstack[PL_lex_brackets-1] == XFAKEEOF) |
|
|
24 |
22937246 |
if (PL_lex_brackets && PL_lex_brackstack[PL_lex_brackets-1] == XFAKEEOF) |
|
6220
|
6 |
22937387 |
if (PL_lex_brackets <= 0) |
|
6225
|
498434 |
22438959 |
if (PL_lex_state == LEX_INTERPNORMAL) { |
|
6226
|
456593 |
41841 |
if (PL_lex_brackets == 0) { |
|
6227
|
1 |
456592 |
if (PL_expect & XFAKEBRACK) { |
|
6240
|
100883 |
355709 |
if (PL_lex_inwhat == OP_SUBST && PL_lex_repl == PL_linestr |
|
|
89843 |
11040 |
if (PL_lex_inwhat == OP_SUBST && PL_lex_repl == PL_linestr |
|
6241
|
89843 |
0 |
&& SvEVALED(PL_lex_repl)) |
|
6243
|
5298 |
361451 |
else if (*s == '-' && s[1] == '>') |
|
|
252 |
5046 |
else if (*s == '-' && s[1] == '>') |
|
6245
|
356353 |
10144 |
else if (*s != '[' && *s != '{') |
|
6249
|
6 |
22937386 |
if (PL_expect & XFAKEBRACK) { |
|
6259
|
22937245 |
141 |
force_next(formbrack ? '.' : '}'); |
|
6260
|
141 |
22937245 |
if (formbrack) LEAVE; |
|
6265
|
0 |
22937386 |
if (formbrack == 2) { /* means . where arguments were expected */ |
|
6273
|
1291786 |
1707684 |
if (*s++ == '&') { |
|
6274
|
14297 |
1277489 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
|
0 |
14297 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
6275
|
14297 |
0 |
(*s == '=' ? LEX_FAKEEOF_ASSIGN : LEX_FAKEEOF_LOGIC)) { |
|
6282
|
547190 |
1160494 |
if (PL_expect == XOPERATOR) { |
|
6283
|
2 |
547188 |
if (PL_bufptr == PL_linestart && ckWARN(WARN_SEMICOLON) |
|
|
1 |
1 |
if (PL_bufptr == PL_linestart && ckWARN(WARN_SEMICOLON) |
|
6284
|
1 |
0 |
&& isIDFIRST_lazy_if(s,UTF)) |
|
|
1 |
0 |
&& isIDFIRST_lazy_if(s,UTF)) |
|
|
0 |
1 |
&& isIDFIRST_lazy_if(s,UTF)) |
|
|
0 |
0 |
&& isIDFIRST_lazy_if(s,UTF)) |
|
|
1 |
0 |
&& isIDFIRST_lazy_if(s,UTF)) |
|
|
1 |
0 |
&& isIDFIRST_lazy_if(s,UTF)) |
|
|
0 |
0 |
&& isIDFIRST_lazy_if(s,UTF)) |
|
|
0 |
0 |
&& isIDFIRST_lazy_if(s,UTF)) |
|
|
0 |
0 |
&& isIDFIRST_lazy_if(s,UTF)) |
|
|
0 |
0 |
&& isIDFIRST_lazy_if(s,UTF)) |
|
|
1 |
0 |
&& isIDFIRST_lazy_if(s,UTF)) |
|
6290
|
2804 |
544386 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
|
0 |
2804 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
6291
|
2795 |
9 |
(*s == '=' ? LEX_FAKEEOF_ASSIGN : LEX_FAKEEOF_BITWISE)) { |
|
6302
|
898019 |
262474 |
if (PL_tokenbuf[1]) { |
|
6313
|
1226231 |
332734 |
if (*s++ == '|') { |
|
6314
|
28159 |
1198072 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
|
4 |
28155 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
6315
|
19869 |
8290 |
(*s == '=' ? LEX_FAKEEOF_ASSIGN : LEX_FAKEEOF_LOGIC)) { |
|
6322
|
27637 |
305097 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
|
0 |
27637 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
6323
|
27596 |
41 |
(*s == '=' ? LEX_FAKEEOF_ASSIGN : LEX_FAKEEOF_BITWISE)) { |
|
6332
|
533553 |
24710315 |
if (tmp == '=') { |
|
6333
|
4013 |
529540 |
if (!PL_lex_allbrackets && |
|
|
0 |
4013 |
if (!PL_lex_allbrackets && |
|
6340
|
7170204 |
17540111 |
if (tmp == '>') { |
|
6341
|
148771 |
7021433 |
if (!PL_lex_allbrackets && |
|
|
2 |
148769 |
if (!PL_lex_allbrackets && |
|
6348
|
1864553 |
15675558 |
if (tmp == '~') |
|
6350
|
15675558 |
0 |
if (tmp && isSPACE(*s) && ckWARN(WARN_SYNTAX) |
|
|
44912 |
15630646 |
if (tmp && isSPACE(*s) && ckWARN(WARN_SYNTAX) |
|
|
13759 |
31153 |
if (tmp && isSPACE(*s) && ckWARN(WARN_SYNTAX) |
|
6351
|
53 |
13706 |
&& strchr("+-*/%.^&|<",tmp)) |
|
6355
|
448015 |
15227534 |
if (PL_expect == XSTATE && isALPHA(tmp) && |
|
|
448015 |
0 |
if (PL_expect == XSTATE && isALPHA(tmp) && |
|
|
2 |
448013 |
if (PL_expect == XSTATE && isALPHA(tmp) && |
|
6356
|
2 |
0 |
(s == PL_linestart+1 || s[-2] == '\n') ) |
|
6358
|
446156 |
1859 |
if ((PL_in_eval && !PL_rsfp && !PL_parser->filtered) |
|
|
1 |
446155 |
if ((PL_in_eval && !PL_rsfp && !PL_parser->filtered) |
|
|
0 |
1 |
if ((PL_in_eval && !PL_rsfp && !PL_parser->filtered) |
|
6359
|
1 |
448013 |
|| PL_lex_state != LEX_NORMAL) { |
|
6361
|
0 |
10 |
while (s < d) { |
|
6362
|
4 |
6 |
if (*s++ == '\n') { |
|
6364
|
2 |
2 |
if (strnEQ(s,"=cut",4)) { |
|
6366
|
2 |
0 |
if (s) |
|
6390
|
145 |
15227389 |
if (PL_expect == XBLOCK) { |
|
6395
|
6 |
145 |
while (SPACE_OR_TAB(*t) || *t == '\r') |
|
|
0 |
145 |
while (SPACE_OR_TAB(*t) || *t == '\r') |
|
6398
|
145 |
0 |
if (*t == '\n' || *t == '#') { |
|
6408
|
1827749 |
13399640 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_ASSIGN) { |
|
|
0 |
1827749 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_ASSIGN) { |
|
6418
|
189236 |
1228718 |
if (tmp == '=') { |
|
6422
|
14 |
189222 |
if (*s == '~' && ckWARN(WARN_SYNTAX)) { |
|
|
7 |
7 |
if (*s == '~' && ckWARN(WARN_SYNTAX)) { |
|
6425
|
14 |
0 |
while (t < PL_bufend && isSPACE(*t)) |
|
|
7 |
7 |
while (t < PL_bufend && isSPACE(*t)) |
|
6428
|
4 |
3 |
if (*t == '/' || *t == '?' || |
|
|
2 |
2 |
if (*t == '/' || *t == '?' || |
|
6429
|
1 |
1 |
((*t == 'm' || *t == 's' || *t == 'y') |
|
6430
|
0 |
3 |
&& !isWORDCHAR(t[1])) || |
|
|
1 |
0 |
&& !isWORDCHAR(t[1])) || |
|
6431
|
1 |
0 |
(*t == 't' && t[1] == 'r' && !isWORDCHAR(t[2]))) |
|
|
1 |
0 |
(*t == 't' && t[1] == 'r' && !isWORDCHAR(t[2]))) |
|
6435
|
54 |
189182 |
if (!PL_lex_allbrackets && |
|
|
0 |
54 |
if (!PL_lex_allbrackets && |
|
6442
|
151424 |
1077294 |
if (tmp == '~') |
|
6448
|
226533 |
452716 |
if (PL_expect != XOPERATOR) { |
|
6449
|
47070 |
179463 |
if (s[1] != '<' && !strchr(s,'>')) |
|
|
2 |
47068 |
if (s[1] != '<' && !strchr(s,'>')) |
|
6451
|
179463 |
47070 |
if (s[1] == '<') |
|
6461
|
20251 |
432465 |
if (tmp == '<') { |
|
6462
|
4364 |
15887 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
5 |
4359 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
0 |
5 |
if (*s == '=' && !PL_lex_allbrackets && |
|
6469
|
79288 |
353177 |
if (tmp == '=') { |
|
6471
|
15790 |
63498 |
if (tmp == '>') { |
|
6472
|
14 |
15776 |
if (!PL_lex_allbrackets && |
|
|
0 |
14 |
if (!PL_lex_allbrackets && |
|
6480
|
5348 |
58150 |
if (!PL_lex_allbrackets && |
|
|
0 |
5348 |
if (!PL_lex_allbrackets && |
|
6489
|
11044 |
342133 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) { |
|
|
1 |
11043 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) { |
|
6498
|
15919 |
606226 |
if (tmp == '>') { |
|
6499
|
58 |
15861 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
2 |
56 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
0 |
2 |
if (*s == '=' && !PL_lex_allbrackets && |
|
6506
|
180171 |
426055 |
else if (tmp == '=') { |
|
6507
|
9620 |
170551 |
if (!PL_lex_allbrackets && |
|
|
0 |
9620 |
if (!PL_lex_allbrackets && |
|
6516
|
10770 |
415285 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) { |
|
|
0 |
10770 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) { |
|
6525
|
4 |
60541553 |
if (PL_expect == XOPERATOR) { |
|
6526
|
2 |
2 |
if (PL_lex_formbrack && PL_lex_brackets == PL_lex_formbrack) { |
|
|
2 |
0 |
if (PL_lex_formbrack && PL_lex_brackets == PL_lex_formbrack) { |
|
6531
|
113712 |
60427843 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
113712 |
0 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
113712 |
0 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
0 |
113712 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
0 |
0 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
113712 |
0 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
113707 |
5 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
49058 |
64649 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
5 |
0 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
0 |
5 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
0 |
0 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
0 |
0 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
0 |
0 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
0 |
0 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
0 |
0 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
|
49047 |
11 |
if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-@", s[2]))) { |
|
6535
|
0 |
113700 |
if (PL_expect == XOPERATOR) |
|
6537
|
49037 |
64663 |
if (!PL_tokenbuf[1]) |
|
6547
|
2 |
60427851 |
if (PL_expect == XOPERATOR) |
|
6549
|
609096 |
59818757 |
if (!PL_tokenbuf[1]) { |
|
6550
|
1 |
609095 |
if (s == PL_bufend) |
|
6558
|
4909520 |
54909237 |
if (PL_lex_state == LEX_NORMAL || PL_lex_brackets) |
|
|
267312 |
4642208 |
if (PL_lex_state == LEX_NORMAL || PL_lex_brackets) |
|
6561
|
1812097 |
58006660 |
if ((PL_expect != XREF || PL_oldoldbufptr == PL_last_lop) |
|
|
231458 |
1580639 |
if ((PL_expect != XREF || PL_oldoldbufptr == PL_last_lop) |
|
6562
|
51874540 |
6363578 |
&& intuit_more(s)) { |
|
6563
|
2001519 |
49873021 |
if (*s == '[') { |
|
6565
|
611309 |
1390210 |
if (ckWARN(WARN_SYNTAX)) { |
|
6568
|
2506 |
1292189 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
1252885 |
39304 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
1252885 |
0 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
16 |
1252869 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
0 |
16 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
1252869 |
0 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
1252735 |
134 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
648623 |
643416 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
150 |
0 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
79 |
71 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
0 |
0 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
0 |
0 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
0 |
0 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
0 |
0 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
0 |
0 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
|
32178 |
611309 |
while (isSPACE(*t) || isWORDCHAR_lazy_if(t,UTF) || *t == '$') |
|
6570
|
1 |
611308 |
if (*t++ == ',') { |
|
6572
|
2 |
0 |
while (t < PL_bufend && *t != ']') |
|
|
1 |
1 |
while (t < PL_bufend && *t != ']') |
|
6580
|
2652051 |
47220970 |
else if (*s == '{') { |
|
6583
|
144757 |
2507294 |
if (strEQ(PL_tokenbuf+1, "SIG") && ckWARN(WARN_SYNTAX) |
|
|
110884 |
33873 |
if (strEQ(PL_tokenbuf+1, "SIG") && ckWARN(WARN_SYNTAX) |
|
|
110806 |
78 |
if (strEQ(PL_tokenbuf+1, "SIG") && ckWARN(WARN_SYNTAX) |
|
|
110804 |
2541247 |
if (strEQ(PL_tokenbuf+1, "SIG") && ckWARN(WARN_SYNTAX) |
|
|
41895 |
68909 |
if (strEQ(PL_tokenbuf+1, "SIG") && ckWARN(WARN_SYNTAX) |
|
6584
|
41895 |
0 |
&& (t = strchr(s, '}')) && (t = strchr(t, '='))) |
|
|
20366 |
21529 |
&& (t = strchr(s, '}')) && (t = strchr(t, '='))) |
|
6589
|
20690 |
20366 |
} while (isSPACE(*t)); |
|
6590
|
20366 |
0 |
if (isIDFIRST_lazy_if(t,UTF)) { |
|
|
20366 |
0 |
if (isIDFIRST_lazy_if(t,UTF)) { |
|
|
0 |
20366 |
if (isIDFIRST_lazy_if(t,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(t,UTF)) { |
|
|
20366 |
0 |
if (isIDFIRST_lazy_if(t,UTF)) { |
|
|
20345 |
21 |
if (isIDFIRST_lazy_if(t,UTF)) { |
|
|
20 |
1 |
if (isIDFIRST_lazy_if(t,UTF)) { |
|
|
0 |
1 |
if (isIDFIRST_lazy_if(t,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(t,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(t,UTF)) { |
|
|
17563 |
2803 |
if (isIDFIRST_lazy_if(t,UTF)) { |
|
6594
|
2385 |
17563 |
while (isSPACE(*t)) |
|
6596
|
55 |
17508 |
if (*t == ';' |
|
6597
|
55 |
0 |
&& get_cvn_flags(tmpbuf, len, UTF ? SVf_UTF8 : 0)) |
|
|
0 |
55 |
&& get_cvn_flags(tmpbuf, len, UTF ? SVf_UTF8 : 0)) |
|
|
0 |
0 |
&& get_cvn_flags(tmpbuf, len, UTF ? SVf_UTF8 : 0)) |
|
|
55 |
0 |
&& get_cvn_flags(tmpbuf, len, UTF ? SVf_UTF8 : 0)) |
|
|
53 |
2 |
&& get_cvn_flags(tmpbuf, len, UTF ? SVf_UTF8 : 0)) |
|
|
3 |
52 |
&& get_cvn_flags(tmpbuf, len, UTF ? SVf_UTF8 : 0)) |
|
6598
|
3 |
0 |
Perl_warner(aTHX_ packWARN(WARN_SYNTAX), |
|
|
3 |
0 |
Perl_warner(aTHX_ packWARN(WARN_SYNTAX), |
|
6600
|
0 |
3 |
UTF8fARG(UTF, len, tmpbuf)); |
|
|
0 |
0 |
UTF8fARG(UTF, len, tmpbuf)); |
|
|
1 |
2 |
UTF8fARG(UTF, len, tmpbuf)); |
|
6607
|
54909237 |
4909520 |
if (PL_lex_state == LEX_NORMAL && isSPACE((char)tmp)) { |
|
|
19699948 |
35209289 |
if (PL_lex_state == LEX_NORMAL && isSPACE((char)tmp)) { |
|
6609
|
161013 |
19538935 |
if (!islop || PL_last_lop_op == OP_GREPSTART) |
|
|
25803 |
135210 |
if (!islop || PL_last_lop_op == OP_GREPSTART) |
|
6611
|
47128 |
88082 |
else if (strchr("$@\"'`q", *s)) |
|
6613
|
3132 |
84950 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
3122 |
10 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
3122 |
0 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
0 |
3122 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
0 |
0 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
3122 |
0 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
3122 |
0 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
20 |
3112 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
0 |
0 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
0 |
0 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
0 |
0 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
0 |
0 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
0 |
0 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
0 |
0 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
|
0 |
0 |
else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF)) |
|
6615
|
86251 |
1811 |
else if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
86251 |
0 |
else if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
9 |
86242 |
else if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
9 |
else if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
86242 |
0 |
else if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
86190 |
52 |
else if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
61 |
0 |
else if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
else if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
else if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
else if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
54731 |
33331 |
else if (isIDFIRST_lazy_if(s,UTF)) { |
|
6619
|
54391 |
340 |
if ((t2 = keyword(tmpbuf, len, 0))) { |
|
6621
|
53675 |
716 |
switch (t2) { |
|
6640
|
310 |
33021 |
else if (isDIGIT(*s)) |
|
6642
|
2435 |
30586 |
else if (*s == '.' && isDIGIT(s[1])) |
|
|
0 |
2435 |
else if (*s == '.' && isDIGIT(s[1])) |
|
6644
|
30079 |
2942 |
else if ((*s == '?' || *s == '-' || *s == '+') |
|
|
18 |
30061 |
else if ((*s == '?' || *s == '-' || *s == '+') |
|
6645
|
2 |
2958 |
&& !isSPACE(s[1]) && s[1] != '=') |
|
|
2 |
0 |
&& !isSPACE(s[1]) && s[1] != '=') |
|
6647
|
5 |
33014 |
else if (*s == '/' && !isSPACE(s[1]) && s[1] != '=' |
|
|
3 |
2 |
else if (*s == '/' && !isSPACE(s[1]) && s[1] != '=' |
|
|
2 |
1 |
else if (*s == '/' && !isSPACE(s[1]) && s[1] != '=' |
|
6648
|
2 |
0 |
&& s[1] != '/') |
|
6652
|
2995 |
30022 |
else if (*s == '<' && s[1] == '<' && !isSPACE(s[2]) |
|
|
2986 |
9 |
else if (*s == '<' && s[1] == '<' && !isSPACE(s[2]) |
|
|
2986 |
0 |
else if (*s == '<' && s[1] == '<' && !isSPACE(s[2]) |
|
6653
|
2986 |
0 |
&& s[2] != '=') |
|
6661
|
3 |
8199869 |
if (PL_expect == XOPERATOR) |
|
6665
|
941939 |
7257933 |
if (!PL_tokenbuf[1]) { |
|
6668
|
7158246 |
99687 |
if (PL_lex_state == LEX_NORMAL) |
|
6670
|
17201 |
7240732 |
if ((PL_expect != XREF || PL_oldoldbufptr == PL_last_lop) && intuit_more(s)) { |
|
|
13090 |
4111 |
if ((PL_expect != XREF || PL_oldoldbufptr == PL_last_lop) && intuit_more(s)) { |
|
|
6673619 |
580203 |
if ((PL_expect != XREF || PL_oldoldbufptr == PL_last_lop) && intuit_more(s)) { |
|
6671
|
74085 |
6599534 |
if (*s == '{') |
|
6675
|
97059 |
6576560 |
if (*s == '[' || *s == '{') { |
|
6676
|
25211 |
71848 |
if (ckWARN(WARN_SYNTAX)) { |
|
6678
|
52757 |
0 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
52747 |
10 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
52747 |
0 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
0 |
52747 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
0 |
0 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
52747 |
0 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
52737 |
10 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
21589 |
31158 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
10 |
0 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
5 |
5 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
0 |
0 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
0 |
0 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
0 |
0 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
0 |
0 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
0 |
0 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
|
5952 |
25211 |
while (*t && (isWORDCHAR_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t))) |
|
6679
|
27546 |
0 |
t += UTF ? UTF8SKIP(t) : 1; |
|
|
0 |
27546 |
t += UTF ? UTF8SKIP(t) : 1; |
|
|
0 |
0 |
t += UTF ? UTF8SKIP(t) : 1; |
|
|
27546 |
0 |
t += UTF ? UTF8SKIP(t) : 1; |
|
|
5 |
27541 |
t += UTF ? UTF8SKIP(t) : 1; |
|
6680
|
6 |
25205 |
if (*t == '}' || *t == ']') { |
|
6684
|
6 |
0 |
Perl_warner(aTHX_ packWARN(WARN_SYNTAX), |
|
|
6 |
0 |
Perl_warner(aTHX_ packWARN(WARN_SYNTAX), |
|
|
6 |
0 |
Perl_warner(aTHX_ packWARN(WARN_SYNTAX), |
|
|
6 |
0 |
Perl_warner(aTHX_ packWARN(WARN_SYNTAX), |
|
6686
|
0 |
6 |
UTF8fARG(UTF, t-PL_bufptr, PL_bufptr), |
|
|
0 |
0 |
UTF8fARG(UTF, t-PL_bufptr, PL_bufptr), |
|
|
2 |
4 |
UTF8fARG(UTF, t-PL_bufptr, PL_bufptr), |
|
6687
|
0 |
6 |
UTF8fARG(UTF, t-PL_bufptr-1, PL_bufptr+1)); |
|
|
0 |
0 |
UTF8fARG(UTF, t-PL_bufptr-1, PL_bufptr+1)); |
|
|
2 |
4 |
UTF8fARG(UTF, t-PL_bufptr-1, PL_bufptr+1)); |
|
6697
|
11 |
1248055 |
if (PL_expect == XTERMORDORDOR && s[1] == '/') { |
|
|
11 |
0 |
if (PL_expect == XTERMORDORDOR && s[1] == '/') { |
|
6698
|
0 |
11 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
|
0 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
6699
|
0 |
0 |
(s[2] == '=' ? LEX_FAKEEOF_ASSIGN : LEX_FAKEEOF_LOGIC)) |
|
6705
|
1624885 |
1175000 |
if (PL_expect == XOPERATOR) { |
|
6707
|
1551826 |
73059 |
if(tmp == '?') { |
|
6708
|
115257 |
1436569 |
if (!PL_lex_allbrackets && |
|
|
2 |
115255 |
if (!PL_lex_allbrackets && |
|
6718
|
28964 |
44095 |
if(tmp == '/') { |
|
6720
|
9 |
28955 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
|
0 |
9 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= |
|
6721
|
3 |
6 |
(*s == '=' ? LEX_FAKEEOF_ASSIGN : |
|
6730
|
2428 |
41667 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
24 |
2404 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
0 |
24 |
if (*s == '=' && !PL_lex_allbrackets && |
|
6741
|
1 |
1174999 |
if (PL_oldoldbufptr == PL_last_uni |
|
|
0 |
0 |
if (PL_oldoldbufptr == PL_last_uni |
|
|
0 |
0 |
if (PL_oldoldbufptr == PL_last_uni |
|
|
0 |
0 |
if (PL_oldoldbufptr == PL_last_uni |
|
6742
|
0 |
1 |
&& (*PL_last_uni != 's' || s - PL_last_uni < 5 |
|
|
0 |
0 |
&& (*PL_last_uni != 's' || s - PL_last_uni < 5 |
|
6743
|
0 |
0 |
|| memNE(PL_last_uni, "study", 5) |
|
6744
|
0 |
0 |
|| isWORDCHAR_lazy_if(PL_last_uni+5,UTF) |
|
|
0 |
0 |
|| isWORDCHAR_lazy_if(PL_last_uni+5,UTF) |
|
|
0 |
0 |
|| isWORDCHAR_lazy_if(PL_last_uni+5,UTF) |
|
|
0 |
0 |
|| isWORDCHAR_lazy_if(PL_last_uni+5,UTF) |
|
|
0 |
0 |
|| isWORDCHAR_lazy_if(PL_last_uni+5,UTF) |
|
|
0 |
0 |
|| isWORDCHAR_lazy_if(PL_last_uni+5,UTF) |
|
|
0 |
0 |
|| isWORDCHAR_lazy_if(PL_last_uni+5,UTF) |
|
|
0 |
0 |
|| isWORDCHAR_lazy_if(PL_last_uni+5,UTF) |
|
|
0 |
0 |
|| isWORDCHAR_lazy_if(PL_last_uni+5,UTF) |
|
|
0 |
0 |
|| isWORDCHAR_lazy_if(PL_last_uni+5,UTF) |
|
|
0 |
0 |
|| isWORDCHAR_lazy_if(PL_last_uni+5,UTF) |
|
6747
|
4 |
1174996 |
if (*s == '?') |
|
6754
|
8 |
2308295 |
if (PL_lex_formbrack && PL_lex_brackets == PL_lex_formbrack |
|
|
5 |
3 |
if (PL_lex_formbrack && PL_lex_brackets == PL_lex_formbrack |
|
6758
|
5 |
0 |
&& (s[1] == '\n' || (s[1] == '\r' && s[2] == '\n')) |
|
|
0 |
5 |
&& (s[1] == '\n' || (s[1] == '\r' && s[2] == '\n')) |
|
|
0 |
0 |
&& (s[1] == '\n' || (s[1] == '\r' && s[2] == '\n')) |
|
6760
|
0 |
0 |
&& (s == PL_linestart || s[-1] == '\n') ) |
|
|
0 |
0 |
&& (s == PL_linestart || s[-1] == '\n') ) |
|
6766
|
8 |
2308295 |
if (PL_expect == XSTATE && s[1] == '.' && s[2] == '.') { |
|
|
1 |
7 |
if (PL_expect == XSTATE && s[1] == '.' && s[2] == '.') { |
|
|
1 |
0 |
if (PL_expect == XSTATE && s[1] == '.' && s[2] == '.') { |
|
6770
|
8210 |
2300092 |
if (PL_expect == XOPERATOR || !isDIGIT(s[1])) { |
|
|
3209 |
5001 |
if (PL_expect == XOPERATOR || !isDIGIT(s[1])) { |
|
6772
|
95298 |
2208003 |
if (*s == tmp) { |
|
6773
|
153 |
95145 |
if (!PL_lex_allbrackets && |
|
|
0 |
153 |
if (!PL_lex_allbrackets && |
|
6779
|
172 |
95126 |
if (*s == tmp) { |
|
6787
|
552209 |
1655794 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
676 |
551533 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
0 |
676 |
if (*s == '=' && !PL_lex_allbrackets && |
|
6799
|
20 |
12749909 |
if (PL_expect == XOPERATOR) |
|
6805
|
12263 |
14019110 |
COPLINE_SET_FROM_MULTI_END; |
|
6807
|
4 |
14031369 |
if (PL_expect == XOPERATOR) { |
|
6808
|
2 |
2 |
if (PL_lex_formbrack && PL_lex_brackets == PL_lex_formbrack) { |
|
|
2 |
0 |
if (PL_lex_formbrack && PL_lex_brackets == PL_lex_formbrack) { |
|
6814
|
0 |
14031371 |
if (!s) |
|
6822
|
6 |
9785806 |
if (PL_expect == XOPERATOR) { |
|
6823
|
2 |
4 |
if (PL_lex_formbrack && PL_lex_brackets == PL_lex_formbrack) { |
|
|
2 |
0 |
if (PL_lex_formbrack && PL_lex_brackets == PL_lex_formbrack) { |
|
6829
|
0 |
9785810 |
if (!s) |
|
6834
|
9785810 |
0 |
for (d = SvPV(PL_lex_stuff, len); len; len--, d++) { |
|
|
74908905 |
4682079 |
for (d = SvPV(PL_lex_stuff, len); len; len--, d++) { |
|
6835
|
72320957 |
2587948 |
if (*d == '$' || *d == '@' || *d == '\\' || !UTF8_IS_INVARIANT((U8)*d)) { |
|
|
69817657 |
2503300 |
if (*d == '$' || *d == '@' || *d == '\\' || !UTF8_IS_INVARIANT((U8)*d)) { |
|
|
12483 |
69805174 |
if (*d == '$' || *d == '@' || *d == '\\' || !UTF8_IS_INVARIANT((U8)*d)) { |
|
6840
|
4682079 |
5103731 |
if (pl_yylval.ival == OP_CONST) |
|
6841
|
8673 |
4673406 |
COPLINE_SET_FROM_MULTI_END; |
|
6847
|
0 |
38485 |
if (PL_expect == XOPERATOR) |
|
6849
|
0 |
38485 |
if (!s) |
|
6856
|
37446 |
1216440 |
if (PL_lex_inwhat && isDIGIT(*s)) |
|
|
2 |
37444 |
if (PL_lex_inwhat && isDIGIT(*s)) |
|
6859
|
0 |
1253886 |
if (PL_expect == XOPERATOR) |
|
6864
|
3239 |
275457 |
if (isDIGIT(s[1]) && PL_expect != XOPERATOR) { |
|
|
3239 |
0 |
if (isDIGIT(s[1]) && PL_expect != XOPERATOR) { |
|
6866
|
714 |
3239 |
while (isDIGIT(*start) || *start == '_') |
|
|
0 |
3239 |
while (isDIGIT(*start) || *start == '_') |
|
6868
|
560 |
2679 |
if (*start == '.' && isDIGIT(start[1])) { |
|
|
558 |
2 |
if (*start == '.' && isDIGIT(start[1])) { |
|
6872
|
4 |
2677 |
else if ((*start == ':' && start[1] == ':') |
|
|
2 |
2 |
else if ((*start == ':' && start[1] == ':') |
|
6873
|
10 |
2669 |
|| (PL_expect == XSTATE && *start == ':')) |
|
|
9 |
1 |
|| (PL_expect == XSTATE && *start == ':')) |
|
6875
|
9 |
2669 |
else if (PL_expect == XSTATE) { |
|
6877
|
18 |
0 |
while (d < PL_bufend && isSPACE(*d)) d++; |
|
|
9 |
9 |
while (d < PL_bufend && isSPACE(*d)) d++; |
|
6878
|
8 |
1 |
if (*d == ':') goto keylookup; |
|
6881
|
2677 |
0 |
if (!isALPHA(*start) && (PL_expect == XTERM |
|
|
2671 |
6 |
if (!isALPHA(*start) && (PL_expect == XTERM |
|
6884
|
2671 |
0 |
GV *const gv = gv_fetchpvn_flags(s, start - s, |
|
|
0 |
2671 |
GV *const gv = gv_fetchpvn_flags(s, start - s, |
|
|
0 |
0 |
GV *const gv = gv_fetchpvn_flags(s, start - s, |
|
|
2671 |
0 |
GV *const gv = gv_fetchpvn_flags(s, start - s, |
|
|
2670 |
1 |
GV *const gv = gv_fetchpvn_flags(s, start - s, |
|
6886
|
2670 |
1 |
if (!gv) { |
|
6894
|
421 |
146996 |
if (isDIGIT(s[1]) && PL_expect == XOPERATOR) { |
|
|
417 |
4 |
if (isDIGIT(s[1]) && PL_expect == XOPERATOR) { |
|
6953
|
61850072 |
2819688 |
if (!anydelim && *s == ':' && s[1] == ':' && strNE(PL_tokenbuf, "CORE")) |
|
|
60198935 |
1651137 |
if (!anydelim && *s == ':' && s[1] == ':' && strNE(PL_tokenbuf, "CORE")) |
|
|
46919 |
1604218 |
if (!anydelim && *s == ':' && s[1] == ':' && strNE(PL_tokenbuf, "CORE")) |
|
|
47855 |
1556363 |
if (!anydelim && *s == ':' && s[1] == ':' && strNE(PL_tokenbuf, "CORE")) |
|
6957
|
115260191 |
610564 |
while (d < PL_bufend && isSPACE(*d)) |
|
|
52757358 |
62502833 |
while (d < PL_bufend && isSPACE(*d)) |
|
6961
|
2141343 |
60972054 |
if (*d == '=' && d[1] == '>') { |
|
|
2122160 |
19183 |
if (*d == '=' && d[1] == '>') { |
|
6979
|
60990952 |
283 |
if (result == KEYWORD_PLUGIN_DECLINE) { |
|
6982
|
94 |
189 |
} else if (result == KEYWORD_PLUGIN_STMT) { |
|
6987
|
189 |
0 |
} else if (result == KEYWORD_PLUGIN_EXPR) { |
|
7002
|
58187809 |
2803143 |
if (!anydelim && PL_expect == XSTATE |
|
|
35660414 |
22527395 |
if (!anydelim && PL_expect == XSTATE |
|
7003
|
35342019 |
318395 |
&& d < PL_bufend && *d == ':' && *(d + 1) != ':') { |
|
|
63751 |
35278268 |
&& d < PL_bufend && *d == ':' && *(d + 1) != ':') { |
|
|
46901 |
16850 |
&& d < PL_bufend && *d == ':' && *(d + 1) != ':') { |
|
7007
|
46901 |
0 |
pl_yylval.pval[len+1] = UTF ? 1 : 0; |
|
|
144 |
46757 |
pl_yylval.pval[len+1] = UTF ? 1 : 0; |
|
|
0 |
144 |
pl_yylval.pval[len+1] = UTF ? 1 : 0; |
|
|
46757 |
0 |
pl_yylval.pval[len+1] = UTF ? 1 : 0; |
|
|
46733 |
24 |
pl_yylval.pval[len+1] = UTF ? 1 : 0; |
|
7013
|
53275588 |
7668463 |
if (PL_expect != XOPERATOR) { |
|
7017
|
53275588 |
0 |
off = pad_findmy_pvn(tmpbuf, len+1, UTF ? SVf_UTF8 : 0); |
|
|
137913 |
53137675 |
off = pad_findmy_pvn(tmpbuf, len+1, UTF ? SVf_UTF8 : 0); |
|
|
0 |
137913 |
off = pad_findmy_pvn(tmpbuf, len+1, UTF ? SVf_UTF8 : 0); |
|
|
53134209 |
3466 |
off = pad_findmy_pvn(tmpbuf, len+1, UTF ? SVf_UTF8 : 0); |
|
|
52676664 |
457545 |
off = pad_findmy_pvn(tmpbuf, len+1, UTF ? SVf_UTF8 : 0); |
|
7018
|
77 |
53275511 |
if (off != NOT_IN_PAD) { |
|
7020
|
11 |
66 |
if (PAD_COMPNAME_FLAGS_isOUR(off)) { |
|
7021
|
11 |
0 |
HV * const stash = PAD_COMPNAME_OURSTASH(off); |
|
7022
|
11 |
0 |
HEK * const stashname = HvNAME_HEK(stash); |
|
|
11 |
0 |
HEK * const stashname = HvNAME_HEK(stash); |
|
|
0 |
11 |
HEK * const stashname = HvNAME_HEK(stash); |
|
7025
|
11 |
0 |
sv_catpvn_flags(sv, PL_tokenbuf, len, |
|
|
0 |
11 |
sv_catpvn_flags(sv, PL_tokenbuf, len, |
|
|
0 |
0 |
sv_catpvn_flags(sv, PL_tokenbuf, len, |
|
|
11 |
0 |
sv_catpvn_flags(sv, PL_tokenbuf, len, |
|
|
11 |
0 |
sv_catpvn_flags(sv, PL_tokenbuf, len, |
|
7030
|
0 |
11 |
if (!gv) { |
|
7047
|
12144351 |
48799623 |
if (tmp < 0) { /* second-class keyword? */ |
|
7050
|
7624540 |
4519811 |
if (PL_expect != XOPERATOR && (*s != ':' || s[1] != ':')) { |
|
|
47857 |
7576683 |
if (PL_expect != XOPERATOR && (*s != ':' || s[1] != ':')) { |
|
|
2 |
47855 |
if (PL_expect != XOPERATOR && (*s != ':' || s[1] != ':')) { |
|
7052
|
7576685 |
0 |
if ((gv = gv_fetchpvn_flags(PL_tokenbuf, len, |
|
|
557 |
7576128 |
if ((gv = gv_fetchpvn_flags(PL_tokenbuf, len, |
|
|
0 |
557 |
if ((gv = gv_fetchpvn_flags(PL_tokenbuf, len, |
|
|
7576126 |
2 |
if ((gv = gv_fetchpvn_flags(PL_tokenbuf, len, |
|
|
7575186 |
940 |
if ((gv = gv_fetchpvn_flags(PL_tokenbuf, len, |
|
|
7453 |
7569232 |
if ((gv = gv_fetchpvn_flags(PL_tokenbuf, len, |
|
7053
|
5885 |
1568 |
UTF ? SVf_UTF8 : 0, SVt_PVCV)) && |
|
7054
|
7453 |
0 |
(cv = GvCVu(gv))) |
|
7056
|
5275 |
610 |
if (GvIMPORTED_CV(gv)) |
|
7058
|
5275 |
0 |
else if (! CvMETHOD(cv)) |
|
7061
|
7576075 |
610 |
if (!ogv && |
|
|
184 |
7575891 |
if (!ogv && |
|
7062
|
7576075 |
0 |
(gvp = (GV**)hv_fetch(PL_globalstash, PL_tokenbuf, |
|
|
557 |
7575518 |
(gvp = (GV**)hv_fetch(PL_globalstash, PL_tokenbuf, |
|
|
0 |
557 |
(gvp = (GV**)hv_fetch(PL_globalstash, PL_tokenbuf, |
|
|
7575516 |
2 |
(gvp = (GV**)hv_fetch(PL_globalstash, PL_tokenbuf, |
|
|
940 |
7574576 |
(gvp = (GV**)hv_fetch(PL_globalstash, PL_tokenbuf, |
|
7063
|
184 |
0 |
UTF ? -(I32)len : (I32)len, FALSE)) && |
|
7064
|
183 |
1 |
(gv = *gvp) && isGV_with_GP(gv) && |
|
|
183 |
0 |
(gv = *gvp) && isGV_with_GP(gv) && |
|
|
183 |
0 |
(gv = *gvp) && isGV_with_GP(gv) && |
|
|
163 |
20 |
(gv = *gvp) && isGV_with_GP(gv) && |
|
7065
|
163 |
0 |
GvCVu(gv) && GvIMPORTED_CV(gv)) |
|
7070
|
12143578 |
773 |
if (ogv) { |
|
7074
|
6843 |
12136735 |
else if (gv && !gvp |
|
7075
|
5224 |
1619 |
&& -tmp==KEY_lock /* XXX generalizable kludge */ |
|
7076
|
5224 |
0 |
&& GvCVu(gv)) |
|
|
0 |
5224 |
&& GvCVu(gv)) |
|
7082
|
3 |
12138351 |
if (tmp == KEY_dump) { |
|
7088
|
4 |
12138350 |
if (hgv && tmp != KEY_x && tmp != KEY_CORE) /* never ambiguous */ |
|
|
4 |
0 |
if (hgv && tmp != KEY_x && tmp != KEY_CORE) /* never ambiguous */ |
|
7092
|
4 |
0 |
GvENAME(hgv)); |
|
7096
|
55075722 |
5868252 |
if (tmp && tmp != KEY___DATA__ && tmp != KEY___END__ |
|
|
54872833 |
202889 |
if (tmp && tmp != KEY___DATA__ && tmp != KEY___END__ |
|
7097
|
2803141 |
52069692 |
&& (!anydelim || *s != '#')) { |
|
|
2750070 |
53071 |
&& (!anydelim || *s != '#')) { |
|
7103
|
18858 |
54800904 |
if (*s == '=' && s[1] == '>') goto fat_arrow; |
|
|
1 |
18857 |
if (*s == '=' && s[1] == '>') goto fat_arrow; |
|
7129
|
7202756 |
221701 |
const char lastchar = (PL_bufptr == PL_oldoldbufptr ? 0 : PL_bufptr[-1]); |
|
7130
|
7202756 |
221701 |
const char penultchar = |
|
7131
|
7036361 |
166395 |
lastchar && PL_bufptr - 2 >= PL_linestart |
|
7141
|
7424448 |
9 |
if (*s == '\'' || (*s == ':' && s[1] == ':')) { |
|
|
1556791 |
5867657 |
if (*s == '\'' || (*s == ':' && s[1] == ':')) { |
|
|
1556781 |
10 |
if (*s == '\'' || (*s == ':' && s[1] == ':')) { |
|
7145
|
4 |
1556786 |
if (!morelen) |
|
7146
|
2 |
2 |
Perl_croak(aTHX_ "Bad name after %"UTF8f"%s", |
|
|
4 |
0 |
Perl_croak(aTHX_ "Bad name after %"UTF8f"%s", |
|
|
2 |
0 |
Perl_croak(aTHX_ "Bad name after %"UTF8f"%s", |
|
7147
|
2 |
2 |
UTF8fARG(UTF, len, PL_tokenbuf), |
|
|
0 |
2 |
UTF8fARG(UTF, len, PL_tokenbuf), |
|
|
2 |
0 |
UTF8fARG(UTF, len, PL_tokenbuf), |
|
7153
|
23 |
7424430 |
if (PL_expect == XOPERATOR) { |
|
7154
|
0 |
23 |
if (PL_bufptr == PL_linestart) { |
|
7168
|
7281705 |
142748 |
if (len > 2 && !PL_madskills && |
|
|
24843 |
7256862 |
if (len > 2 && !PL_madskills && |
|
7169
|
3151 |
21692 |
PL_tokenbuf[len - 2] == ':' && PL_tokenbuf[len - 1] == ':') |
|
7171
|
697 |
2454 |
if (ckWARN(WARN_BAREWORD) |
|
7172
|
697 |
0 |
&& ! gv_fetchpvn_flags(PL_tokenbuf, len, UTF ? SVf_UTF8 : 0, SVt_PVHV)) |
|
|
0 |
697 |
&& ! gv_fetchpvn_flags(PL_tokenbuf, len, UTF ? SVf_UTF8 : 0, SVt_PVHV)) |
|
|
0 |
0 |
&& ! gv_fetchpvn_flags(PL_tokenbuf, len, UTF ? SVf_UTF8 : 0, SVt_PVHV)) |
|
|
697 |
0 |
&& ! gv_fetchpvn_flags(PL_tokenbuf, len, UTF ? SVf_UTF8 : 0, SVt_PVHV)) |
|
|
695 |
2 |
&& ! gv_fetchpvn_flags(PL_tokenbuf, len, UTF ? SVf_UTF8 : 0, SVt_PVHV)) |
|
|
3 |
694 |
&& ! gv_fetchpvn_flags(PL_tokenbuf, len, UTF ? SVf_UTF8 : 0, SVt_PVHV)) |
|
7173
|
3 |
0 |
Perl_warner(aTHX_ packWARN(WARN_BAREWORD), |
|
|
3 |
0 |
Perl_warner(aTHX_ packWARN(WARN_BAREWORD), |
|
7175
|
0 |
3 |
UTF8fARG(UTF, len, PL_tokenbuf)); |
|
|
0 |
0 |
UTF8fARG(UTF, len, PL_tokenbuf)); |
|
|
1 |
2 |
UTF8fARG(UTF, len, PL_tokenbuf)); |
|
7182
|
7421225 |
77 |
if (!lex && !gv) { |
|
|
7415228 |
5997 |
if (!lex && !gv) { |
|
7187
|
7415228 |
0 |
gv = gv_fetchpvn_flags(PL_tokenbuf, len, |
|
|
17505 |
7397723 |
gv = gv_fetchpvn_flags(PL_tokenbuf, len, |
|
|
0 |
17505 |
gv = gv_fetchpvn_flags(PL_tokenbuf, len, |
|
|
7397712 |
11 |
gv = gv_fetchpvn_flags(PL_tokenbuf, len, |
|
|
7395055 |
2657 |
gv = gv_fetchpvn_flags(PL_tokenbuf, len, |
|
7196
|
7424442 |
11 |
if (!sv) |
|
7197
|
7421291 |
3151 |
sv = S_newSV_maybe_utf8(aTHX_ PL_tokenbuf, |
|
7199
|
163 |
7424290 |
if (gvp) { |
|
7220
|
7421302 |
3151 |
if (len) |
|
7223
|
7421236 |
66 |
if (!off) |
|
7228
|
11 |
7421225 |
cv = lex ? GvCV(gv) : rv2cv_op_cv(rv2cv_op, 0); |
|
7233
|
7421302 |
0 |
if (PL_oldoldbufptr && |
|
|
7199609 |
221693 |
if (PL_oldoldbufptr && |
|
7234
|
6875593 |
324016 |
PL_oldoldbufptr < PL_bufptr && |
|
7236
|
159224 |
6716369 |
|| PL_oldoldbufptr == PL_last_uni) && |
|
|
318084 |
165156 |
|| PL_oldoldbufptr == PL_last_uni) && |
|
7238
|
210857 |
107227 |
(PL_expect == XREF || |
|
7251
|
374953 |
1060 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
374953 |
0 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
2 |
374951 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
0 |
2 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
374951 |
0 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
374881 |
70 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
339815 |
36126 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
72 |
0 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
71 |
1 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
0 |
0 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
0 |
0 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
0 |
0 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
0 |
0 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
0 |
0 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
4624 |
335262 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
|
0 |
40751 |
if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && |
|
7254
|
0 |
0 |
if (tmp == METHOD && !PL_lex_allbrackets && |
|
|
0 |
0 |
if (tmp == METHOD && !PL_lex_allbrackets && |
|
|
0 |
0 |
if (tmp == METHOD && !PL_lex_allbrackets && |
|
7264
|
355727 |
20286 |
if ( |
|
7265
|
355723 |
4 |
( !immediate_paren && (PL_last_lop_op == OP_SORT || |
|
|
353016 |
2707 |
( !immediate_paren && (PL_last_lop_op == OP_SORT || |
|
7266
|
566 |
352450 |
(!cv && |
|
7269
|
13 |
23546 |
|| (PL_tokenbuf[0] == '_' && PL_tokenbuf[1] == '\0' |
|
7270
|
13 |
0 |
&& ((PL_opargs[PL_last_lop_op] & OA_CLASS_MASK) == OA_FILESTATOP)) |
|
7288
|
140 |
7068695 |
if (*s == '=' && s[1] == '>' && !pkgname) { |
|
|
13 |
127 |
if (*s == '=' && s[1] == '>' && !pkgname) { |
|
7295
|
13 |
0 |
if (UTF && !IN_BYTES && is_utf8_string((U8*)PL_tokenbuf, len)) |
|
|
0 |
13 |
if (UTF && !IN_BYTES && is_utf8_string((U8*)PL_tokenbuf, len)) |
|
|
0 |
0 |
if (UTF && !IN_BYTES && is_utf8_string((U8*)PL_tokenbuf, len)) |
|
|
13 |
0 |
if (UTF && !IN_BYTES && is_utf8_string((U8*)PL_tokenbuf, len)) |
|
|
0 |
13 |
if (UTF && !IN_BYTES && is_utf8_string((U8*)PL_tokenbuf, len)) |
|
|
0 |
0 |
if (UTF && !IN_BYTES && is_utf8_string((U8*)PL_tokenbuf, len)) |
|
|
0 |
0 |
if (UTF && !IN_BYTES && is_utf8_string((U8*)PL_tokenbuf, len)) |
|
7302
|
4748825 |
2319997 |
if (*s == '(') { |
|
7304
|
3435808 |
1313017 |
if (cv) { |
|
7306
|
156089 |
3435808 |
while (SPACE_OR_TAB(*d)) |
|
7308
|
373590 |
3062218 |
if (*d == ')' && (sv = cv_const_sv_or_av(cv))) { |
|
|
10724 |
362866 |
if (*d == ')' && (sv = cv_const_sv_or_av(cv))) { |
|
7321
|
4738082 |
19 |
off ? rv2cv_op : pl_yylval.opval; |
|
7330
|
19 |
4738082 |
if (off) |
|
7339
|
179292 |
2140705 |
if ((*s == '$' || *s == '{') && !cv) { |
|
|
721 |
178571 |
if ((*s == '$' || *s == '{') && !cv) { |
|
7343
|
27 |
694 |
if (!PL_lex_allbrackets && |
|
|
0 |
27 |
if (!PL_lex_allbrackets && |
|
7351
|
2319058 |
218 |
if (!orig_keyword |
|
|
2261030 |
58028 |
if (!orig_keyword |
|
|
1420 |
13 |
if (!orig_keyword |
|
|
1 |
12 |
if (!orig_keyword |
|
7352
|
2261030 |
0 |
&& (isIDFIRST_lazy_if(s,UTF) || *s == '$') |
|
|
553 |
2260477 |
&& (isIDFIRST_lazy_if(s,UTF) || *s == '$') |
|
|
0 |
553 |
&& (isIDFIRST_lazy_if(s,UTF) || *s == '$') |
|
|
2260470 |
7 |
&& (isIDFIRST_lazy_if(s,UTF) || *s == '$') |
|
|
2259590 |
880 |
&& (isIDFIRST_lazy_if(s,UTF) || *s == '$') |
|
|
2133961 |
183664 |
&& (isIDFIRST_lazy_if(s,UTF) || *s == '$') |
|
|
732 |
688 |
&& (isIDFIRST_lazy_if(s,UTF) || *s == '$') |
|
|
1 |
0 |
&& (isIDFIRST_lazy_if(s,UTF) || *s == '$') |
|
|
0 |
1 |
&& (isIDFIRST_lazy_if(s,UTF) || *s == '$') |
|
|
0 |
1 |
&& (isIDFIRST_lazy_if(s,UTF) || *s == '$') |
|
|
0 |
12 |
&& (isIDFIRST_lazy_if(s,UTF) || *s == '$') |
|
|
177210 |
1957483 |
&& (isIDFIRST_lazy_if(s,UTF) || *s == '$') |
|
7353
|
32014 |
329561 |
&& (tmp = intuit_method(s, gv, cv))) { |
|
7355
|
27535 |
4479 |
if (tmp == METHOD && !PL_lex_allbrackets && |
|
|
2069 |
25466 |
if (tmp == METHOD && !PL_lex_allbrackets && |
|
|
2 |
2067 |
if (tmp == METHOD && !PL_lex_allbrackets && |
|
7363
|
1823069 |
464193 |
if (cv) { |
|
7364
|
16 |
1823053 |
if (lastchar == '-' && penultchar != '-') { |
|
7365
|
16 |
0 |
const STRLEN l = len ? len : strlen(PL_tokenbuf); |
|
7366
|
16 |
0 |
Perl_ck_warner_d(aTHX_ packWARN(WARN_AMBIGUOUS), |
|
|
16 |
0 |
Perl_ck_warner_d(aTHX_ packWARN(WARN_AMBIGUOUS), |
|
|
16 |
0 |
Perl_ck_warner_d(aTHX_ packWARN(WARN_AMBIGUOUS), |
|
|
16 |
0 |
Perl_ck_warner_d(aTHX_ packWARN(WARN_AMBIGUOUS), |
|
7368
|
0 |
16 |
UTF8fARG(UTF, l, PL_tokenbuf), |
|
|
0 |
0 |
UTF8fARG(UTF, l, PL_tokenbuf), |
|
|
6 |
10 |
UTF8fARG(UTF, l, PL_tokenbuf), |
|
7369
|
0 |
16 |
UTF8fARG(UTF, l, PL_tokenbuf)); |
|
|
0 |
0 |
UTF8fARG(UTF, l, PL_tokenbuf)); |
|
|
6 |
10 |
UTF8fARG(UTF, l, PL_tokenbuf)); |
|
7372
|
1182912 |
640157 |
if ((sv = cv_const_sv_or_av(cv))) { |
|
7377
|
505 |
1193131 |
if (SvTYPE(sv) == SVt_PVAV) |
|
7390
|
36 |
640121 |
off ? (OP *)newCVREF(0, rv2cv_op) : rv2cv_op; |
|
7395
|
43181 |
596976 |
if ( |
|
7401
|
43181 |
0 |
STRLEN protolen = CvPROTOLEN(cv); |
|
|
43181 |
0 |
STRLEN protolen = CvPROTOLEN(cv); |
|
|
2 |
43179 |
STRLEN protolen = CvPROTOLEN(cv); |
|
7402
|
43181 |
0 |
const char *proto = CvPROTO(cv); |
|
|
43181 |
0 |
const char *proto = CvPROTO(cv); |
|
|
2 |
43179 |
const char *proto = CvPROTO(cv); |
|
7405
|
21529 |
21652 |
if (!protolen) |
|
7407
|
189 |
21463 |
if ((optional = *proto == ';')) |
|
7410
|
14 |
189 |
while (*proto == ';'); |
|
7411
|
3871 |
17781 |
if ( |
|
7415
|
3514 |
357 |
|| *proto == '*' || *proto == '+' |
|
|
17 |
3497 |
|| *proto == '*' || *proto == '+' |
|
7417
|
16998 |
1157 |
&& proto[1] == '\0' |
|
7419
|
109 |
20386 |
|| ( |
|
7420
|
109 |
0 |
*proto == '\\' && proto[1] && proto[2] == '\0' |
|
|
37 |
72 |
*proto == '\\' && proto[1] && proto[2] == '\0' |
|
7423
|
106 |
1088 |
UNIPROTO(UNIOPSUB,optional); |
|
7424
|
72 |
20386 |
if (*proto == '\\' && proto[1] == '[') { |
|
|
61 |
11 |
if (*proto == '\\' && proto[1] == '[') { |
|
7426
|
189 |
61 |
while(*p && *p != ']') |
|
7428
|
61 |
0 |
if(*p == ']' && !p[1]) |
|
|
16 |
45 |
if(*p == ']' && !p[1]) |
|
7429
|
5 |
11 |
UNIPROTO(UNIOPSUB,optional); |
|
7431
|
1272 |
19170 |
if (*proto == '&' && *s == '{') { |
|
|
1221 |
51 |
if (*proto == '&' && *s == '{') { |
|
7432
|
1221 |
0 |
if (PL_curstash) |
|
7436
|
53 |
1168 |
if (!PL_lex_allbrackets && |
|
|
2 |
51 |
if (!PL_lex_allbrackets && |
|
7509
|
616164 |
33 |
force_next(off ? PRIVATEREF : WORD); |
|
7510
|
13115 |
603082 |
if (!PL_lex_allbrackets && |
|
|
2 |
13113 |
if (!PL_lex_allbrackets && |
|
7519
|
422221 |
41972 |
if (PL_hints & HINT_STRICT_SUBS) |
|
7528
|
250986 |
143453 |
if ((PL_last_lop_op == OP_PRINT |
|
7532
|
0 |
250986 |
|| PL_last_lop_op == OP_EXEC) |
|
7533
|
105166 |
38287 |
&& (PL_hints & HINT_STRICT_SUBS)) |
|
7535
|
394431 |
8 |
if (lastchar != '-') { |
|
7536
|
159724 |
234707 |
if (ckWARN(WARN_RESERVED)) { |
|
7538
|
1098 |
159724 |
while (isLOWER(*d)) |
|
7540
|
234 |
159490 |
if (!*d && !gv_stashpv(PL_tokenbuf, UTF ? SVf_UTF8 : 0)) |
|
|
234 |
0 |
if (!*d && !gv_stashpv(PL_tokenbuf, UTF ? SVf_UTF8 : 0)) |
|
|
0 |
234 |
if (!*d && !gv_stashpv(PL_tokenbuf, UTF ? SVf_UTF8 : 0)) |
|
|
0 |
0 |
if (!*d && !gv_stashpv(PL_tokenbuf, UTF ? SVf_UTF8 : 0)) |
|
|
234 |
0 |
if (!*d && !gv_stashpv(PL_tokenbuf, UTF ? SVf_UTF8 : 0)) |
|
|
234 |
0 |
if (!*d && !gv_stashpv(PL_tokenbuf, UTF ? SVf_UTF8 : 0)) |
|
|
21 |
213 |
if (!*d && !gv_stashpv(PL_tokenbuf, UTF ? SVf_UTF8 : 0)) |
|
7549
|
819794 |
17 |
if ((lastchar == '*' || lastchar == '%' || lastchar == '&') |
|
|
7 |
819787 |
if ((lastchar == '*' || lastchar == '%' || lastchar == '&') |
|
7550
|
16 |
8 |
&& saw_infix_sigil) { |
|
7551
|
16 |
0 |
Perl_ck_warner_d(aTHX_ packWARN(WARN_AMBIGUOUS), |
|
|
16 |
0 |
Perl_ck_warner_d(aTHX_ packWARN(WARN_AMBIGUOUS), |
|
7554
|
0 |
16 |
UTF8fARG(UTF, strlen(PL_tokenbuf), |
|
|
0 |
0 |
UTF8fARG(UTF, strlen(PL_tokenbuf), |
|
|
12 |
4 |
UTF8fARG(UTF, strlen(PL_tokenbuf), |
|
7564
|
19542 |
0 |
FUN0OP( |
|
7575
|
103640 |
0 |
FUN0OP( |
|
|
103640 |
0 |
FUN0OP( |
|
|
103640 |
0 |
FUN0OP( |
|
|
4 |
103636 |
FUN0OP( |
|
7585
|
12 |
203592 |
if (PL_rsfp && (!PL_in_eval || PL_tokenbuf[2] == 'D')) { |
|
|
202787 |
805 |
if (PL_rsfp && (!PL_in_eval || PL_tokenbuf[2] == 'D')) { |
|
|
202301 |
486 |
if (PL_rsfp && (!PL_in_eval || PL_tokenbuf[2] == 'D')) { |
|
7586
|
714 |
0 |
HV * const stash = PL_tokenbuf[2] == 'D' && PL_curstash |
|
7588
|
714 |
577 |
: PL_defstash; |
|
7590
|
547 |
744 |
if (!isGV(gv)) |
|
7593
|
1291 |
0 |
if (!GvIO(gv)) |
|
|
1291 |
0 |
if (!GvIO(gv)) |
|
|
1291 |
0 |
if (!GvIO(gv)) |
|
|
643 |
648 |
if (!GvIO(gv)) |
|
7604
|
0 |
1291 |
if ((PerlIO*)PL_rsfp == PerlIO_stdin()) |
|
7631
|
1290 |
1 |
if (!IN_BYTES) { |
|
7632
|
1290 |
0 |
if (UTF) |
|
|
0 |
1290 |
if (UTF) |
|
|
0 |
0 |
if (UTF) |
|
|
1290 |
0 |
if (UTF) |
|
|
8 |
1282 |
if (UTF) |
|
7634
|
9 |
1273 |
else if (PL_encoding) { |
|
|
0 |
9 |
else if (PL_encoding) { |
|
7639
|
0 |
9 |
PUSHMARK(sp); |
|
7641
|
0 |
9 |
XPUSHs(PL_encoding); |
|
7650
|
9 |
0 |
FREETMPS; |
|
7685
|
2 |
177503 |
if (PL_expect == XSTATE) { |
|
7692
|
3 |
47855 |
if (*s == ':' && s[1] == ':') { |
|
|
0 |
47855 |
if (*s == ':' && s[1] == ':') { |
|
7697
|
1 |
47854 |
if ((*s == ':' && s[1] == ':') |
|
|
0 |
1 |
if ((*s == ':' && s[1] == ':') |
|
7698
|
2 |
47852 |
|| (!(tmp = keyword(PL_tokenbuf, len, 1)) && *s == '\'')) |
|
|
1 |
1 |
|| (!(tmp = keyword(PL_tokenbuf, len, 1)) && *s == '\'')) |
|
7705
|
1 |
47852 |
if (!tmp) |
|
7706
|
1 |
0 |
Perl_croak(aTHX_ "CORE::%"UTF8f" is not a keyword", |
|
|
1 |
0 |
Perl_croak(aTHX_ "CORE::%"UTF8f" is not a keyword", |
|
7707
|
0 |
1 |
UTF8fARG(UTF, len, PL_tokenbuf)); |
|
|
0 |
0 |
UTF8fARG(UTF, len, PL_tokenbuf)); |
|
|
0 |
1 |
UTF8fARG(UTF, len, PL_tokenbuf)); |
|
7708
|
47071 |
781 |
if (tmp < 0) |
|
7710
|
776 |
5 |
else if (tmp == KEY_require || tmp == KEY_do |
|
7711
|
773 |
3 |
|| tmp == KEY_glob) |
|
7719
|
515 |
3176 |
UNI(OP_ABS); |
|
|
13 |
502 |
UNI(OP_ABS); |
|
7722
|
641 |
545 |
UNI(OP_ALARM); |
|
|
641 |
0 |
UNI(OP_ALARM); |
|
7728
|
216 |
1084718 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_LOWLOGIC) |
|
|
213 |
3 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_LOWLOGIC) |
|
7748
|
11100 |
6301 |
UNI(OP_CHOP); |
|
|
11090 |
10 |
UNI(OP_CHOP); |
|
7757
|
3283 |
30 |
if (*s == '{') |
|
7765
|
26105 |
36753 |
UNI(OP_CHDIR); |
|
|
23907 |
2198 |
UNI(OP_CHDIR); |
|
7768
|
46958 |
27704 |
UNI(OP_CLOSE); |
|
|
46945 |
13 |
UNI(OP_CLOSE); |
|
7771
|
16882 |
23215 |
UNI(OP_CLOSEDIR); |
|
|
16882 |
0 |
UNI(OP_CLOSEDIR); |
|
7774
|
4 |
13034 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
|
4 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
7779
|
82287 |
147462 |
UNI(OP_CALLER); |
|
|
82286 |
1 |
UNI(OP_CALLER); |
|
7800
|
7814 |
34708 |
UNI(OP_CHR); |
|
|
7664 |
150 |
UNI(OP_CHR); |
|
7803
|
19 |
146 |
UNI(OP_COS); |
|
|
19 |
0 |
UNI(OP_COS); |
|
7806
|
2 |
1 |
UNI(OP_CHROOT); |
|
|
2 |
0 |
UNI(OP_CHROOT); |
|
7813
|
260435 |
15572 |
if (*s == '{') |
|
7815
|
14629 |
943 |
if (*s != '\'') { |
|
7819
|
1902 |
12727 |
if (len && !keyword(PL_tokenbuf + 1, len, 0)) { |
|
|
30 |
1872 |
if (len && !keyword(PL_tokenbuf + 1, len, 0)) { |
|
7821
|
28 |
2 |
if (*d == '(') { |
|
7827
|
0 |
15572 |
if (orig_keyword == KEY_do) { |
|
7840
|
1273486 |
387630 |
UNI(OP_DEFINED); |
|
|
1245541 |
27945 |
UNI(OP_DEFINED); |
|
7843
|
203395 |
5827 |
UNI(OP_DELETE); |
|
|
202705 |
690 |
UNI(OP_DELETE); |
|
7856
|
2 |
53 |
UNI(OP_DBMCLOSE); |
|
|
2 |
0 |
UNI(OP_DBMCLOSE); |
|
7871
|
172792 |
2117306 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
|
172792 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
7876
|
399419 |
32408 |
UNI(OP_EXISTS); |
|
|
399367 |
52 |
UNI(OP_EXISTS); |
|
7881
|
6040 |
6251 |
UNI(OP_EXIT); |
|
|
6037 |
3 |
UNI(OP_EXIT); |
|
7885
|
218104 |
149359 |
if (*s == '{') { /* block eval */ |
|
7887
|
218104 |
0 |
UNIBRACK(OP_ENTERTRY); |
|
|
218104 |
0 |
UNIBRACK(OP_ENTERTRY); |
|
7891
|
133715 |
15644 |
UNIBRACK(OP_ENTEREVAL); |
|
|
133715 |
0 |
UNIBRACK(OP_ENTEREVAL); |
|
7896
|
16 |
5 |
UNIBRACK(-OP_ENTEREVAL); |
|
|
16 |
0 |
UNIBRACK(-OP_ENTEREVAL); |
|
7899
|
942 |
1157 |
UNI(OP_EOF); |
|
|
942 |
0 |
UNI(OP_EOF); |
|
7902
|
8 |
150 |
UNI(OP_EXP); |
|
|
8 |
0 |
UNI(OP_EXP); |
|
7905
|
52387 |
1706 |
UNI(OP_EACH); |
|
|
52386 |
1 |
UNI(OP_EACH); |
|
7930
|
23900 |
980565 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
|
23900 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
7934
|
836044 |
168421 |
if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) { |
|
|
832495 |
3549 |
if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) { |
|
|
832495 |
0 |
if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) { |
|
|
1 |
832494 |
if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
1 |
if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) { |
|
|
832494 |
0 |
if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) { |
|
|
832433 |
61 |
if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) { |
|
|
62 |
0 |
if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) { |
|
|
458173 |
377871 |
if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) { |
|
7940
|
458173 |
0 |
if ((PL_bufend - p) >= 3 && |
|
|
458162 |
11 |
if ((PL_bufend - p) >= 3 && |
|
7941
|
458162 |
0 |
strnEQ(p, "my", 2) && isSPACE(*(p + 2))) |
|
7943
|
11 |
0 |
else if ((PL_bufend - p) >= 4 && |
|
|
8 |
3 |
else if ((PL_bufend - p) >= 4 && |
|
7944
|
8 |
0 |
strnEQ(p, "our", 3) && isSPACE(*(p + 3))) |
|
7947
|
455911 |
2262 |
if (isIDFIRST_lazy_if(p,UTF)) { |
|
|
455911 |
0 |
if (isIDFIRST_lazy_if(p,UTF)) { |
|
|
0 |
455911 |
if (isIDFIRST_lazy_if(p,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(p,UTF)) { |
|
|
455911 |
0 |
if (isIDFIRST_lazy_if(p,UTF)) { |
|
|
455874 |
37 |
if (isIDFIRST_lazy_if(p,UTF)) { |
|
|
37 |
0 |
if (isIDFIRST_lazy_if(p,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(p,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(p,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(p,UTF)) { |
|
|
3 |
458170 |
if (isIDFIRST_lazy_if(p,UTF)) { |
|
7952
|
1 |
458170 |
if (*p != '$') |
|
7967
|
4 |
52 |
UNI(OP_FC); |
|
|
4 |
0 |
UNI(OP_FC); |
|
7973
|
3716 |
9459 |
UNI(OP_FILENO); |
|
|
3716 |
0 |
UNI(OP_FILENO); |
|
7979
|
2 |
2513 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
|
2 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
7984
|
14 |
5622 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
|
14 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
7997
|
36 |
2954 |
UNI(OP_GMTIME); |
|
|
36 |
0 |
UNI(OP_GMTIME); |
|
8000
|
16 |
770 |
UNIDOR(OP_GETC); |
|
|
16 |
0 |
UNIDOR(OP_GETC); |
|
8006
|
8 |
2 |
UNI(OP_GETPGRP); |
|
|
8 |
0 |
UNI(OP_GETPGRP); |
|
8012
|
7 |
422 |
UNI(OP_GPBYNAME); |
|
|
7 |
0 |
UNI(OP_GPBYNAME); |
|
8024
|
5073 |
763 |
UNI(OP_GPWNAM); |
|
|
5073 |
0 |
UNI(OP_GPWNAM); |
|
8027
|
270 |
665 |
UNI(OP_GPWUID); |
|
|
262 |
8 |
UNI(OP_GPWUID); |
|
8030
|
20 |
173 |
UNI(OP_GETPEERNAME); |
|
|
20 |
0 |
UNI(OP_GETPEERNAME); |
|
8033
|
322 |
388 |
UNI(OP_GHBYNAME); |
|
|
322 |
0 |
UNI(OP_GHBYNAME); |
|
8042
|
6 |
1 |
UNI(OP_GNBYNAME); |
|
|
6 |
0 |
UNI(OP_GNBYNAME); |
|
8060
|
20 |
49 |
UNI(OP_GETSOCKNAME); |
|
|
20 |
0 |
UNI(OP_GETSOCKNAME); |
|
8069
|
4824 |
7 |
UNI(OP_GGRNAM); |
|
|
4824 |
0 |
UNI(OP_GGRNAM); |
|
8072
|
17 |
22 |
UNI(OP_GGRGID); |
|
|
9 |
8 |
UNI(OP_GGRGID); |
|
8085
|
5303 |
3 |
LOP( |
|
8091
|
13609 |
15609 |
UNI(OP_HEX); |
|
|
13609 |
0 |
UNI(OP_HEX); |
|
8094
|
122471 |
5891880 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
|
122467 |
4 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
8103
|
1344 |
23019 |
UNI(OP_INT); |
|
|
1234 |
110 |
UNI(OP_INT); |
|
8112
|
279890 |
7278 |
UNI(OP_KEYS); |
|
|
279299 |
591 |
UNI(OP_KEYS); |
|
8123
|
23862 |
18340 |
UNI(OP_LC); |
|
|
20325 |
3537 |
UNI(OP_LC); |
|
8126
|
176 |
12 |
UNI(OP_LCFIRST); |
|
|
175 |
1 |
UNI(OP_LCFIRST); |
|
8133
|
144850 |
223051 |
UNI(OP_LENGTH); |
|
|
140605 |
4245 |
UNI(OP_LENGTH); |
|
8136
|
4 |
932 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
|
4 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
8141
|
6 |
3016 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
|
6 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
8146
|
3939 |
311 |
UNI(OP_LOCALTIME); |
|
|
3939 |
0 |
UNI(OP_LOCALTIME); |
|
8149
|
11 |
5190 |
UNI(OP_LOG); |
|
|
10 |
1 |
UNI(OP_LOG); |
|
8158
|
10 |
431 |
UNI(OP_LOCK); |
|
|
10 |
0 |
UNI(OP_LOCK); |
|
8161
|
16697 |
12372 |
UNI(OP_LSTAT); |
|
|
15965 |
732 |
UNI(OP_LSTAT); |
|
8190
|
9712864 |
70359 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
9712864 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
66483 |
9646381 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
66483 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
9646381 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
9645576 |
805 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
67278 |
10 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
10 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
151 |
9783072 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
8195
|
117 |
34 |
if (len == 3 && strnEQ(PL_tokenbuf, "sub", 3)) |
|
|
106 |
11 |
if (len == 3 && strnEQ(PL_tokenbuf, "sub", 3)) |
|
8197
|
106 |
0 |
if (!FEATURE_LEXSUBS_IS_ENABLED) |
|
|
103 |
3 |
if (!FEATURE_LEXSUBS_IS_ENABLED) |
|
|
0 |
0 |
if (!FEATURE_LEXSUBS_IS_ENABLED) |
|
|
103 |
0 |
if (!FEATURE_LEXSUBS_IS_ENABLED) |
|
|
103 |
0 |
if (!FEATURE_LEXSUBS_IS_ENABLED) |
|
|
0 |
103 |
if (!FEATURE_LEXSUBS_IS_ENABLED) |
|
8198
|
2 |
1 |
Perl_croak(aTHX_ |
|
8201
|
1 |
1 |
tmp == KEY_state ? "state" : "our"); |
|
8208
|
9 |
36 |
if (!PL_in_my_stash) { |
|
8211
|
0 |
9 |
my_snprintf(tmpbuf, sizeof(tmpbuf), "No such class %.1000s", PL_tokenbuf); |
|
8212
|
9 |
0 |
yyerror_pv(tmpbuf, UTF ? SVf_UTF8 : 0); |
|
|
6 |
3 |
yyerror_pv(tmpbuf, UTF ? SVf_UTF8 : 0); |
|
|
0 |
6 |
yyerror_pv(tmpbuf, UTF ? SVf_UTF8 : 0); |
|
|
3 |
0 |
yyerror_pv(tmpbuf, UTF ? SVf_UTF8 : 0); |
|
|
3 |
0 |
yyerror_pv(tmpbuf, UTF ? SVf_UTF8 : 0); |
|
8231
|
1126 |
298064 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
|
1126 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_COMPARE) |
|
8240
|
164702 |
457 |
if (*s == '(' || (s = SKIPSPACE1(s), *s == '(')) |
|
|
152 |
164550 |
if (*s == '(' || (s = SKIPSPACE1(s), *s == '(')) |
|
8243
|
523 |
164027 |
if (!PL_lex_allbrackets && |
|
|
2 |
521 |
if (!PL_lex_allbrackets && |
|
8251
|
88310 |
282 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
88310 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
88310 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
88310 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
88267 |
43 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
25 |
18 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
18 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
33794 |
54798 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
8255
|
25239 |
33794 |
for (t=d; isSPACE(*t);) |
|
8257
|
33793 |
1 |
if ( *t && strchr("|&*+-=!?:.", *t) && ckWARN_d(WARN_PRECEDENCE) |
|
|
22 |
33771 |
if ( *t && strchr("|&*+-=!?:.", *t) && ckWARN_d(WARN_PRECEDENCE) |
|
|
18 |
4 |
if ( *t && strchr("|&*+-=!?:.", *t) && ckWARN_d(WARN_PRECEDENCE) |
|
8259
|
1 |
17 |
&& !(t[0] == '=' && t[1] == '>') |
|
|
0 |
1 |
&& !(t[0] == '=' && t[1] == '>') |
|
8260
|
4 |
13 |
&& !(t[0] == ':' && t[1] == ':') |
|
|
0 |
4 |
&& !(t[0] == ':' && t[1] == ':') |
|
8261
|
12 |
1 |
&& !keyword(s, d-s, 0) |
|
8263
|
12 |
0 |
Perl_warner(aTHX_ packWARN(WARN_PRECEDENCE), |
|
|
12 |
0 |
Perl_warner(aTHX_ packWARN(WARN_PRECEDENCE), |
|
|
12 |
0 |
Perl_warner(aTHX_ packWARN(WARN_PRECEDENCE), |
|
|
12 |
0 |
Perl_warner(aTHX_ packWARN(WARN_PRECEDENCE), |
|
8265
|
0 |
12 |
UTF8fARG(UTF, d-s, s), UTF8fARG(UTF, d-s, s)); |
|
|
0 |
0 |
UTF8fARG(UTF, d-s, s), UTF8fARG(UTF, d-s, s)); |
|
|
4 |
8 |
UTF8fARG(UTF, d-s, s), UTF8fARG(UTF, d-s, s)); |
|
|
0 |
12 |
UTF8fARG(UTF, d-s, s), UTF8fARG(UTF, d-s, s)); |
|
|
0 |
0 |
UTF8fARG(UTF, d-s, s), UTF8fARG(UTF, d-s, s)); |
|
|
4 |
8 |
UTF8fARG(UTF, d-s, s), UTF8fARG(UTF, d-s, s)); |
|
8271
|
15715 |
690479 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_LOWLOGIC) |
|
|
15700 |
15 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_LOWLOGIC) |
|
8277
|
72499 |
117623 |
UNI(OP_ORD); |
|
|
72389 |
110 |
UNI(OP_ORD); |
|
8280
|
2207 |
8613 |
UNI(OP_OCT); |
|
|
2207 |
0 |
UNI(OP_OCT); |
|
8294
|
4974 |
7051 |
UNI(OP_PROTOTYPE); |
|
|
4974 |
0 |
UNI(OP_PROTOTYPE); |
|
8300
|
80376 |
8210 |
UNIDOR(OP_POP); |
|
|
80358 |
18 |
UNIDOR(OP_POP); |
|
8303
|
7056 |
12379 |
UNIDOR(OP_POS); |
|
|
7046 |
10 |
UNIDOR(OP_POS); |
|
8320
|
31272 |
587501 |
COPLINE_SET_FROM_MULTI_END; |
|
8321
|
2 |
618771 |
if (!s) |
|
8327
|
2528 |
1940 |
UNI(OP_QUOTEMETA); |
|
|
1438 |
1090 |
UNI(OP_QUOTEMETA); |
|
8332
|
110415 |
593365 |
COPLINE_SET_FROM_MULTI_END; |
|
8333
|
2 |
703778 |
if (!s) |
|
8336
|
703351 |
427 |
if (SvCUR(PL_lex_stuff)) { |
|
8339
|
703351 |
0 |
d = SvPV_force(PL_lex_stuff, len); |
|
8340
|
4721026 |
703351 |
while (len) { |
|
8341
|
9298492 |
4721026 |
for (; isSPACE(*d) && len; --len, ++d) |
|
|
9298492 |
0 |
for (; isSPACE(*d) && len; --len, ++d) |
|
8343
|
4552430 |
168596 |
if (len) { |
|
8346
|
2940714 |
1611716 |
if (!warned_comma || !warned_comment) { |
|
8347
|
12361343 |
1445623 |
for (; !isSPACE(*d) && len; --len, ++d) { |
|
|
12195250 |
166093 |
for (; !isSPACE(*d) && len; --len, ++d) { |
|
8348
|
12195243 |
7 |
if (!warned_comma && *d == ',') { |
|
|
2 |
12195241 |
if (!warned_comma && *d == ',') { |
|
8353
|
12195247 |
1 |
else if (!warned_comment && *d == '#') { |
|
|
2 |
12195245 |
else if (!warned_comment && *d == '#') { |
|
8361
|
24224246 |
2572052 |
for (; !isSPACE(*d) && len; --len, ++d) |
|
|
23855584 |
368662 |
for (; !isSPACE(*d) && len; --len, ++d) |
|
8364
|
572 |
4551858 |
sv = newSVpvn_utf8(b, d-b, DO_UTF8(PL_lex_stuff)); |
|
|
0 |
572 |
sv = newSVpvn_utf8(b, d-b, DO_UTF8(PL_lex_stuff)); |
|
8370
|
862 |
702916 |
if (!words) |
|
8372
|
703778 |
0 |
if (PL_lex_stuff) { |
|
8383
|
1 |
144847 |
if (!s) |
|
8386
|
23109 |
121738 |
if (SvIVX(PL_lex_stuff) == '\'') |
|
8396
|
1 |
27 |
if (!s) |
|
8402
|
4813 |
3541889 |
OLDLOP(OP_RETURN); |
|
|
2 |
4811 |
OLDLOP(OP_RETURN); |
|
8407
|
26764 |
714784 |
if (isDIGIT(*s)) { |
|
8410
|
2340 |
712444 |
else if (*s != 'v' || !isDIGIT(s[1]) |
|
|
4 |
2336 |
else if (*s != 'v' || !isDIGIT(s[1]) |
|
8411
|
0 |
4 |
|| (s = force_version(s, TRUE), *s == 'v')) |
|
8415
|
712726 |
2054 |
if (isIDFIRST_lazy_if(PL_tokenbuf,UTF)) |
|
|
712726 |
0 |
if (isIDFIRST_lazy_if(PL_tokenbuf,UTF)) |
|
|
120 |
712606 |
if (isIDFIRST_lazy_if(PL_tokenbuf,UTF)) |
|
|
0 |
120 |
if (isIDFIRST_lazy_if(PL_tokenbuf,UTF)) |
|
|
712606 |
0 |
if (isIDFIRST_lazy_if(PL_tokenbuf,UTF)) |
|
|
712560 |
46 |
if (isIDFIRST_lazy_if(PL_tokenbuf,UTF)) |
|
|
59 |
107 |
if (isIDFIRST_lazy_if(PL_tokenbuf,UTF)) |
|
|
0 |
107 |
if (isIDFIRST_lazy_if(PL_tokenbuf,UTF)) |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(PL_tokenbuf,UTF)) |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(PL_tokenbuf,UTF)) |
|
|
684656 |
30124 |
if (isIDFIRST_lazy_if(PL_tokenbuf,UTF)) |
|
8416
|
684656 |
0 |
gv_stashpvn(PL_tokenbuf, strlen(PL_tokenbuf), |
|
|
120 |
684536 |
gv_stashpvn(PL_tokenbuf, strlen(PL_tokenbuf), |
|
|
0 |
120 |
gv_stashpvn(PL_tokenbuf, strlen(PL_tokenbuf), |
|
|
684536 |
0 |
gv_stashpvn(PL_tokenbuf, strlen(PL_tokenbuf), |
|
|
684497 |
39 |
gv_stashpvn(PL_tokenbuf, strlen(PL_tokenbuf), |
|
8418
|
1 |
30123 |
else if (*s == '<') |
|
8421
|
5 |
741543 |
if (orig_keyword == KEY_require) { |
|
8435
|
27 |
1 |
UNI(OP_RESET); |
|
|
27 |
0 |
UNI(OP_RESET); |
|
8446
|
3002 |
967 |
UNI(OP_RAND); |
|
|
3000 |
2 |
UNI(OP_RAND); |
|
8449
|
4863 |
81 |
UNI(OP_RMDIR); |
|
|
4863 |
0 |
UNI(OP_RMDIR); |
|
8458
|
23054 |
11605 |
UNI(OP_READDIR); |
|
|
23054 |
0 |
UNI(OP_READDIR); |
|
8461
|
27 |
3310 |
UNIDOR(OP_READLINE); |
|
|
27 |
0 |
UNIDOR(OP_READLINE); |
|
8464
|
2 |
1 |
UNIDOR(OP_BACKTICK); |
|
|
2 |
0 |
UNIDOR(OP_BACKTICK); |
|
8467
|
2 |
658 |
UNI(OP_REWINDDIR); |
|
|
2 |
0 |
UNI(OP_REWINDDIR); |
|
8476
|
528 |
16472 |
UNIDOR(OP_READLINK); |
|
|
528 |
0 |
UNIDOR(OP_READLINK); |
|
8479
|
335129 |
248857 |
UNI(OP_REF); |
|
|
334401 |
728 |
UNI(OP_REF); |
|
8483
|
769018 |
0 |
if (pl_yylval.opval) |
|
8493
|
48310 |
14233 |
UNI(OP_CHOMP); |
|
|
45932 |
2378 |
UNI(OP_CHOMP); |
|
8496
|
34399 |
31250 |
UNI(OP_SCALAR); |
|
|
34265 |
134 |
UNI(OP_SCALAR); |
|
8523
|
2 |
1 |
UNI(OP_SHOSTENT); |
|
|
2 |
0 |
UNI(OP_SHOSTENT); |
|
8526
|
2 |
1 |
UNI(OP_SNETENT); |
|
|
2 |
0 |
UNI(OP_SNETENT); |
|
8529
|
2 |
1 |
UNI(OP_SSERVENT); |
|
|
2 |
0 |
UNI(OP_SSERVENT); |
|
8532
|
2 |
1 |
UNI(OP_SPROTOENT); |
|
|
2 |
0 |
UNI(OP_SPROTOENT); |
|
8547
|
1666967 |
39922 |
UNIDOR(OP_SHIFT); |
|
|
1661606 |
5361 |
UNIDOR(OP_SHIFT); |
|
8565
|
33 |
4801 |
UNI(OP_SIN); |
|
|
33 |
0 |
UNI(OP_SIN); |
|
8568
|
607 |
1647 |
UNI(OP_SLEEP); |
|
|
606 |
1 |
UNI(OP_SLEEP); |
|
8593
|
30 |
751 |
UNI(OP_SQRT); |
|
|
11 |
19 |
UNI(OP_SQRT); |
|
8596
|
11 |
24 |
UNI(OP_SRAND); |
|
|
11 |
0 |
UNI(OP_SRAND); |
|
8599
|
19297 |
59787 |
UNI(OP_STAT); |
|
|
19297 |
0 |
UNI(OP_STAT); |
|
8602
|
18582 |
3 |
UNI(OP_STUDY); |
|
|
18582 |
0 |
UNI(OP_STUDY); |
|
8635
|
4897698 |
23773 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
4897698 |
0 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
65 |
4897633 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
0 |
65 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
4897630 |
3 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
4897180 |
450 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
318946 |
4602010 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
383 |
132 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
161 |
222 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
2 |
130 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
2 |
0 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
0 |
2 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
0 |
2 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
0 |
130 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
319105 |
2 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
|
32 |
319073 |
if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' || |
|
8636
|
3 |
29 |
(*s == ':' && s[1] == ':')) |
|
8650
|
130 |
4602239 |
if (key == KEY_format) |
|
8654
|
4328239 |
274130 |
if (memchr(tmpbuf, ':', len) || key != KEY_sub |
|
8655
|
4328239 |
0 |
|| pad_findmy_pvn( |
|
|
17 |
4328222 |
|| pad_findmy_pvn( |
|
|
0 |
17 |
|| pad_findmy_pvn( |
|
|
4328222 |
0 |
|| pad_findmy_pvn( |
|
|
4327955 |
267 |
|| pad_findmy_pvn( |
|
|
32 |
4328207 |
|| pad_findmy_pvn( |
|
8664
|
37 |
4602332 |
if (SvUTF8(PL_linestr)) |
|
8681
|
319100 |
2 |
if (key == KEY_my || key == KEY_our || key==KEY_state) |
|
|
1 |
319099 |
if (key == KEY_my || key == KEY_our || key==KEY_state) |
|
8694
|
149 |
4921319 |
if (key == KEY_format) { |
|
8699
|
130 |
19 |
if (format_name) { |
|
8711
|
272034 |
4649285 |
if (*s == '(') { |
|
8713
|
3 |
272031 |
COPLINE_SET_FROM_MULTI_END; |
|
8714
|
2 |
272032 |
if (!s) |
|
8738
|
3140 |
4918177 |
if (*s == ':' && s[1] != ':') |
|
|
3140 |
0 |
if (*s == ':' && s[1] != ':') |
|
8740
|
200954 |
4717223 |
else if (*s != '{' && key == KEY_sub) { |
|
8741
|
8 |
200946 |
if (!have_name) |
|
8743
|
2 |
200944 |
else if (*s != ';' && *s != '}') |
|
8759
|
272030 |
4649277 |
if (have_proto) { |
|
8766
|
319072 |
4602235 |
if (!have_name) { |
|
8767
|
319072 |
0 |
if (PL_curstash) |
|
8806
|
925 |
963 |
UNI(OP_TELL); |
|
|
924 |
1 |
UNI(OP_TELL); |
|
8809
|
4 |
26 |
UNI(OP_TELLDIR); |
|
|
4 |
0 |
UNI(OP_TELLDIR); |
|
8815
|
362 |
3879 |
UNI(OP_TIED); |
|
|
362 |
0 |
UNI(OP_TIED); |
|
8827
|
17776 |
8838 |
UNI(OP_UC); |
|
|
17775 |
1 |
UNI(OP_UC); |
|
8830
|
3812 |
58 |
UNI(OP_UCFIRST); |
|
|
3809 |
3 |
UNI(OP_UCFIRST); |
|
8833
|
1037 |
4 |
UNI(OP_UNTIE); |
|
|
1037 |
0 |
UNI(OP_UNTIE); |
|
8836
|
4 |
7952 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
|
4 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
8842
|
140598 |
1595078 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
|
140598 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
8851
|
449832 |
2118 |
UNIDOR(OP_UNDEF); |
|
|
449832 |
0 |
UNIDOR(OP_UNDEF); |
|
8860
|
1604 |
106 |
UNIDOR(OP_UMASK); |
|
|
1603 |
1 |
UNIDOR(OP_UMASK); |
|
8870
|
27411 |
2545 |
UNI(OP_VALUES); |
|
|
27409 |
2 |
UNI(OP_VALUES); |
|
8876
|
1 |
215 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
|
1 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
8885
|
39301 |
317699 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
|
39301 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_NONEXPR) |
|
8907
|
136 |
1521 |
UNI(OP_ENTERWRITE); |
|
|
132 |
4 |
UNI(OP_ENTERWRITE); |
|
8910
|
116124 |
55 |
if (PL_expect == XOPERATOR) { |
|
8911
|
8 |
116116 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
4 |
4 |
if (*s == '=' && !PL_lex_allbrackets && |
|
|
4 |
0 |
if (*s == '=' && !PL_lex_allbrackets && |
|
8920
|
0 |
20392 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_LOWLOGIC) |
|
|
0 |
0 |
if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_LOWLOGIC) |
|
8970
|
12192690 |
61311134 |
if (PL_in_my) { |
|
8971
|
598382 |
11594308 |
if (PL_in_my == KEY_our) { /* "our" is merely analogous to "my" */ |
|
8972
|
1 |
598381 |
if (has_colon) |
|
8973
|
1 |
0 |
yyerror_pv(Perl_form(aTHX_ "No package name allowed for " |
|
|
1 |
0 |
yyerror_pv(Perl_form(aTHX_ "No package name allowed for " |
|
|
0 |
1 |
yyerror_pv(Perl_form(aTHX_ "No package name allowed for " |
|
|
0 |
0 |
yyerror_pv(Perl_form(aTHX_ "No package name allowed for " |
|
|
0 |
0 |
yyerror_pv(Perl_form(aTHX_ "No package name allowed for " |
|
8976
|
598382 |
0 |
tmp = allocmy(PL_tokenbuf, tokenbuf_len, UTF ? SVf_UTF8 : 0); |
|
|
10 |
598372 |
tmp = allocmy(PL_tokenbuf, tokenbuf_len, UTF ? SVf_UTF8 : 0); |
|
|
0 |
10 |
tmp = allocmy(PL_tokenbuf, tokenbuf_len, UTF ? SVf_UTF8 : 0); |
|
|
598372 |
0 |
tmp = allocmy(PL_tokenbuf, tokenbuf_len, UTF ? SVf_UTF8 : 0); |
|
|
598210 |
162 |
tmp = allocmy(PL_tokenbuf, tokenbuf_len, UTF ? SVf_UTF8 : 0); |
|
8979
|
2 |
11594306 |
if (has_colon) |
|
8980
|
2 |
0 |
yyerror_pv(Perl_form(aTHX_ PL_no_myglob, |
|
|
2 |
0 |
yyerror_pv(Perl_form(aTHX_ PL_no_myglob, |
|
|
0 |
2 |
yyerror_pv(Perl_form(aTHX_ PL_no_myglob, |
|
|
0 |
0 |
yyerror_pv(Perl_form(aTHX_ PL_no_myglob, |
|
|
0 |
0 |
yyerror_pv(Perl_form(aTHX_ PL_no_myglob, |
|
|
1 |
1 |
yyerror_pv(Perl_form(aTHX_ PL_no_myglob, |
|
8985
|
11594308 |
0 |
pl_yylval.opval->op_targ = allocmy(PL_tokenbuf, tokenbuf_len, |
|
|
49575 |
11544733 |
pl_yylval.opval->op_targ = allocmy(PL_tokenbuf, tokenbuf_len, |
|
|
0 |
49575 |
pl_yylval.opval->op_targ = allocmy(PL_tokenbuf, tokenbuf_len, |
|
|
11544733 |
0 |
pl_yylval.opval->op_targ = allocmy(PL_tokenbuf, tokenbuf_len, |
|
|
11544037 |
696 |
pl_yylval.opval->op_targ = allocmy(PL_tokenbuf, tokenbuf_len, |
|
8995
|
60773907 |
1135607 |
if (!has_colon) { |
|
8996
|
60175528 |
598379 |
if (!PL_in_my) |
|
8997
|
60175528 |
0 |
tmp = pad_findmy_pvn(PL_tokenbuf, tokenbuf_len, |
|
|
51427 |
60124101 |
tmp = pad_findmy_pvn(PL_tokenbuf, tokenbuf_len, |
|
|
0 |
51427 |
tmp = pad_findmy_pvn(PL_tokenbuf, tokenbuf_len, |
|
|
60122911 |
1190 |
tmp = pad_findmy_pvn(PL_tokenbuf, tokenbuf_len, |
|
|
60118319 |
4592 |
tmp = pad_findmy_pvn(PL_tokenbuf, tokenbuf_len, |
|
8999
|
44472026 |
16301881 |
if (tmp != NOT_IN_PAD) { |
|
9001
|
1963553 |
42508473 |
if (PAD_COMPNAME_FLAGS_isOUR(tmp)) { |
|
9003
|
1963553 |
0 |
HV * const stash = PAD_COMPNAME_OURSTASH(tmp); |
|
9004
|
1963553 |
0 |
HEK * const stashname = HvNAME_HEK(stash); |
|
|
1963553 |
0 |
HEK * const stashname = HvNAME_HEK(stash); |
|
|
0 |
1963553 |
HEK * const stashname = HvNAME_HEK(stash); |
|
9007
|
1963553 |
0 |
sv_catpvn_flags(sym, PL_tokenbuf+1, tokenbuf_len - 1, (UTF ? SV_CATUTF8 : SV_CATBYTES )); |
|
|
23 |
1963530 |
sv_catpvn_flags(sym, PL_tokenbuf+1, tokenbuf_len - 1, (UTF ? SV_CATUTF8 : SV_CATBYTES )); |
|
|
0 |
23 |
sv_catpvn_flags(sym, PL_tokenbuf+1, tokenbuf_len - 1, (UTF ? SV_CATUTF8 : SV_CATBYTES )); |
|
|
1963530 |
0 |
sv_catpvn_flags(sym, PL_tokenbuf+1, tokenbuf_len - 1, (UTF ? SV_CATUTF8 : SV_CATBYTES )); |
|
|
1963276 |
254 |
sv_catpvn_flags(sym, PL_tokenbuf+1, tokenbuf_len - 1, (UTF ? SV_CATUTF8 : SV_CATBYTES )); |
|
9010
|
1963533 |
20 |
if (pit != '&') |
|
9011
|
885789 |
1077744 |
gv_fetchsv(sym, |
|
|
599894 |
285895 |
gv_fetchsv(sym, |
|
|
3001 |
1960532 |
gv_fetchsv(sym, |
|
9033
|
5953939 |
11483549 |
if (ckWARN(WARN_AMBIGUOUS) && |
|
|
989981 |
4963958 |
if (ckWARN(WARN_AMBIGUOUS) && |
|
9034
|
6350 |
983631 |
pit == '@' && PL_lex_state != LEX_NORMAL && !PL_lex_brackets) { |
|
|
6029 |
321 |
pit == '@' && PL_lex_state != LEX_NORMAL && !PL_lex_brackets) { |
|
9035
|
6029 |
0 |
GV *const gv = gv_fetchpvn_flags(PL_tokenbuf + 1, tokenbuf_len - 1, |
|
|
2 |
6027 |
GV *const gv = gv_fetchpvn_flags(PL_tokenbuf + 1, tokenbuf_len - 1, |
|
|
0 |
2 |
GV *const gv = gv_fetchpvn_flags(PL_tokenbuf + 1, tokenbuf_len - 1, |
|
|
6027 |
0 |
GV *const gv = gv_fetchpvn_flags(PL_tokenbuf + 1, tokenbuf_len - 1, |
|
|
6027 |
0 |
GV *const gv = gv_fetchpvn_flags(PL_tokenbuf + 1, tokenbuf_len - 1, |
|
9037
|
6020 |
9 |
if ((!gv || ((PL_tokenbuf[0] == '@') ? !GvAV(gv) : !GvHV(gv))) |
|
|
6020 |
0 |
if ((!gv || ((PL_tokenbuf[0] == '@') ? !GvAV(gv) : !GvHV(gv))) |
|
|
0 |
6020 |
if ((!gv || ((PL_tokenbuf[0] == '@') ? !GvAV(gv) : !GvHV(gv))) |
|
|
0 |
0 |
if ((!gv || ((PL_tokenbuf[0] == '@') ? !GvAV(gv) : !GvHV(gv))) |
|
9039
|
6 |
3 |
&& !( PL_tokenbuf[2] == '\0' && |
|
|
1 |
5 |
&& !( PL_tokenbuf[2] == '\0' && |
|
9044
|
4 |
0 |
Perl_warner(aTHX_ packWARN(WARN_AMBIGUOUS), |
|
|
2 |
0 |
Perl_warner(aTHX_ packWARN(WARN_AMBIGUOUS), |
|
9047
|
2 |
2 |
UTF8fARG(UTF, tokenbuf_len, PL_tokenbuf)); |
|
|
0 |
2 |
UTF8fARG(UTF, tokenbuf_len, PL_tokenbuf)); |
|
|
2 |
0 |
UTF8fARG(UTF, tokenbuf_len, PL_tokenbuf)); |
|
9052
|
17437488 |
0 |
pl_yylval.opval = (OP*)newSVOP(OP_CONST, 0, |
|
|
412 |
17437076 |
pl_yylval.opval = (OP*)newSVOP(OP_CONST, 0, |
|
|
0 |
412 |
pl_yylval.opval = (OP*)newSVOP(OP_CONST, 0, |
|
|
17435715 |
1361 |
pl_yylval.opval = (OP*)newSVOP(OP_CONST, 0, |
|
|
17432776 |
2939 |
pl_yylval.opval = (OP*)newSVOP(OP_CONST, 0, |
|
9057
|
11937386 |
5500102 |
if (pit != '&') |
|
9058
|
6342646 |
5594740 |
gv_fetchpvn_flags(PL_tokenbuf+1, tokenbuf_len - 1, |
|
|
1147666 |
5194980 |
gv_fetchpvn_flags(PL_tokenbuf+1, tokenbuf_len - 1, |
|
|
109548 |
11827838 |
gv_fetchpvn_flags(PL_tokenbuf+1, tokenbuf_len - 1, |
|
|
11937386 |
0 |
gv_fetchpvn_flags(PL_tokenbuf+1, tokenbuf_len - 1, |
|
|
362 |
11937024 |
gv_fetchpvn_flags(PL_tokenbuf+1, tokenbuf_len - 1, |
|
|
0 |
362 |
gv_fetchpvn_flags(PL_tokenbuf+1, tokenbuf_len - 1, |
|
|
11935664 |
1360 |
gv_fetchpvn_flags(PL_tokenbuf+1, tokenbuf_len - 1, |
|
|
11933074 |
2590 |
gv_fetchpvn_flags(PL_tokenbuf+1, tokenbuf_len - 1, |
|
9074
|
817904 |
29525 |
if (*s == ' ' && s[1] == '(') { /* XXX gotta be a better way */ |
|
|
222 |
817682 |
if (*s == ' ' && s[1] == '(') { /* XXX gotta be a better way */ |
|
9075
|
87 |
135 |
if (ckWARN(WARN_SYNTAX)) { |
|
9078
|
3567 |
87 |
for (w = s+2; *w && level; w++) { |
|
9079
|
66 |
3501 |
if (*w == '(') |
|
9081
|
153 |
3348 |
else if (*w == ')') |
|
9084
|
7 |
87 |
while (isSPACE(*w)) |
|
9090
|
87 |
0 |
if (!*w || !strchr(";&/|})]oaiuwef!=", *w)) |
|
|
3 |
84 |
if (!*w || !strchr(";&/|})]oaiuwef!=", *w)) |
|
9095
|
1700743 |
8 |
while (s < PL_bufend && isSPACE(*s)) |
|
|
853322 |
847421 |
while (s < PL_bufend && isSPACE(*s)) |
|
9097
|
25385 |
822044 |
if (*s == '(') |
|
9099
|
850395 |
17 |
while (s < PL_bufend && isSPACE(*s)) |
|
|
2983 |
847412 |
while (s < PL_bufend && isSPACE(*s)) |
|
9101
|
846244 |
1185 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
846244 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
5 |
846239 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
5 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
846191 |
48 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
846022 |
169 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
173 |
1 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
1 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
|
276204 |
571225 |
if (isIDFIRST_lazy_if(s,UTF)) { |
|
9103
|
276204 |
0 |
s += UTF ? UTF8SKIP(s) : 1; |
|
|
3 |
276201 |
s += UTF ? UTF8SKIP(s) : 1; |
|
|
0 |
3 |
s += UTF ? UTF8SKIP(s) : 1; |
|
|
276201 |
0 |
s += UTF ? UTF8SKIP(s) : 1; |
|
|
9 |
276192 |
s += UTF ? UTF8SKIP(s) : 1; |
|
9104
|
1381956 |
448 |
while (isWORDCHAR_lazy_if(s,UTF)) |
|
|
1381956 |
0 |
while (isWORDCHAR_lazy_if(s,UTF)) |
|
|
7 |
1381949 |
while (isWORDCHAR_lazy_if(s,UTF)) |
|
|
0 |
7 |
while (isWORDCHAR_lazy_if(s,UTF)) |
|
|
1381949 |
0 |
while (isWORDCHAR_lazy_if(s,UTF)) |
|
|
1381910 |
39 |
while (isWORDCHAR_lazy_if(s,UTF)) |
|
|
42 |
4 |
while (isWORDCHAR_lazy_if(s,UTF)) |
|
|
4 |
0 |
while (isWORDCHAR_lazy_if(s,UTF)) |
|
|
4 |
0 |
while (isWORDCHAR_lazy_if(s,UTF)) |
|
|
0 |
4 |
while (isWORDCHAR_lazy_if(s,UTF)) |
|
|
1106200 |
276204 |
while (isWORDCHAR_lazy_if(s,UTF)) |
|
9105
|
1106200 |
0 |
s += UTF ? UTF8SKIP(s) : 1; |
|
|
4 |
1106196 |
s += UTF ? UTF8SKIP(s) : 1; |
|
|
0 |
4 |
s += UTF ? UTF8SKIP(s) : 1; |
|
|
1106196 |
0 |
s += UTF ? UTF8SKIP(s) : 1; |
|
|
30 |
1106166 |
s += UTF ? UTF8SKIP(s) : 1; |
|
9106
|
523649 |
992 |
while (s < PL_bufend && isSPACE(*s)) |
|
|
248437 |
275212 |
while (s < PL_bufend && isSPACE(*s)) |
|
9108
|
1111 |
275093 |
if (*s == ',') { |
|
9110
|
5 |
1106 |
if (keyword(w, s - w, 0)) |
|
9113
|
5 |
0 |
gv = gv_fetchpvn_flags(w, s - w, ( UTF ? SVf_UTF8 : 0 ), SVt_PVCV); |
|
|
3 |
2 |
gv = gv_fetchpvn_flags(w, s - w, ( UTF ? SVf_UTF8 : 0 ), SVt_PVCV); |
|
|
0 |
3 |
gv = gv_fetchpvn_flags(w, s - w, ( UTF ? SVf_UTF8 : 0 ), SVt_PVCV); |
|
|
2 |
0 |
gv = gv_fetchpvn_flags(w, s - w, ( UTF ? SVf_UTF8 : 0 ), SVt_PVCV); |
|
|
2 |
0 |
gv = gv_fetchpvn_flags(w, s - w, ( UTF ? SVf_UTF8 : 0 ), SVt_PVCV); |
|
9114
|
5 |
0 |
if (gv && GvCVu(gv)) |
|
|
5 |
0 |
if (gv && GvCVu(gv)) |
|
|
1 |
4 |
if (gv && GvCVu(gv)) |
|
9132
|
0 |
1535 |
{ |
|
9147
|
85 |
1524 |
if (PL_error_count > 0 && *key == 'c') |
|
|
23 |
62 |
if (PL_error_count > 0 && *key == 'c') |
|
9154
|
1577 |
9 |
if (!table |
|
9155
|
1506 |
71 |
|| ! (PL_hints & HINT_LOCALIZE_HH) |
|
9156
|
1485 |
21 |
|| ! (cvp = hv_fetch(table, key, keylen, FALSE)) |
|
9157
|
0 |
1485 |
|| ! SvOK(*cvp)) |
|
|
0 |
0 |
|| ! SvOK(*cvp)) |
|
|
0 |
0 |
|| ! SvOK(*cvp)) |
|
9163
|
52 |
49 |
if (*key == 'c') { |
|
9176
|
52 |
0 |
if (table |
|
9177
|
50 |
2 |
&& (PL_hints & HINT_LOCALIZE_HH) |
|
9178
|
50 |
0 |
&& (cvp = hv_fetch(table, key, keylen, FALSE)) |
|
9179
|
0 |
50 |
&& SvOK(*cvp)) |
|
|
0 |
0 |
&& SvOK(*cvp)) |
|
|
0 |
0 |
&& SvOK(*cvp)) |
|
9184
|
42 |
9 |
if (!table || !(PL_hints & HINT_LOCALIZE_HH)) { |
|
|
22 |
20 |
if (!table || !(PL_hints & HINT_LOCALIZE_HH)) { |
|
9185
|
23 |
8 |
msg = Perl_form(aTHX_ |
|
|
8 |
23 |
msg = Perl_form(aTHX_ |
|
9195
|
32 |
49 |
if (*key == 'c') { |
|
9202
|
43 |
6 |
msg = Perl_form(aTHX_ "Constant(%.*s): %s%s%s", |
|
|
6 |
43 |
msg = Perl_form(aTHX_ "Constant(%.*s): %s%s%s", |
|
9207
|
112 |
0 |
yyerror_pv(msg, UTF ? SVf_UTF8 : 0); |
|
|
1 |
111 |
yyerror_pv(msg, UTF ? SVf_UTF8 : 0); |
|
|
0 |
1 |
yyerror_pv(msg, UTF ? SVf_UTF8 : 0); |
|
|
111 |
0 |
yyerror_pv(msg, UTF ? SVf_UTF8 : 0); |
|
|
111 |
0 |
yyerror_pv(msg, UTF ? SVf_UTF8 : 0); |
|
9212
|
271 |
1264 |
if (!pv && s) |
|
9214
|
39 |
1496 |
if (type && pv) |
|
9219
|
7 |
1528 |
PUSHSTACKi(PERLSI_OVERLOAD); |
|
9223
|
0 |
1535 |
PUSHMARK(SP) ; |
|
9225
|
272 |
1263 |
if (pv) |
|
9228
|
272 |
1263 |
if (pv) |
|
9231
|
1245 |
290 |
call_sv(cv, G_SCALAR | ( PL_in_eval ? 0 : G_EVAL)); |
|
9236
|
1245 |
288 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
1245 |
0 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
0 |
1245 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
0 |
1245 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
0 |
0 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
0 |
0 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
1245 |
0 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
1245 |
0 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
1243 |
2 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
0 |
1243 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
0 |
0 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
0 |
0 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
0 |
0 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
0 |
0 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
0 |
0 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
0 |
0 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
|
2 |
1243 |
if (!PL_in_eval && ((errsv = ERRSV), SvTRUE_NN(errsv))) { |
|
9240
|
2 |
0 |
errstr = SvPV_const(errsv, errlen); |
|
9251
|
1504 |
29 |
FREETMPS ; |
|
9253
|
0 |
1533 |
POPSTACK; |
|
9255
|
61 |
1472 |
if (!SvOK(res)) { |
|
|
61 |
0 |
if (!SvOK(res)) { |
|
|
61 |
0 |
if (!SvOK(res)) { |
|
9273
|
7 |
336480035 |
if (*d >= e) |
|
9275
|
1445056 |
335034979 |
if (is_utf8 && isIDFIRST_utf8((U8*)*s)) { |
|
|
1329211 |
115845 |
if (is_utf8 && isIDFIRST_utf8((U8*)*s)) { |
|
|
613650 |
715561 |
if (is_utf8 && isIDFIRST_utf8((U8*)*s)) { |
|
|
248 |
115597 |
if (is_utf8 && isIDFIRST_utf8((U8*)*s)) { |
|
|
248 |
0 |
if (is_utf8 && isIDFIRST_utf8((U8*)*s)) { |
|
|
66 |
182 |
if (is_utf8 && isIDFIRST_utf8((U8*)*s)) { |
|
|
182 |
66 |
if (is_utf8 && isIDFIRST_utf8((U8*)*s)) { |
|
|
98695 |
16902 |
if (is_utf8 && isIDFIRST_utf8((U8*)*s)) { |
|
9282
|
1076818 |
3739 |
while (isIDCONT_utf8((U8*)t)) |
|
|
387 |
3352 |
while (isIDCONT_utf8((U8*)t)) |
|
|
387 |
0 |
while (isIDCONT_utf8((U8*)t)) |
|
|
1 |
386 |
while (isIDCONT_utf8((U8*)t)) |
|
|
368030 |
712527 |
while (isIDCONT_utf8((U8*)t)) |
|
9284
|
0 |
712527 |
if (*d + (t - *s) > e) |
|
9290
|
164339967 |
171427541 |
else if ( isWORDCHAR_A(**s) ) { |
|
9293
|
164339967 |
617797974 |
} while isWORDCHAR_A(**s); |
|
9295
|
101569166 |
69858375 |
else if (allow_package && **s == '\'' && isIDFIRST_lazy_if(*s+1,is_utf8)) { |
|
|
313590 |
101255576 |
else if (allow_package && **s == '\'' && isIDFIRST_lazy_if(*s+1,is_utf8)) { |
|
|
310135 |
3455 |
else if (allow_package && **s == '\'' && isIDFIRST_lazy_if(*s+1,is_utf8)) { |
|
|
310117 |
18 |
else if (allow_package && **s == '\'' && isIDFIRST_lazy_if(*s+1,is_utf8)) { |
|
|
1304 |
312268 |
else if (allow_package && **s == '\'' && isIDFIRST_lazy_if(*s+1,is_utf8)) { |
|
|
17 |
1 |
else if (allow_package && **s == '\'' && isIDFIRST_lazy_if(*s+1,is_utf8)) { |
|
|
1 |
16 |
else if (allow_package && **s == '\'' && isIDFIRST_lazy_if(*s+1,is_utf8)) { |
|
|
0 |
1 |
else if (allow_package && **s == '\'' && isIDFIRST_lazy_if(*s+1,is_utf8)) { |
|
|
0 |
0 |
else if (allow_package && **s == '\'' && isIDFIRST_lazy_if(*s+1,is_utf8)) { |
|
|
0 |
0 |
else if (allow_package && **s == '\'' && isIDFIRST_lazy_if(*s+1,is_utf8)) { |
|
|
0 |
0 |
else if (allow_package && **s == '\'' && isIDFIRST_lazy_if(*s+1,is_utf8)) { |
|
|
1 |
0 |
else if (allow_package && **s == '\'' && isIDFIRST_lazy_if(*s+1,is_utf8)) { |
|
9300
|
101567860 |
69858375 |
else if (allow_package && **s == ':' && (*s)[1] == ':' |
|
|
9581193 |
91986667 |
else if (allow_package && **s == ':' && (*s)[1] == ':' |
|
|
9350980 |
230213 |
else if (allow_package && **s == ':' && (*s)[1] == ':' |
|
9305
|
9350978 |
2 |
&& (*s)[2] != '$') { |
|
9324
|
90618516 |
0 |
bool is_utf8 = cBOOL(UTF); |
|
|
141522 |
90476994 |
bool is_utf8 = cBOOL(UTF); |
|
|
0 |
141522 |
bool is_utf8 = cBOOL(UTF); |
|
|
90473208 |
3786 |
bool is_utf8 = cBOOL(UTF); |
|
|
90010280 |
462928 |
bool is_utf8 = cBOOL(UTF); |
|
9342
|
71949529 |
0 |
bool is_utf8 = cBOOL(UTF); |
|
|
118084 |
71831445 |
bool is_utf8 = cBOOL(UTF); |
|
|
0 |
118084 |
bool is_utf8 = cBOOL(UTF); |
|
|
71830029 |
1416 |
bool is_utf8 = cBOOL(UTF); |
|
|
71823797 |
6232 |
bool is_utf8 = cBOOL(UTF); |
|
9346
|
20418 |
71929111 |
if (isSPACE(*s)) |
|
9348
|
736869 |
71212660 |
if (isDIGIT(*s)) { |
|
9349
|
736944 |
736869 |
while (isDIGIT(*s)) { |
|
9350
|
0 |
736944 |
if (d >= e) |
|
9360
|
67296566 |
4652956 |
if (*d) { |
|
9363
|
4388806 |
62907760 |
if (PL_lex_state != LEX_NORMAL) |
|
9367
|
1415810 |
3237146 |
if (*s == '$' && s[1] && |
|
|
1409405 |
6405 |
if (*s == '$' && s[1] && |
|
|
1386148 |
23257 |
if (*s == '$' && s[1] && |
|
|
23408 |
1385928 |
if (*s == '$' && s[1] && |
|
|
68 |
1 |
if (*s == '$' && s[1] && |
|
|
0 |
1 |
if (*s == '$' && s[1] && |
|
9368
|
1386079 |
69 |
(isIDFIRST_lazy_if(s+1,is_utf8) |
|
9369
|
10 |
58 |
|| isDIGIT_A((U8)s[1]) |
|
|
0 |
0 |
|| isDIGIT_A((U8)s[1]) |
|
|
0 |
0 |
|| isDIGIT_A((U8)s[1]) |
|
|
23416 |
2 |
|| isDIGIT_A((U8)s[1]) |
|
9370
|
23267 |
149 |
|| s[1] == '$' |
|
9371
|
23256 |
11 |
|| s[1] == '{' |
|
9372
|
8 |
23248 |
|| strnEQ(s+1,"::",2)) ) |
|
9380
|
1462896 |
1803903 |
if (*s == '{') { |
|
9383
|
1578201 |
0 |
while (s < send && SPACE_OR_TAB(*s)) |
|
|
115305 |
1462896 |
while (s < send && SPACE_OR_TAB(*s)) |
|
9398
|
3266798 |
1 |
if (s < send |
|
|
3259998 |
6800 |
if (s < send |
|
|
537 |
16971 |
if (s < send |
|
|
65 |
16906 |
if (s < send |
|
9399
|
3242490 |
17508 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
3005226 |
244064 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
517 |
20 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
65 |
0 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
65 |
0 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
65 |
0 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
16902 |
4 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
31473 |
2991237 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
17226 |
14247 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
259 |
16967 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
66 |
193 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
66 |
16967 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
61 |
5 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
61 |
0 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
17028 |
0 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
|
0 |
17028 |
&& (isIDFIRST_lazy_if(s, is_utf8) || VALID_LEN_ONE_IDENT(*s, is_utf8))) |
|
9401
|
541 |
3249229 |
if (is_utf8) { |
|
9405
|
548 |
541 |
for ( i = 0; i < skip; i++ ) |
|
9414
|
743730 |
2523069 |
if (*d == '^' && *s && isCONTROLVAR(*s)) { |
|
|
743730 |
0 |
if (*d == '^' && *s && isCONTROLVAR(*s)) { |
|
|
1463 |
742267 |
if (*d == '^' && *s && isCONTROLVAR(*s)) { |
|
|
0 |
1463 |
if (*d == '^' && *s && isCONTROLVAR(*s)) { |
|
9415
|
0 |
742267 |
*d = toCTRL(*s); |
|
9421
|
4 |
2524528 |
else if (ck_uni && !bracket) |
|
9423
|
1462896 |
1803903 |
if (bracket) { |
|
9425
|
1458590 |
4306 |
if (isIDFIRST_lazy_if(d,is_utf8)) { |
|
|
1458428 |
162 |
if (isIDFIRST_lazy_if(d,is_utf8)) { |
|
|
158 |
4 |
if (isIDFIRST_lazy_if(d,is_utf8)) { |
|
|
0 |
4 |
if (isIDFIRST_lazy_if(d,is_utf8)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(d,is_utf8)) { |
|
|
0 |
0 |
if (isIDFIRST_lazy_if(d,is_utf8)) { |
|
|
244088 |
1218808 |
if (isIDFIRST_lazy_if(d,is_utf8)) { |
|
9429
|
24 |
244064 |
d += is_utf8 ? UTF8SKIP(d) : 1; |
|
9432
|
249966 |
0 |
while (s < send && SPACE_OR_TAB(*s)) |
|
|
5878 |
244088 |
while (s < send && SPACE_OR_TAB(*s)) |
|
9434
|
244084 |
4 |
if ((*s == '[' || (*s == '{' && strNE(dest, "sub")))) { |
|
|
5 |
244079 |
if ((*s == '[' || (*s == '{' && strNE(dest, "sub")))) { |
|
|
2 |
3 |
if ((*s == '[' || (*s == '{' && strNE(dest, "sub")))) { |
|
|
2 |
0 |
if ((*s == '[' || (*s == '{' && strNE(dest, "sub")))) { |
|
|
2 |
0 |
if ((*s == '[' || (*s == '{' && strNE(dest, "sub")))) { |
|
|
3 |
2 |
if ((*s == '[' || (*s == '{' && strNE(dest, "sub")))) { |
|
9436
|
4 |
3 |
if (ckWARN(WARN_AMBIGUOUS) && keyword(dest, d - dest, 0)) { |
|
|
3 |
1 |
if (ckWARN(WARN_AMBIGUOUS) && keyword(dest, d - dest, 0)) { |
|
9439
|
1 |
2 |
((*s == '[') ? "[...]" : "{...}"); |
|
9453
|
70657 |
1148151 |
else if (! isPRINT(*d) /* isCNTRL(d), plus all non-ASCII */ |
|
9454
|
69967 |
690 |
&& isWORDCHAR(*s)) |
|
9457
|
717889 |
69967 |
while (isWORDCHAR(*s) && d < e) { |
|
|
717889 |
0 |
while (isWORDCHAR(*s) && d < e) { |
|
9460
|
0 |
69967 |
if (d >= e) |
|
9465
|
1464234 |
1 |
while (s < send && SPACE_OR_TAB(*s)) |
|
|
1346 |
1462888 |
while (s < send && SPACE_OR_TAB(*s)) |
|
9470
|
273095 |
1189794 |
if (*s == '}') { |
|
9472
|
198853 |
74242 |
if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets) { |
|
|
198753 |
100 |
if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets) { |
|
9476
|
74242 |
198853 |
if (PL_lex_state == LEX_NORMAL) { |
|
9479
|
25888 |
12 |
|| get_cvn_flags(dest, d - dest, is_utf8 ? SVf_UTF8 : 0))) |
|
|
3 |
25897 |
|| get_cvn_flags(dest, d - dest, is_utf8 ? SVf_UTF8 : 0))) |
|
9481
|
8 |
2 |
SV *tmp = newSVpvn_flags( dest, d - dest, |
|
9483
|
1 |
9 |
if (funny == '#') |
|
9498
|
422071 |
1381832 |
else if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets && !intuit_more(s)) |
|
|
420672 |
1399 |
else if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets && !intuit_more(s)) |
|
|
415485 |
5187 |
else if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets && !intuit_more(s)) |
|
9517
|
3263313 |
0 |
STRLEN charlen = UTF ? UTF8SKIP(*s) : 1; |
|
|
17102 |
3246211 |
STRLEN charlen = UTF ? UTF8SKIP(*s) : 1; |
|
|
0 |
17102 |
STRLEN charlen = UTF ? UTF8SKIP(*s) : 1; |
|
|
3243133 |
3078 |
STRLEN charlen = UTF ? UTF8SKIP(*s) : 1; |
|
|
776 |
3242357 |
STRLEN charlen = UTF ? UTF8SKIP(*s) : 1; |
|
9519
|
3263311 |
2 |
if ( charlen != 1 || ! strchr(valid_flags, c) ) { |
|
|
0 |
3263311 |
if ( charlen != 1 || ! strchr(valid_flags, c) ) { |
|
|
0 |
0 |
if ( charlen != 1 || ! strchr(valid_flags, c) ) { |
|
|
2452633 |
810678 |
if ( charlen != 1 || ! strchr(valid_flags, c) ) { |
|
9520
|
2449637 |
2998 |
if (isWORDCHAR_lazy_if(*s, UTF)) { |
|
|
2449637 |
0 |
if (isWORDCHAR_lazy_if(*s, UTF)) { |
|
|
9696 |
2439941 |
if (isWORDCHAR_lazy_if(*s, UTF)) { |
|
|
0 |
9696 |
if (isWORDCHAR_lazy_if(*s, UTF)) { |
|
|
2436863 |
3078 |
if (isWORDCHAR_lazy_if(*s, UTF)) { |
|
|
2436210 |
653 |
if (isWORDCHAR_lazy_if(*s, UTF)) { |
|
|
10347 |
2 |
if (isWORDCHAR_lazy_if(*s, UTF)) { |
|
|
0 |
2 |
if (isWORDCHAR_lazy_if(*s, UTF)) { |
|
|
0 |
0 |
if (isWORDCHAR_lazy_if(*s, UTF)) { |
|
|
0 |
0 |
if (isWORDCHAR_lazy_if(*s, UTF)) { |
|
|
12 |
2452623 |
if (isWORDCHAR_lazy_if(*s, UTF)) { |
|
9521
|
12 |
0 |
yyerror_pv(Perl_form(aTHX_ "Unknown regexp modifier \"/%.*s\"", (int)charlen, *s), |
|
|
0 |
12 |
yyerror_pv(Perl_form(aTHX_ "Unknown regexp modifier \"/%.*s\"", (int)charlen, *s), |
|
|
0 |
0 |
yyerror_pv(Perl_form(aTHX_ "Unknown regexp modifier \"/%.*s\"", (int)charlen, *s), |
|
|
12 |
0 |
yyerror_pv(Perl_form(aTHX_ "Unknown regexp modifier \"/%.*s\"", (int)charlen, *s), |
|
|
7 |
5 |
yyerror_pv(Perl_form(aTHX_ "Unknown regexp modifier \"/%.*s\"", (int)charlen, *s), |
|
9540
|
203 |
1 |
if (*charset) { |
|
9547
|
5330 |
1 |
if (*charset) { |
|
9554
|
516 |
251 |
if (! *charset) { |
|
9561
|
250 |
1 |
if (*charset != 'a' |
|
9562
|
249 |
1 |
|| get_regex_charset(*pmfl) |
|
9572
|
156 |
40 |
if (*charset) { |
|
9584
|
2 |
42 |
if (*charset != c) { |
|
9587
|
1 |
41 |
else if (c == 'a') { |
|
9606
|
1437906 |
245725 |
(const char *)((type == OP_QR) ? QR_PAT_MODS : M_PAT_MODS); |
|
9617
|
23 |
1683608 |
if (!s) { |
|
9619
|
23 |
0 |
Perl_croak(aTHX_ |
|
9627
|
17 |
1683591 |
if (PL_multi_open == '?') { |
|
9635
|
17 |
0 |
if (PL_curstash) { |
|
9638
|
14 |
3 |
if (!mg) { |
|
9643
|
0 |
17 |
Renewc(mg->mg_ptr, elements + 1, PMOP*, char); |
|
9656
|
245717 |
1437891 |
if (type == OP_QR) { |
|
9658
|
245717 |
0 |
char *e, *p = SvPV(PL_lex_stuff, len); |
|
9660
|
8593515 |
241245 |
for (; p < e; p++) { |
|
9661
|
196311 |
8397204 |
if (p[0] == '(' && p[1] == '?' |
|
|
118974 |
77337 |
if (p[0] == '(' && p[1] == '?' |
|
9662
|
118287 |
687 |
&& (p[2] == '{' || (p[2] == '?' && p[3] == '{'))) |
|
|
3785 |
114502 |
&& (p[2] == '{' || (p[2] == '?' && p[3] == '{'))) |
|
|
3785 |
0 |
&& (p[2] == '{' || (p[2] == '?' && p[3] == '{'))) |
|
9671
|
2054828 |
1 |
while (*s && S_pmflag(aTHX_ valid_flags, &(pm->op_pmflags), &s, &charset)) {}; |
|
|
371221 |
1683605 |
while (*s && S_pmflag(aTHX_ valid_flags, &(pm->op_pmflags), &s, &charset)) {}; |
|
9679
|
3 |
1683603 |
if ((pm->op_pmflags & PMf_CONTINUE) && !(pm->op_pmflags & PMf_GLOBAL)) |
|
9711
|
1 |
769023 |
if (!s) |
|
9714
|
672023 |
97000 |
if (s[-1] == PL_multi_open) |
|
9729
|
3 |
769020 |
if (!s) { |
|
9730
|
3 |
0 |
if (PL_lex_stuff) { |
|
9749
|
1300036 |
0 |
while (*s) { |
|
9750
|
91551 |
1208485 |
if (*s == EXEC_PAT_MOD) { |
|
9754
|
439465 |
769018 |
else if (! S_pmflag(aTHX_ S_PAT_MODS, &(pm->op_pmflags), &s, &charset)) |
|
9768
|
4 |
769014 |
if ((pm->op_pmflags & PMf_CONTINUE)) { |
|
9772
|
89845 |
679173 |
if (es) { |
|
9777
|
91551 |
89845 |
while (es-- > 0) { |
|
9778
|
1706 |
89845 |
if (es) |
|
9790
|
14682 |
754336 |
if (CopLINE(PL_curcop) != first_line) { |
|
9821
|
6 |
58051 |
if (!s) |
|
9824
|
52038 |
6013 |
if (s[-1] == PL_multi_open) |
|
9837
|
58045 |
6 |
if (!s) { |
|
9838
|
6 |
0 |
if (PL_lex_stuff) { |
|
9875
|
58031 |
14 |
o = newPVOP(nondestruct ? OP_TRANSR : OP_TRANS, 0, (char*)NULL); |
|
9877
|
20 |
58025 |
o->op_private |= del|squash|complement| |
|
|
20 |
58025 |
o->op_private |= del|squash|complement| |
|
9878
|
0 |
20 |
(DO_UTF8(PL_lex_stuff)? OPpTRANS_FROM_UTF : 0)| |
|
9879
|
0 |
20 |
(DO_UTF8(PL_sublex_info.repl) ? OPpTRANS_TO_UTF : 0); |
|
9882
|
58031 |
14 |
pl_yylval.ival = nondestruct ? OP_TRANSR : OP_TRANS; |
|
9931
|
4456 |
175007 |
const bool infile = PL_rsfp || PL_parser->filtered; |
|
|
4456 |
0 |
const bool infile = PL_rsfp || PL_parser->filtered; |
|
9947
|
5592 |
179463 |
while (SPACE_OR_TAB(*peek)) |
|
9949
|
67666 |
111797 |
if (*peek == '`' || *peek == '\'' || *peek =='"') { |
|
|
32941 |
34725 |
if (*peek == '`' || *peek == '\'' || *peek =='"') { |
|
9953
|
1 |
144737 |
if (s == PL_bufend) |
|
9959
|
4 |
34721 |
if (*s == '\\') |
|
9964
|
34477 |
248 |
if (!isWORDCHAR_lazy_if(s,UTF)) |
|
|
34477 |
0 |
if (!isWORDCHAR_lazy_if(s,UTF)) |
|
|
0 |
34477 |
if (!isWORDCHAR_lazy_if(s,UTF)) |
|
|
0 |
0 |
if (!isWORDCHAR_lazy_if(s,UTF)) |
|
|
34477 |
0 |
if (!isWORDCHAR_lazy_if(s,UTF)) |
|
|
34474 |
3 |
if (!isWORDCHAR_lazy_if(s,UTF)) |
|
|
3 |
0 |
if (!isWORDCHAR_lazy_if(s,UTF)) |
|
|
0 |
3 |
if (!isWORDCHAR_lazy_if(s,UTF)) |
|
|
0 |
0 |
if (!isWORDCHAR_lazy_if(s,UTF)) |
|
|
0 |
0 |
if (!isWORDCHAR_lazy_if(s,UTF)) |
|
|
0 |
0 |
if (!isWORDCHAR_lazy_if(s,UTF)) |
|
|
37 |
34688 |
if (!isWORDCHAR_lazy_if(s,UTF)) |
|
9966
|
190320 |
992 |
for (; isWORDCHAR_lazy_if(s,UTF); s++) { |
|
|
190320 |
0 |
for (; isWORDCHAR_lazy_if(s,UTF); s++) { |
|
|
0 |
190320 |
for (; isWORDCHAR_lazy_if(s,UTF); s++) { |
|
|
0 |
0 |
for (; isWORDCHAR_lazy_if(s,UTF); s++) { |
|
|
190320 |
0 |
for (; isWORDCHAR_lazy_if(s,UTF); s++) { |
|
|
190308 |
12 |
for (; isWORDCHAR_lazy_if(s,UTF); s++) { |
|
|
12 |
0 |
for (; isWORDCHAR_lazy_if(s,UTF); s++) { |
|
|
0 |
0 |
for (; isWORDCHAR_lazy_if(s,UTF); s++) { |
|
|
0 |
0 |
for (; isWORDCHAR_lazy_if(s,UTF); s++) { |
|
|
0 |
0 |
for (; isWORDCHAR_lazy_if(s,UTF); s++) { |
|
|
156587 |
34725 |
for (; isWORDCHAR_lazy_if(s,UTF); s++) { |
|
9967
|
156587 |
0 |
if (d < e) |
|
9971
|
0 |
179462 |
if (d >= PL_tokenbuf + sizeof PL_tokenbuf - 1) |
|
9988
|
7 |
179455 |
if (d) { |
|
9991
|
7 |
7 |
while (s < PL_bufend) { |
|
9992
|
7 |
0 |
if (*s == '\r') { |
|
9994
|
7 |
0 |
if (*++s == '\n') |
|
9997
|
0 |
0 |
else if (*s == '\n' && s[1] == '\r') { /* \015\013 on a mac? */ |
|
|
0 |
0 |
else if (*s == '\n' && s[1] == '\r') { /* \015\013 on a mac? */ |
|
10023
|
179462 |
0 |
SvGROW(tmpstr, 80); |
|
|
179462 |
0 |
SvGROW(tmpstr, 80); |
|
10024
|
111801 |
67661 |
if (term == '\'') { |
|
10028
|
0 |
67661 |
else if (term == '`') { |
|
10036
|
175006 |
4456 |
if (!infile || PL_lex_inwhat) { |
|
|
11 |
174995 |
if (!infile || PL_lex_inwhat) { |
|
10045
|
27 |
4440 |
if (PL_lex_inwhat) |
|
10051
|
20 |
22 |
while (!(s = (char *)memchr( |
|
10065
|
7 |
13 |
if (infile && !shared->ls_prev) { |
|
|
2 |
5 |
if (infile && !shared->ls_prev) { |
|
10077
|
2144935 |
8 |
while (s < bufend - len + 1 && |
|
|
2140481 |
4454 |
while (s < bufend - len + 1 && |
|
10079
|
63896 |
2076585 |
if (*s++ == '\n') |
|
10082
|
4454 |
8 |
if (s >= bufend - len + 1) { |
|
10108
|
4451 |
3 |
if (shared->re_eval_start || shared->re_eval_str) { |
|
|
0 |
4451 |
if (shared->re_eval_start || shared->re_eval_str) { |
|
10110
|
3 |
0 |
if (!shared->re_eval_str) |
|
10116
|
4448 |
6 |
if (cxstack_ix >= 0 && CxTYPE(cx) == CXt_EVAL && |
|
|
4448 |
0 |
if (cxstack_ix >= 0 && CxTYPE(cx) == CXt_EVAL && |
|
|
4448 |
0 |
if (cxstack_ix >= 0 && CxTYPE(cx) == CXt_EVAL && |
|
10117
|
79 |
4369 |
CxOLD_OP_TYPE(cx) == OP_ENTEREVAL && |
|
10129
|
4445 |
9 |
if (shared == PL_parser->lex_shared) PL_bufend = SvEND(linestr); |
|
10156
|
37 |
8516610 |
if (!lex_next_chunk(LEX_NO_TERM) |
|
10157
|
35 |
2 |
&& (!SvCUR(tmpstr) || SvEND(tmpstr)[-1] != '\n')) { |
|
|
33 |
2 |
&& (!SvCUR(tmpstr) || SvEND(tmpstr)[-1] != '\n')) { |
|
10162
|
8516610 |
2 |
if (!SvCUR(PL_linestr) || PL_bufend[-1] != '\n') { |
|
|
34 |
8516576 |
if (!SvCUR(PL_linestr) || PL_bufend[-1] != '\n') { |
|
10176
|
8424935 |
91677 |
if (PL_bufend - PL_linestart >= 2) { |
|
10177
|
408 |
8424527 |
if ((PL_bufend[-2] == '\r' && PL_bufend[-1] == '\n') || |
|
|
0 |
408 |
if ((PL_bufend[-2] == '\r' && PL_bufend[-1] == '\n') || |
|
|
36 |
8424491 |
if ((PL_bufend[-2] == '\r' && PL_bufend[-1] == '\n') || |
|
10178
|
0 |
36 |
(PL_bufend[-2] == '\n' && PL_bufend[-1] == '\r')) |
|
10184
|
0 |
8424527 |
else if (PL_bufend[-1] == '\r') |
|
10187
|
91677 |
0 |
else if (PL_bufend - PL_linestart == 1 && PL_bufend[-1] == '\r') |
|
|
0 |
91677 |
else if (PL_bufend - PL_linestart == 1 && PL_bufend[-1] == '\r') |
|
10190
|
228595 |
8288017 |
if (*s == term && memEQ(s,PL_tokenbuf + 1,len)) { |
|
|
174965 |
53630 |
if (*s == term && memEQ(s,PL_tokenbuf + 1,len)) { |
|
10204
|
146609 |
32810 |
if (SvCUR(tmpstr) + 5 < SvLEN(tmpstr)) { |
|
10207
|
179168 |
251 |
if (!IN_BYTES) { |
|
10208
|
179168 |
0 |
if (UTF && is_utf8_string((U8*)SvPVX_const(tmpstr), SvCUR(tmpstr))) |
|
|
0 |
179168 |
if (UTF && is_utf8_string((U8*)SvPVX_const(tmpstr), SvCUR(tmpstr))) |
|
|
0 |
0 |
if (UTF && is_utf8_string((U8*)SvPVX_const(tmpstr), SvCUR(tmpstr))) |
|
|
179168 |
0 |
if (UTF && is_utf8_string((U8*)SvPVX_const(tmpstr), SvCUR(tmpstr))) |
|
|
18 |
179150 |
if (UTF && is_utf8_string((U8*)SvPVX_const(tmpstr), SvCUR(tmpstr))) |
|
|
18 |
0 |
if (UTF && is_utf8_string((U8*)SvPVX_const(tmpstr), SvCUR(tmpstr))) |
|
10210
|
0 |
179150 |
else if (PL_encoding) |
|
10252
|
8 |
47062 |
if (!end) |
|
10260
|
0 |
47070 |
if (len >= (I32)sizeof PL_tokenbuf) |
|
10262
|
2 |
47068 |
if (s >= end) |
|
10274
|
28956 |
18112 |
if (*d == '$' && d[1]) d++; |
|
|
28956 |
0 |
if (*d == '$' && d[1]) d++; |
|
10277
|
162060 |
46960 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
161664 |
396 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
161664 |
0 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
0 |
161664 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
0 |
0 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
161664 |
0 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
161636 |
28 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
161898 |
134 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
21 |
7 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
21 |
0 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
1 |
6 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
1 |
0 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
0 |
1 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
1 |
0 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
6 |
0 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
0 |
134 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
|
26 |
108 |
while (*d && (isWORDCHAR_lazy_if(d,UTF) || *d == '\'' || *d == ':')) |
|
10278
|
161952 |
0 |
d += UTF ? UTF8SKIP(d) : 1; |
|
|
0 |
161952 |
d += UTF ? UTF8SKIP(d) : 1; |
|
|
0 |
0 |
d += UTF ? UTF8SKIP(d) : 1; |
|
|
161952 |
0 |
d += UTF ? UTF8SKIP(d) : 1; |
|
|
28 |
161924 |
d += UTF ? UTF8SKIP(d) : 1; |
|
10286
|
108 |
46960 |
if (d - PL_tokenbuf != len) { |
|
10289
|
0 |
108 |
if (!s) |
|
10301
|
1274 |
45686 |
if (!len) |
|
10306
|
205 |
46755 |
if ((gv_readline |
|
10307
|
205 |
0 |
&& GvCVu(gv_readline) && GvIMPORTED_CV(gv_readline)) |
|
|
3 |
202 |
&& GvCVu(gv_readline) && GvIMPORTED_CV(gv_readline)) |
|
|
0 |
3 |
&& GvCVu(gv_readline) && GvIMPORTED_CV(gv_readline)) |
|
10308
|
4 |
46953 |
|| |
|
10310
|
4 |
0 |
&& (gv_readline = *gvp) && isGV_with_GP(gv_readline) |
|
|
3 |
1 |
&& (gv_readline = *gvp) && isGV_with_GP(gv_readline) |
|
|
3 |
0 |
&& (gv_readline = *gvp) && isGV_with_GP(gv_readline) |
|
10311
|
3 |
0 |
&& GvCVu(gv_readline) && GvIMPORTED_CV(gv_readline))) |
|
|
3 |
0 |
&& GvCVu(gv_readline) && GvIMPORTED_CV(gv_readline))) |
|
|
3 |
0 |
&& GvCVu(gv_readline) && GvIMPORTED_CV(gv_readline))) |
|
10317
|
28942 |
18018 |
if (*d == '$') { |
|
10321
|
28942 |
0 |
const PADOFFSET tmp = pad_findmy_pvn(d, len, UTF ? SVf_UTF8 : 0); |
|
|
0 |
28942 |
const PADOFFSET tmp = pad_findmy_pvn(d, len, UTF ? SVf_UTF8 : 0); |
|
|
0 |
0 |
const PADOFFSET tmp = pad_findmy_pvn(d, len, UTF ? SVf_UTF8 : 0); |
|
|
28942 |
0 |
const PADOFFSET tmp = pad_findmy_pvn(d, len, UTF ? SVf_UTF8 : 0); |
|
|
28941 |
1 |
const PADOFFSET tmp = pad_findmy_pvn(d, len, UTF ? SVf_UTF8 : 0); |
|
10322
|
28882 |
60 |
if (tmp != NOT_IN_PAD) { |
|
10323
|
2 |
28880 |
if (PAD_COMPNAME_FLAGS_isOUR(tmp)) { |
|
10324
|
2 |
0 |
HV * const stash = PAD_COMPNAME_OURSTASH(tmp); |
|
10325
|
2 |
0 |
HEK * const stashname = HvNAME_HEK(stash); |
|
|
2 |
0 |
HEK * const stashname = HvNAME_HEK(stash); |
|
|
0 |
2 |
HEK * const stashname = HvNAME_HEK(stash); |
|
10339
|
2 |
28878 |
: (OP*)newUNOP(OP_READLINE, 0, o); |
|
10346
|
61 |
1 |
gv = gv_fetchpv(d, |
|
|
62 |
0 |
gv = gv_fetchpv(d, |
|
|
0 |
62 |
gv = gv_fetchpv(d, |
|
|
0 |
0 |
gv = gv_fetchpv(d, |
|
|
62 |
0 |
gv = gv_fetchpv(d, |
|
|
62 |
0 |
gv = gv_fetchpv(d, |
|
10356
|
2 |
60 |
: (OP*)newUNOP(OP_READLINE, 0, |
|
10360
|
28938 |
4 |
if (!readline_overriden) |
|
10369
|
18018 |
0 |
GV * const gv = gv_fetchpv(d, GV_ADD | ( UTF ? SVf_UTF8 : 0 ), SVt_PVIO); |
|
|
0 |
18018 |
GV * const gv = gv_fetchpv(d, GV_ADD | ( UTF ? SVf_UTF8 : 0 ), SVt_PVIO); |
|
|
0 |
0 |
GV * const gv = gv_fetchpv(d, GV_ADD | ( UTF ? SVf_UTF8 : 0 ), SVt_PVIO); |
|
|
18018 |
0 |
GV * const gv = gv_fetchpv(d, GV_ADD | ( UTF ? SVf_UTF8 : 0 ), SVt_PVIO); |
|
|
18008 |
10 |
GV * const gv = gv_fetchpv(d, GV_ADD | ( UTF ? SVf_UTF8 : 0 ), SVt_PVIO); |
|
10375
|
2 |
18016 |
: (OP*)newUNOP(OP_READLINE, 0, newGVOP(OP_GV, 0, gv)); |
|
10460
|
40618 |
28892482 |
if (isSPACE(*s)) { |
|
10477
|
28933100 |
0 |
if (!UTF) { |
|
|
92658 |
28840442 |
if (!UTF) { |
|
|
0 |
92658 |
if (!UTF) { |
|
|
28837271 |
3171 |
if (!UTF) { |
|
|
28372968 |
464303 |
if (!UTF) { |
|
10482
|
48727 |
508234 |
termcode = utf8_to_uvchr_buf((U8*)s, (U8*)PL_bufend, &termlen); |
|
10484
|
3 |
556958 |
if (!UTF8_IS_INVARIANT(term)) |
|
10494
|
28892977 |
40123 |
if (term && (tmps = strchr("([{< )]}> )]}>",term))) |
|
|
1921970 |
26971007 |
if (term && (tmps = strchr("([{< )]}> )]}>",term))) |
|
10503
|
2452655 |
26480445 |
if (deprecate_escaped_meta |
|
10504
|
247737 |
2204918 |
&& (PL_multi_open == PL_multi_close |
|
10505
|
243573 |
4164 |
|| PL_multi_open == '<' |
|
10506
|
249 |
243324 |
|| ! ckWARN_d(WARN_DEPRECATED))) |
|
10514
|
28933100 |
0 |
SvGROW(sv, 80); |
|
|
28933100 |
0 |
SvGROW(sv, 80); |
|
10519
|
73 |
28933027 |
if (keep_delims) |
|
10530
|
832 |
30900961 |
if (PL_encoding && !UTF && !re_reparse) { |
|
|
832 |
0 |
if (PL_encoding && !UTF && !re_reparse) { |
|
|
16 |
816 |
if (PL_encoding && !UTF && !re_reparse) { |
|
|
0 |
16 |
if (PL_encoding && !UTF && !re_reparse) { |
|
|
816 |
0 |
if (PL_encoding && !UTF && !re_reparse) { |
|
|
814 |
2 |
if (PL_encoding && !UTF && !re_reparse) { |
|
|
814 |
0 |
if (PL_encoding && !UTF && !re_reparse) { |
|
10533
|
846 |
814 |
while (cont) { |
|
10540
|
22 |
824 |
if (SvIsCOW(PL_linestr)) { |
|
10550
|
6 |
16 |
last_uni_pos = PL_parser->last_uni |
|
10553
|
6 |
16 |
last_lop_pos = PL_parser->last_lop |
|
10556
|
0 |
22 |
re_eval_start_pos = |
|
10569
|
6 |
16 |
if (PL_parser->last_uni) |
|
10571
|
6 |
16 |
if (PL_parser->last_lop) |
|
10573
|
0 |
22 |
if (PL_parser->lex_shared->re_eval_start) |
|
10581
|
9334 |
846 |
for (; s < ns; s++) { |
|
10582
|
5 |
9329 |
if (*s == '\n' && !PL_rsfp && !PL_parser->filtered) |
|
|
5 |
0 |
if (*s == '\n' && !PL_rsfp && !PL_parser->filtered) |
|
|
5 |
0 |
if (*s == '\n' && !PL_rsfp && !PL_parser->filtered) |
|
10583
|
0 |
5 |
COPLINE_INC_WITH_HERELINES; |
|
10585
|
846 |
0 |
if (!found) |
|
10589
|
836 |
10 |
if (SvCUR(sv) > 1 && *(svlast-1) == '\\') { |
|
|
32 |
804 |
if (SvCUR(sv) > 1 && *(svlast-1) == '\\') { |
|
10591
|
32 |
0 |
for (t = svlast-2; t >= SvPVX_const(sv) && *t == '\\';) |
|
|
0 |
32 |
for (t = svlast-2; t >= SvPVX_const(sv) && *t == '\\';) |
|
10593
|
32 |
0 |
if ((svlast-1 - t) % 2) { |
|
10594
|
32 |
0 |
if (!keep_quoted) { |
|
10602
|
23 |
791 |
if (PL_multi_open == PL_multi_close) { |
|
10608
|
572 |
23 |
for (t = w = SvPVX(sv)+last_off; t < svlast; w++, t++) { |
|
10611
|
11 |
561 |
if (*t == '\\') { |
|
10612
|
11 |
0 |
if (!keep_quoted && *(t+1) == PL_multi_open) |
|
|
0 |
11 |
if (!keep_quoted && *(t+1) == PL_multi_open) |
|
10617
|
0 |
561 |
else if (*t == PL_multi_open) |
|
10622
|
0 |
23 |
if (w < t) { |
|
10628
|
23 |
0 |
if (--brackets <= 0) |
|
10633
|
814 |
0 |
if (!keep_delims) { |
|
10641
|
30900979 |
0 |
SvGROW(sv, SvCUR(sv) + (PL_bufend - s) + 1); |
|
|
1192272 |
29708707 |
SvGROW(sv, SvCUR(sv) + (PL_bufend - s) + 1); |
|
10646
|
3360811 |
27540168 |
if (PL_multi_open == PL_multi_close) { |
|
10647
|
345050776 |
529874 |
for (; s < PL_bufend; s++,to++) { |
|
10649
|
537255 |
344513521 |
if (*s == '\n' && !PL_rsfp && !PL_parser->filtered) |
|
|
7435 |
529820 |
if (*s == '\n' && !PL_rsfp && !PL_parser->filtered) |
|
|
7435 |
0 |
if (*s == '\n' && !PL_rsfp && !PL_parser->filtered) |
|
10650
|
1 |
7434 |
COPLINE_INC_WITH_HERELINES; |
|
10652
|
22957812 |
322092964 |
if (*s == '\\' && s+1 < PL_bufend && term != '\\') { |
|
|
22957798 |
14 |
if (*s == '\\' && s+1 < PL_bufend && term != '\\') { |
|
10653
|
22957798 |
0 |
if (!keep_quoted |
|
10654
|
22674785 |
283013 |
&& (s[1] == term |
|
10655
|
0 |
22674785 |
|| (re_reparse && s[1] == '\\')) |
|
|
0 |
0 |
|| (re_reparse && s[1] == '\\')) |
|
10664
|
27010294 |
295082684 |
else if (*s == term) { |
|
10665
|
3 |
27010291 |
if (termlen == 1) |
|
10667
|
3 |
0 |
if (s+termlen <= PL_bufend && memEQ(s, (char*)termstr, termlen)) |
|
|
0 |
3 |
if (s+termlen <= PL_bufend && memEQ(s, (char*)termstr, termlen)) |
|
10670
|
294983568 |
99116 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
41578 |
294941990 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
41578 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
27700 |
13878 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
27700 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
13865 |
13 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
2331 |
11534 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
10682
|
61806679 |
1438866 |
for (; s < PL_bufend; s++,to++) { |
|
10684
|
1408815 |
60397864 |
if (*s == '\n' && !PL_rsfp && !PL_parser->filtered) |
|
|
2512 |
1406303 |
if (*s == '\n' && !PL_rsfp && !PL_parser->filtered) |
|
|
2512 |
0 |
if (*s == '\n' && !PL_rsfp && !PL_parser->filtered) |
|
10685
|
0 |
2512 |
COPLINE_INC_WITH_HERELINES; |
|
10687
|
491744 |
61314935 |
if (*s == '\\' && s+1 < PL_bufend) { |
|
|
491744 |
0 |
if (*s == '\\' && s+1 < PL_bufend) { |
|
10688
|
491744 |
0 |
if (!keep_quoted && |
|
|
490972 |
772 |
if (!keep_quoted && |
|
10689
|
260 |
490712 |
((s[1] == PL_multi_open) || (s[1] == PL_multi_close))) |
|
10707
|
972 |
60 |
if (deprecate_escaped_meta) { |
|
10708
|
764 |
208 |
if (*s == PL_multi_open) { |
|
10709
|
762 |
2 |
if (*s != '{') { |
|
10713
|
760 |
2 |
else if (regcurly(s, TRUE)) { |
|
10717
|
98 |
662 |
else if (s - start > 2 |
|
10718
|
4 |
94 |
&& _generic_isCC(*(s-2), |
|
10723
|
14 |
0 |
while (lookbehind >= start |
|
10724
|
10 |
4 |
&& *lookbehind == '\\') |
|
10729
|
2 |
2 |
if (is_meta) { |
|
10734
|
6 |
202 |
else if (escaped_open) { |
|
10745
|
2039919 |
59275016 |
else if (*s == PL_multi_close && --brackets <= 0) |
|
|
117974 |
1921945 |
else if (*s == PL_multi_close && --brackets <= 0) |
|
10747
|
117974 |
59275016 |
else if (*s == PL_multi_open) |
|
10749
|
59268271 |
6745 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
1167 |
59267104 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
1167 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
3 |
1164 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
0 |
3 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
1164 |
0 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
|
128 |
1036 |
else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF) |
|
10762
|
1968740 |
28932239 |
if (s < PL_bufend) |
|
10766
|
1830229 |
138511 |
if (to - SvPVX_const(sv) >= 2) { |
|
10767
|
42 |
1830187 |
if ((to[-2] == '\r' && to[-1] == '\n') || |
|
|
0 |
42 |
if ((to[-2] == '\r' && to[-1] == '\n') || |
|
|
88460 |
1741727 |
if ((to[-2] == '\r' && to[-1] == '\n') || |
|
10768
|
0 |
88460 |
(to[-2] == '\n' && to[-1] == '\r')) |
|
10774
|
0 |
1830187 |
else if (to[-1] == '\r') |
|
10777
|
138507 |
4 |
else if (to - SvPVX_const(sv) == 1 && to[-1] == '\r') |
|
|
0 |
138507 |
else if (to - SvPVX_const(sv) == 1 && to[-1] == '\r') |
|
10794
|
0 |
1968740 |
COPLINE_INC_WITH_HERELINES; |
|
10796
|
47 |
1968693 |
if (!lex_next_chunk(0)) { |
|
10809
|
832 |
28932221 |
if (!PL_encoding || UTF || re_reparse) { |
|
|
832 |
0 |
if (!PL_encoding || UTF || re_reparse) { |
|
|
16 |
816 |
if (!PL_encoding || UTF || re_reparse) { |
|
|
0 |
16 |
if (!PL_encoding || UTF || re_reparse) { |
|
|
816 |
0 |
if (!PL_encoding || UTF || re_reparse) { |
|
|
814 |
2 |
if (!PL_encoding || UTF || re_reparse) { |
|
|
0 |
814 |
if (!PL_encoding || UTF || re_reparse) { |
|
10823
|
73 |
28932166 |
if (keep_delims) |
|
10841
|
28902890 |
30163 |
if (has_utf8 || (PL_encoding && !re_reparse)) |
|
|
816 |
28902074 |
if (has_utf8 || (PL_encoding && !re_reparse)) |
|
10849
|
28914909 |
18144 |
if (SvCUR(sv) + 5 < SvLEN(sv)) { |
|
10858
|
827069 |
28105984 |
if (PL_lex_stuff) |
|
10941
|
335971 |
3705628 |
if (s[1] == 'x' || s[1] == 'X') { |
|
10945
|
37 |
3705591 |
} else if (s[1] == 'b' || s[1] == 'B') { |
|
10951
|
3669590 |
36001 |
else if (s[1] == '.' || s[1] == 'e' || s[1] == 'E') |
|
|
3669590 |
0 |
else if (s[1] == '.' || s[1] == 'e' || s[1] == 'E') |
|
10959
|
6 |
4005592 |
if (*s == '_') { |
|
10983
|
12 |
22 |
if (lastub && s == lastub + 1) |
|
|
0 |
12 |
if (lastub && s == lastub + 1) |
|
10991
|
0 |
66613 |
if (shift == 3) |
|
10998
|
1 |
421155 |
if (shift == 1) |
|
11010
|
158370 |
0 |
if (shift != 4) |
|
11020
|
1918641 |
0 |
if (!overflowed) { |
|
11023
|
19 |
1918622 |
if ((x >> shift) != u |
|
11024
|
6 |
13 |
&& !(PL_hints & HINT_NEW_BINARY)) { |
|
11033
|
1918635 |
6 |
if (overflowed) { |
|
11055
|
2 |
4005595 |
if (s[-1] == '_') { |
|
11059
|
6 |
4005591 |
if (overflowed) { |
|
11060
|
6 |
0 |
if (n > 4294967295.0) |
|
11068
|
56 |
4005535 |
if (u > 0xffffffff) |
|
11075
|
3596674 |
408923 |
if (just_zero && (PL_hints & HINT_NEW_INTEGER)) |
|
|
3 |
3596671 |
if (just_zero && (PL_hints & HINT_NEW_INTEGER)) |
|
11078
|
25 |
4005569 |
else if (PL_hints & HINT_NEW_BINARY) |
|
11095
|
12412911 |
8860254 |
while (isDIGIT(*s) || *s == '_') { |
|
|
1781 |
8858473 |
while (isDIGIT(*s) || *s == '_') { |
|
11099
|
1781 |
12412911 |
if (*s == '_') { |
|
11100
|
857 |
924 |
if (lastub && s == lastub + 1) |
|
|
2 |
855 |
if (lastub && s == lastub + 1) |
|
11107
|
0 |
12412911 |
if (d >= e) |
|
11115
|
924 |
8857549 |
if (lastub && s == lastub + 1) { |
|
|
10 |
914 |
if (lastub && s == lastub + 1) { |
|
11123
|
461011 |
8397462 |
if (*s == '.' && s[1] != '.') { |
|
|
420665 |
40346 |
if (*s == '.' && s[1] != '.') { |
|
11127
|
8 |
420657 |
if (*s == '_') { |
|
11135
|
1494118 |
431244 |
for (; isDIGIT(*s) || *s == '_'; s++) { |
|
|
10579 |
420665 |
for (; isDIGIT(*s) || *s == '_'; s++) { |
|
11137
|
0 |
1504697 |
if (d >= e) |
|
11139
|
10579 |
1494118 |
if (*s == '_') { |
|
11140
|
12 |
10567 |
if (lastub && s == lastub + 1) |
|
|
2 |
10 |
if (lastub && s == lastub + 1) |
|
11149
|
10 |
420655 |
if (s[-1] == '_') { |
|
11153
|
11107 |
409558 |
if (*s == '.' && isDIGIT(s[1])) { |
|
|
0 |
11107 |
if (*s == '.' && isDIGIT(s[1])) { |
|
11161
|
5774 |
8841592 |
if ((*s == 'e' || *s == 'E') && strchr("+-0123456789_", s[1])) { |
|
|
5774 |
0 |
if ((*s == 'e' || *s == 'E') && strchr("+-0123456789_", s[1])) { |
|
11169
|
6 |
5768 |
if (*s == '_') { |
|
11176
|
696 |
5078 |
if (*s == '+' || *s == '-') |
|
11180
|
4 |
5770 |
if (*s == '_') { |
|
11187
|
6563 |
5790 |
while (isDIGIT(*s) || *s == '_') { |
|
|
16 |
5774 |
while (isDIGIT(*s) || *s == '_') { |
|
11188
|
6563 |
16 |
if (isDIGIT(*s)) { |
|
11189
|
0 |
6563 |
if (d >= e) |
|
11194
|
2 |
14 |
if (((lastub && s == lastub + 1) || |
|
|
0 |
2 |
if (((lastub && s == lastub + 1) || |
|
|
8 |
6 |
if (((lastub && s == lastub + 1) || |
|
11195
|
6 |
2 |
(!isDIGIT(s[1]) && s[1] != '_'))) |
|
11209
|
8432108 |
415258 |
if (!floatit) { |
|
11213
|
8429254 |
2854 |
if (flags == IS_NUMBER_IN_UV) { |
|
11214
|
8426329 |
2925 |
if (uv <= IV_MAX) |
|
11218
|
0 |
2854 |
} else if (flags == (IS_NUMBER_IN_UV | IS_NUMBER_NEG)) { |
|
11219
|
0 |
0 |
if (uv <= (UV) IV_MIN) |
|
11226
|
418112 |
8429254 |
if (floatit) { |
|
11233
|
418112 |
8429254 |
if ( floatit |
|
|
248 |
8847118 |
if ( floatit |
|
11235
|
221 |
27 |
const char *const key = floatit ? "float" : "integer"; |
|
11236
|
221 |
27 |
const STRLEN keylen = floatit ? 5 : 7; |
|
11256
|
12867363 |
0 |
if (sv) |
|
11285
|
385 |
158 |
while (!needargs) { |
|
11286
|
165 |
220 |
if (*s == '.') { |
|
11292
|
0 |
165 |
while (SPACE_OR_TAB(*t) || *t == '\r') |
|
|
0 |
165 |
while (SPACE_OR_TAB(*t) || *t == '\r') |
|
11295
|
1 |
164 |
if (*t == '\n' || t == PL_bufend) { |
|
|
0 |
1 |
if (*t == '\n' || t == PL_bufend) { |
|
11301
|
12 |
208 |
if (!eol++) |
|
11303
|
220 |
0 |
if (*s != '#') { |
|
11304
|
2714 |
218 |
for (t = s; t < eol; t++) { |
|
11305
|
48 |
2666 |
if (*t == '~' && t[1] == '~' && SvCUR(stuff)) { |
|
|
23 |
25 |
if (*t == '~' && t[1] == '~' && SvCUR(stuff)) { |
|
|
21 |
2 |
if (*t == '~' && t[1] == '~' && SvCUR(stuff)) { |
|
11309
|
210 |
2502 |
if (*t == '@' || *t == '^') |
|
11312
|
210 |
8 |
if (eol > s) { |
|
11315
|
200 |
10 |
if (eol-s > 1 && eol[-2] == '\r' && eol[-1] == '\n') { |
|
|
0 |
200 |
if (eol-s > 1 && eol[-2] == '\r' && eol[-1] == '\n') { |
|
|
0 |
0 |
if (eol-s > 1 && eol[-2] == '\r' && eol[-1] == '\n') { |
|
11327
|
60 |
150 |
if ((PL_rsfp || PL_parser->filtered) |
|
|
0 |
60 |
if ((PL_rsfp || PL_parser->filtered) |
|
11328
|
149 |
1 |
&& PL_parser->form_lex_state == LEX_NORMAL) { |
|
11339
|
0 |
149 |
COPLINE_INC_WITH_HERELINES; |
|
11346
|
149 |
0 |
if (!got_some) |
|
11352
|
188 |
145 |
if (!SvCUR(stuff) || needargs) |
|
|
158 |
30 |
if (!SvCUR(stuff) || needargs) |
|
11354
|
188 |
145 |
if (SvCUR(stuff)) { |
|
11356
|
158 |
30 |
if (needargs) { |
|
11361
|
188 |
0 |
if (!IN_BYTES) { |
|
11362
|
188 |
0 |
if (UTF && is_utf8_string((U8*)SvPVX_const(stuff), SvCUR(stuff))) |
|
|
6 |
182 |
if (UTF && is_utf8_string((U8*)SvPVX_const(stuff), SvCUR(stuff))) |
|
|
0 |
6 |
if (UTF && is_utf8_string((U8*)SvPVX_const(stuff), SvCUR(stuff))) |
|
|
182 |
0 |
if (UTF && is_utf8_string((U8*)SvPVX_const(stuff), SvCUR(stuff))) |
|
|
1 |
181 |
if (UTF && is_utf8_string((U8*)SvPVX_const(stuff), SvCUR(stuff))) |
|
|
7 |
0 |
if (UTF && is_utf8_string((U8*)SvPVX_const(stuff), SvCUR(stuff))) |
|
11364
|
0 |
181 |
else if (PL_encoding) |
|
11373
|
141 |
4 |
if (eofmt) |
|
11399
|
7306831 |
149 |
PL_compcv = MUTABLE_CV(newSV_type(is_format ? SVt_PVFM : SVt_PVCV)); |
|
11406
|
7303789 |
3191 |
if (outsidecv && CvPADLIST(outsidecv)) |
|
|
7303789 |
0 |
if (outsidecv && CvPADLIST(outsidecv)) |
|
11455
|
1050 |
31 |
if (!yychar || (yychar == ';' && !PL_rsfp)) |
|
|
188 |
862 |
if (!yychar || (yychar == ';' && !PL_rsfp)) |
|
|
182 |
6 |
if (!yychar || (yychar == ';' && !PL_rsfp)) |
|
11457
|
868 |
0 |
else if (PL_oldoldbufptr && PL_bufptr > PL_oldoldbufptr && |
|
|
637 |
231 |
else if (PL_oldoldbufptr && PL_bufptr > PL_oldoldbufptr && |
|
|
637 |
0 |
else if (PL_oldoldbufptr && PL_bufptr > PL_oldoldbufptr && |
|
11458
|
562 |
75 |
PL_bufptr - PL_oldoldbufptr < 200 && PL_oldoldbufptr != PL_oldbufptr && |
|
|
428 |
134 |
PL_bufptr - PL_oldoldbufptr < 200 && PL_oldoldbufptr != PL_oldbufptr && |
|
11468
|
57 |
428 |
while (isSPACE(*PL_oldoldbufptr)) |
|
11474
|
440 |
0 |
else if (PL_oldbufptr && PL_bufptr > PL_oldbufptr && |
|
|
75 |
365 |
else if (PL_oldbufptr && PL_bufptr > PL_oldbufptr && |
|
|
75 |
0 |
else if (PL_oldbufptr && PL_bufptr > PL_oldbufptr && |
|
11475
|
75 |
0 |
PL_bufptr - PL_oldbufptr < 200 && PL_oldbufptr != PL_bufptr) { |
|
11484
|
19 |
75 |
while (isSPACE(*PL_oldbufptr)) |
|
11490
|
0 |
365 |
else if (yychar > 255) |
|
11492
|
365 |
0 |
else if (yychar == -2) { /* YYEMPTY */ |
|
11493
|
230 |
135 |
if (PL_lex_state == LEX_NORMAL || |
|
|
0 |
230 |
if (PL_lex_state == LEX_NORMAL || |
|
11494
|
0 |
0 |
(PL_lex_state == LEX_KNOWNEXT && PL_lex_defer == LEX_NORMAL)) |
|
11496
|
57 |
173 |
else if (PL_lex_inpat) |
|
11503
|
0 |
0 |
if (yychar < 32) |
|
11504
|
0 |
0 |
Perl_sv_catpvf(aTHX_ where_sv, "^%c", toCTRL(yychar)); |
|
|
0 |
0 |
Perl_sv_catpvf(aTHX_ where_sv, "^%c", toCTRL(yychar)); |
|
11505
|
0 |
0 |
else if (isPRINT_LC(yychar)) { |
|
|
0 |
0 |
else if (isPRINT_LC(yychar)) { |
|
11513
|
1081 |
0 |
Perl_sv_catpvf(aTHX_ msg, " at %s line %"IVdf", ", |
|
11515
|
503 |
578 |
if (context) |
|
11516
|
503 |
0 |
Perl_sv_catpvf(aTHX_ msg, "near \"%"UTF8f"\"\n", |
|
|
481 |
1 |
Perl_sv_catpvf(aTHX_ msg, "near \"%"UTF8f"\"\n", |
|
11517
|
21 |
482 |
UTF8fARG(UTF, contlen, context)); |
|
|
0 |
21 |
UTF8fARG(UTF, contlen, context)); |
|
|
470 |
11 |
UTF8fARG(UTF, contlen, context)); |
|
11520
|
1 |
1080 |
if (PL_multi_start < PL_multi_end && (U32)(CopLINE(PL_curcop) - PL_multi_end) <= 1) { |
|
|
1 |
0 |
if (PL_multi_start < PL_multi_end && (U32)(CopLINE(PL_curcop) - PL_multi_end) <= 1) { |
|
11526
|
54 |
1027 |
if (PL_in_eval & EVAL_WARNONLY) { |
|
11531
|
29 |
1052 |
if (PL_error_count >= 10) { |
|
11533
|
29 |
0 |
if (PL_in_eval && ((errsv = ERRSV), SvCUR(errsv))) |
|
|
29 |
0 |
if (PL_in_eval && ((errsv = ERRSV), SvCUR(errsv))) |
|
|
29 |
0 |
if (PL_in_eval && ((errsv = ERRSV), SvCUR(errsv))) |
|
11534
|
29 |
0 |
Perl_croak(aTHX_ "%"SVf"%s has too many errors.\n", |
|
11537
|
0 |
0 |
Perl_croak(aTHX_ "%s has too many errors.\n", |
|
11558
|
999 |
0 |
if (s[1] == 0xFE) { |
|
11560
|
0 |
999 |
if (s[2] == 0 && s[3] == 0) /* UTF-32 little-endian */ |
|
|
0 |
0 |
if (s[2] == 0 && s[3] == 0) /* UTF-32 little-endian */ |
|
11566
|
999 |
0 |
if (PL_bufend > (char*)s) { |
|
11576
|
999 |
0 |
if (s[1] == 0xFF) { /* UTF-16 big-endian? */ |
|
11580
|
999 |
0 |
if (PL_bufend > (char *)s) { |
|
11591
|
14 |
0 |
if (slen > len && memEQ(s+1, BOM_UTF8_TAIL, len)) { |
|
|
14 |
0 |
if (slen > len && memEQ(s+1, BOM_UTF8_TAIL, len)) { |
|
11598
|
998 |
2 |
if (slen > 3) { |
|
11599
|
0 |
998 |
if (s[1] == 0) { |
|
11600
|
0 |
0 |
if (s[2] == 0xFE && s[3] == 0xFF) { |
|
|
0 |
0 |
if (s[2] == 0xFE && s[3] == 0xFF) { |
|
11606
|
998 |
0 |
else if (s[2] == 0 && s[3] != 0) { |
|
|
998 |
0 |
else if (s[2] == 0 && s[3] != 0) { |
|
11621
|
1996 |
9049 |
if (slen > 3 && s[1] == 0 && s[2] != 0 && s[3] == 0) { |
|
|
998 |
998 |
if (slen > 3 && s[1] == 0 && s[2] != 0 && s[3] == 0) { |
|
|
998 |
0 |
if (slen > 3 && s[1] == 0 && s[2] != 0 && s[3] == 0) { |
|
|
998 |
0 |
if (slen > 3 && s[1] == 0 && s[2] != 0 && s[3] == 0) { |
|
11643
|
11852 |
0 |
SV *const filter = FILTER_DATA(idx); |
|
11657
|
0 |
11852 |
if (maxlen) { |
|
11660
|
11852 |
0 |
if (status < 0) { |
|
11677
|
5862 |
20075 |
if (nl) { |
|
11679
|
5990 |
14085 |
} else if (status == 0) { |
|
11684
|
11852 |
14085 |
if (nl) { |
|
11699
|
20238 |
3994 |
if (status <= 0) |
|
11701
|
10147 |
10091 |
if (SvCUR(utf16_buffer) >= 2) { |
|
11707
|
5061 |
5086 |
+ ((SvCUR(utf16_buffer) & ~1) - (reverse ? 1 : 2)); |
|
11709
|
56 |
10091 |
if (*last_hi < 0xd8 || *last_hi > 0xdb) { |
|
11721
|
10147 |
0 |
if (status < 0) { |
|
11730
|
14085 |
0 |
SvGROW(utf8_buffer, have + chars * 3 + 1); |
|
|
4286 |
9799 |
SvGROW(utf8_buffer, have + chars * 3 + 1); |
|
11732
|
7055 |
7030 |
if (reverse) { |
|
11747
|
1969 |
12116 |
if(SvCUR(utf16_buffer) & 1) { |
|
11777
|
3994 |
0 |
if (FILTER_READ(0, PL_linestr, 0)) { |
|
11816
|
5656 |
11118 |
if (*pos == 'v') pos++; /* get past 'v' */ |
|
11817
|
34433 |
1 |
while (pos < e && (isDIGIT(*pos) || *pos == '_')) |
|
|
17660 |
16773 |
while (pos < e && (isDIGIT(*pos) || *pos == '_')) |
|
|
0 |
16773 |
while (pos < e && (isDIGIT(*pos) || *pos == '_')) |
|
11819
|
2670 |
14104 |
if ( *pos != '.') { |
|
11822
|
2701 |
7 |
while (next < e && isSPACE(*next)) |
|
|
38 |
2663 |
while (next < e && isSPACE(*next)) |
|
11824
|
2654 |
16 |
if ((e - next) >= 2 && *next == '=' && next[1] == '>' ) { |
|
|
2 |
2652 |
if ((e - next) >= 2 && *next == '=' && next[1] == '>' ) { |
|
|
2 |
0 |
if ((e - next) >= 2 && *next == '=' && next[1] == '>' ) { |
|
11831
|
16772 |
0 |
if (!isALPHA(*pos)) { |
|
11834
|
5654 |
11118 |
if (*s == 'v') |
|
11845
|
60839 |
45242 |
while (--end >= s) { |
|
11846
|
60800 |
39 |
if (*end != '_') { |
|
11850
|
2 |
60798 |
if (orev > rev) |
|
11863
|
671 |
44571 |
if (!NATIVE_IS_INVARIANT(rev)) |
|
11865
|
36919 |
8323 |
if (pos + 1 < e && *pos == '.' && isDIGIT(pos[1])) |
|
|
28498 |
8421 |
if (pos + 1 < e && *pos == '.' && isDIGIT(pos[1])) |
|
|
28472 |
26 |
if (pos + 1 < e && *pos == '.' && isDIGIT(pos[1])) |
|
11871
|
2365 |
69344 |
while (pos < e && (isDIGIT(*pos) || *pos == '_')) |
|
|
43198 |
26146 |
while (pos < e && (isDIGIT(*pos) || *pos == '_')) |
|
|
26107 |
39 |
while (pos < e && (isDIGIT(*pos) || *pos == '_')) |
|
11898
|
0 |
269 |
if (PL_lex_brackets > 100) |
|
11905
|
3 |
264 |
if(yyparse(gramtype) && !PL_parser->error_count) |
|
|
0 |
3 |
if(yyparse(gramtype) && !PL_parser->error_count) |
|
11928
|
0 |
142 |
if (flags & ~PARSE_OPTIONAL) |
|
11931
|
4 |
138 |
if (!exprop && !(flags & PARSE_OPTIONAL)) { |
|
|
2 |
2 |
if (!exprop && !(flags & PARSE_OPTIONAL)) { |
|
11932
|
1 |
1 |
if (!PL_parser->error_count) |
|
12099
|
0 |
15 |
if (flags) |
|
12137
|
0 |
57 |
if (flags) |
|
12165
|
0 |
72 |
if (flags & ~PARSE_OPTIONAL) |
|
12167
|
24 |
48 |
if (PL_lex_state == LEX_KNOWNEXT) { |
|
12169
|
20 |
4 |
if (PL_parser->yychar == LABEL) { |
|
12173
|
10 |
10 |
return newSVpvn_flags(lpv, llen, lpv[llen+1] ? SVf_UTF8 : 0); |
|
12183
|
48 |
0 |
if (!isIDFIRST_lazy_if(s, UTF)) |
|
|
48 |
0 |
if (!isIDFIRST_lazy_if(s, UTF)) |
|
|
19 |
29 |
if (!isIDFIRST_lazy_if(s, UTF)) |
|
|
0 |
19 |
if (!isIDFIRST_lazy_if(s, UTF)) |
|
|
29 |
0 |
if (!isIDFIRST_lazy_if(s, UTF)) |
|
|
25 |
4 |
if (!isIDFIRST_lazy_if(s, UTF)) |
|
|
17 |
6 |
if (!isIDFIRST_lazy_if(s, UTF)) |
|
|
0 |
6 |
if (!isIDFIRST_lazy_if(s, UTF)) |
|
|
0 |
0 |
if (!isIDFIRST_lazy_if(s, UTF)) |
|
|
0 |
0 |
if (!isIDFIRST_lazy_if(s, UTF)) |
|
|
42 |
6 |
if (!isIDFIRST_lazy_if(s, UTF)) |
|
12186
|
40 |
2 |
if (word_takes_any_delimeter(s, wlen)) |
|
12193
|
38 |
2 |
if (t[0] == ':' && t[1] != ':') { |
|
|
38 |
0 |
if (t[0] == ':' && t[1] != ':') { |
|
12197
|
38 |
0 |
return newSVpvn_flags(s, wlen, UTF ? SVf_UTF8 : 0); |
|
|
15 |
23 |
return newSVpvn_flags(s, wlen, UTF ? SVf_UTF8 : 0); |
|
|
0 |
15 |
return newSVpvn_flags(s, wlen, UTF ? SVf_UTF8 : 0); |
|
|
23 |
0 |
return newSVpvn_flags(s, wlen, UTF ? SVf_UTF8 : 0); |
|
|
19 |
4 |
return newSVpvn_flags(s, wlen, UTF ? SVf_UTF8 : 0); |
|
12201
|
4 |
10 |
if (flags & PARSE_OPTIONAL) { |
|
12241
|
0 |
34 |
if (flags) |
|
12281
|
0 |
21 |
if (flags) |
|
12285
|
2 |
19 |
if (c != -1 && c != /*{*/'}') |