line |
true |
false |
branch |
184
|
309 |
145512858 |
if ( (SvUTF8(sv) & SVf_UTF8 ) != (flags & SVf_UTF8) ) { |
189
|
0 |
309 |
if (PL_encoding) { |
191
|
0 |
0 |
if (SvUTF8(sv)) { |
194
|
0 |
0 |
pv2 = SvPV_const(svrecode, cur2); |
199
|
0 |
0 |
pv1 = SvPV_const(svrecode, cur1); |
203
|
175 |
134 |
if (flags & SVf_UTF8) |
214
|
145512858 |
0 |
|| memEQ(SvPVX_const(sv), pv, pvlen)); |
|
101466557 |
44046301 |
|| memEQ(SvPVX_const(sv), pv, pvlen)); |
250
|
11083445 |
12294 |
if (flags & padnew_SAVE) { |
252
|
9504428 |
1579017 |
if (! (flags & padnew_CLONE)) { |
259
|
7306980 |
2197448 |
if (flags & padnew_SAVESUB) { |
272
|
1579017 |
9516722 |
if (flags & padnew_CLONE) { |
306
|
9516722 |
1579017 |
if (! (flags & padnew_CLONE)) { |
353
|
3500899 |
1066114 |
if (CvFILE(cv) && CvDYNFILE(cv)) { |
|
799943 |
2700956 |
if (CvFILE(cv) && CvDYNFILE(cv)) { |
359
|
3766772 |
800241 |
if (!CvISXSUB(cv) && CvROOT(cv)) { |
|
2697130 |
1069642 |
if (!CvISXSUB(cv) && CvROOT(cv)) { |
360
|
2696950 |
180 |
if (SvTYPE(cv) == SVt_PVCV && CvDEPTH(cv)) |
|
3 |
2696947 |
if (SvTYPE(cv) == SVt_PVCV && CvDEPTH(cv)) |
366
|
0 |
2697127 |
if (slabbed) OpslabREFCNT_dec_padok(OpSLAB(CvROOT(cv))); |
|
0 |
0 |
if (slabbed) OpslabREFCNT_dec_padok(OpSLAB(CvROOT(cv))); |
372
|
123949 |
1745934 |
else if (slabbed && CvSTART(cv)) { |
|
123949 |
0 |
else if (slabbed && CvSTART(cv)) { |
377
|
122626 |
1323 |
if (PL_parser) |
389
|
111 |
4566899 |
if (CvNAMED(cv)) CvNAME_HEK_set(cv, NULL); |
|
111 |
0 |
if (CvNAMED(cv)) CvNAME_HEK_set(cv, NULL); |
395
|
3706777 |
860232 |
if (padlist) { |
415
|
3706366 |
411 |
if (PL_phase != PERL_PHASE_DESTRUCT) { /* don't bother during global destruction */ |
422
|
5610524 |
3706366 |
for (ix = AvFILLp(comppad_name); ix > 0; ix--) { |
424
|
5453229 |
157295 |
if (namesv && namesv != &PL_sv_undef |
|
2061732 |
3391497 |
if (namesv && namesv != &PL_sv_undef |
425
|
104132 |
1957600 |
&& *SvPVX_const(namesv) == '&') |
432
|
104132 |
0 |
if (SvREFCNT(comppad) < 2) { /* allow for /(?{ sub{} })/ */ |
439
|
34846 |
69286 |
if (inner_rc && (CvOUTSIDE(innercv) == cv)) { |
|
14561 |
20285 |
if (inner_rc && (CvOUTSIDE(innercv) == cv)) { |
442
|
14510 |
51 |
if (outercv && SvREFCNT(outercv)) { |
|
14509 |
1 |
if (outercv && SvREFCNT(outercv)) { |
457
|
3706823 |
3706777 |
while (ix > 0) { |
459
|
3706823 |
0 |
if (sv) { |
460
|
8167 |
3698656 |
if (sv == PL_comppad) { |
469
|
8132 |
3698645 |
if (sv == PL_comppad_name && SvREFCNT(sv) == 1) |
|
8132 |
0 |
if (sv == PL_comppad_name && SvREFCNT(sv) == 1) |
473
|
3706777 |
0 |
if (PadlistARRAY(padlist)) Safefree(PadlistARRAY(padlist)); |
480
|
4562169 |
4840 |
if (!SvREFCNT(cv) && CvOUTSIDE(cv)) { |
|
3347353 |
1214816 |
if (!SvREFCNT(cv) && CvOUTSIDE(cv)) { |
481
|
3294090 |
53263 |
if (!CvWEAKOUTSIDE(cv)) |
485
|
799950 |
3767059 |
if (CvCONST(cv)) { |
489
|
800241 |
3766768 |
if (CvISXSUB(cv) && CvXSUB(cv)) { |
|
800241 |
0 |
if (CvISXSUB(cv) && CvXSUB(cv)) { |
518
|
2177570 |
4 |
if (!slabbed) return; |
522
|
137 |
2177433 |
if (CvROOT(cv)) slab = OpSLAB(CvROOT(cv)); |
523
|
2177433 |
0 |
else if (CvSTART(cv)) slab = (OPSLAB *)CvSTART(cv); |
528
|
2177570 |
0 |
if (slab) { |
532
|
0 |
2177570 |
OpslabREFCNT_dec(slab); |
564
|
41 |
14471472 |
if (typestash) { |
569
|
1146716 |
13324797 |
if (ourstash) { |
574
|
129 |
13324668 |
else if (flags & padadd_STATE) { |
615
|
0 |
12192692 |
if (flags & ~(padadd_OUR|padadd_STATE|padadd_NO_DUP_CHECK|padadd_UTF8_NAME)) |
619
|
11594275 |
598417 |
namesv = newSV_type((ourstash || typestash) ? SVt_PVMG : SVt_PVNV); |
621
|
50443 |
12142249 |
if ((is_utf8 = ((flags & padadd_UTF8_NAME) != 0))) { |
627
|
48423 |
12144269 |
if (is_utf8) { |
634
|
12192692 |
0 |
if ((flags & padadd_NO_DUP_CHECK) == 0) { |
649
|
9761755 |
2430933 |
if (!PL_min_intro_pending) |
655
|
12192688 |
0 |
if (namelen != 0 && *namepv == '@') |
|
994481 |
11198207 |
if (namelen != 0 && *namepv == '@') |
657
|
11198207 |
0 |
else if (namelen != 0 && *namepv == '%') |
|
468611 |
10729596 |
else if (namelen != 0 && *namepv == '%') |
659
|
10729596 |
0 |
else if (namelen != 0 && *namepv == '&') |
|
100 |
10729496 |
else if (namelen != 0 && *namepv == '&') |
702
|
2 |
0 |
namepv = SvPV(name, namelen); |
703
|
0 |
2 |
if (SvUTF8(name)) |
747
|
0 |
68298594 |
if (AvARRAY(PL_comppad) != PL_curpad) |
750
|
15568233 |
52730361 |
if (PL_pad_reset_pending) |
752
|
14986744 |
53311850 |
if (tmptype & SVs_PADMY) { |
770
|
19651278 |
54189140 |
if (++PL_padix <= names_fill && |
|
14988442 |
4662836 |
if (++PL_padix <= names_fill && |
771
|
14943936 |
44506 |
(sv = names[PL_padix]) && sv != &PL_sv_undef) |
774
|
5584632 |
53311850 |
if (!(SvFLAGS(sv) & (SVs_PADTMP | SVs_PADMY)) && |
778
|
78973 |
53232877 |
if (tmptype & SVf_READONLY) { |
835
|
14 |
324621 |
if (SvTYPE(func) == SVt_PVCV || !CvOUTSIDE(func)) |
|
0 |
14 |
if (SvTYPE(func) == SVt_PVCV || !CvOUTSIDE(func)) |
847
|
288379 |
36256 |
if (CvOUTSIDE(func) && SvTYPE(func) == SVt_PVCV) { |
|
288365 |
14 |
if (CvOUTSIDE(func) && SvTYPE(func) == SVt_PVCV) { |
883
|
12192692 |
0 |
if (AvFILLp(PL_comppad_name) < 0 || !ckWARN(WARN_MISC)) |
|
5014147 |
7178545 |
if (AvFILLp(PL_comppad_name) < 0 || !ckWARN(WARN_MISC)) |
891
|
24085174 |
5013899 |
for (off = top; (I32)off > PL_comppad_name_floor; off--) { |
893
|
12025628 |
12059546 |
if (sv |
894
|
12018691 |
6937 |
&& PadnameLEN(sv) |
|
11981674 |
37017 |
&& PadnameLEN(sv) |
895
|
11320161 |
661513 |
&& !SvFAKE(sv) |
896
|
9655465 |
1664696 |
&& ( COP_SEQ_RANGE_LOW(sv) == PERL_PADSEQ_INTRO |
897
|
8759480 |
895985 |
|| COP_SEQ_RANGE_HIGH(sv) == PERL_PADSEQ_INTRO) |
898
|
248 |
10423928 |
&& sv_eq(name, sv)) |
900
|
236 |
12 |
if (is_our && (SvPAD_OUR(sv))) |
|
3 |
233 |
if (is_our && (SvPAD_OUR(sv))) |
903
|
5 |
10 |
Perl_warner(aTHX_ packWARN(WARN_MISC), |
|
13 |
2 |
Perl_warner(aTHX_ packWARN(WARN_MISC), |
|
12 |
3 |
Perl_warner(aTHX_ packWARN(WARN_MISC), |
905
|
1 |
11 |
(is_our ? "our" : PL_parser->in_my == KEY_my ? "my" : "state"), |
915
|
362707 |
4651438 |
if (is_our) { |
916
|
57271 |
362697 |
while (off > 0) { |
918
|
11017 |
46254 |
if (sv |
919
|
10924 |
93 |
&& PadnameLEN(sv) |
|
10921 |
3 |
&& PadnameLEN(sv) |
920
|
10921 |
0 |
&& !SvFAKE(sv) |
921
|
10886 |
35 |
&& ( COP_SEQ_RANGE_LOW(sv) == PERL_PADSEQ_INTRO |
922
|
4096 |
6790 |
|| COP_SEQ_RANGE_HIGH(sv) == PERL_PADSEQ_INTRO) |
923
|
3354 |
777 |
&& SvOURSTASH(sv) == ourstash |
|
1527 |
2604 |
&& SvOURSTASH(sv) == ourstash |
924
|
10 |
1517 |
&& sv_eq(name, sv)) |
928
|
2 |
6 |
if ((I32)off <= PL_comppad_name_floor) |
968
|
0 |
121242745 |
if (flags & ~padadd_UTF8_NAME) |
972
|
651773 |
120590972 |
if (flags & padadd_UTF8_NAME) { |
976
|
49153 |
602620 |
if (is_utf8) |
984
|
43900736 |
77342009 |
if ((PADOFFSET)offset != NOT_IN_PAD) |
993
|
1425727061 |
77339947 |
for (offset = AvFILLp(nameav); offset > 0; offset--) { |
995
|
459933444 |
965793617 |
if (namesv && PadnameLEN(namesv) == namelen |
|
458870062 |
1063382 |
if (namesv && PadnameLEN(namesv) == namelen |
|
42343719 |
417589725 |
if (namesv && PadnameLEN(namesv) == namelen |
997
|
2494159 |
39849560 |
&& (SvPAD_OUR(namesv)) |
998
|
2417 |
2491742 |
&& sv_eq_pvn_flags(aTHX_ namesv, namepv, namelen, |
1000
|
2062 |
355 |
&& COP_SEQ_RANGE_LOW(namesv) == PERL_PADSEQ_INTRO |
1038
|
35 |
0 |
namepv = SvPV(name, namelen); |
1039
|
11 |
24 |
if (SvUTF8(name)) |
1086
|
7 |
7 |
if (po == NOT_IN_PAD || SvPAD_OUR(namesv)) |
|
0 |
7 |
if (po == NOT_IN_PAD || SvPAD_OUR(namesv)) |
1087
|
7 |
0 |
return DEFSV; |
1104
|
43 |
18 |
if (po == NOT_IN_PAD || SvPAD_OUR(namesv)) |
|
0 |
43 |
if (po == NOT_IN_PAD || SvPAD_OUR(namesv)) |
1105
|
18 |
0 |
return DEFSV; |
1144
|
37 |
3 |
Perl_ck_warner(aTHX_ packWARN(WARN_CLOSURE), |
1165
|
0 |
186152401 |
if (flags & ~(padadd_UTF8_NAME|padadd_STALEOK)) |
1179
|
186152400 |
1 |
if (padlist) { /* not an undef CV */ |
1184
|
3757547344 |
144039222 |
for (offset = PadnamelistMAXNAMED(nameav); offset > 0; offset--) { |
1186
|
1277667886 |
2479879458 |
if (namesv && PadnameLEN(namesv) == namelen |
|
1248373685 |
29294201 |
if (namesv && PadnameLEN(namesv) == namelen |
|
143019008 |
1134648878 |
if (namesv && PadnameLEN(namesv) == namelen |
1187
|
44043884 |
98975124 |
&& sv_eq_pvn_flags(aTHX_ namesv, namepv, namelen, |
1190
|
1787612 |
42256272 |
if (SvFAKE(namesv)) { |
1197
|
6665 |
42249607 |
if (COP_SEQ_RANGE_LOW(namesv) == PERL_PADSEQ_INTRO) |
1200
|
41655680 |
593927 |
if (COP_SEQ_RANGE_HIGH(namesv) == PERL_PADSEQ_INTRO) { |
1202
|
0 |
41655680 |
if ( |
1203
|
41655680 |
0 |
(seq > COP_SEQ_RANGE_LOW(namesv)) |
1209
|
136429 |
457498 |
else if ( |
1210
|
0 |
593927 |
(COP_SEQ_RANGE_LOW(namesv) > COP_SEQ_RANGE_HIGH(namesv)) |
|
0 |
0 |
(COP_SEQ_RANGE_LOW(namesv) > COP_SEQ_RANGE_HIGH(namesv)) |
|
577530 |
16397 |
(COP_SEQ_RANGE_LOW(namesv) > COP_SEQ_RANGE_HIGH(namesv)) |
1213
|
0 |
0 |
|| seq <= COP_SEQ_RANGE_HIGH(namesv)) |
1216
|
120032 |
457498 |
&& seq <= COP_SEQ_RANGE_HIGH(namesv)) |
1222
|
43900790 |
142251610 |
if (offset > 0 || fake_offset > 0 ) { /* a match! */ |
1223
|
42113178 |
1787612 |
if (offset > 0) { /* not fake */ |
1235
|
41626077 |
487101 |
PAD_FAKELEX_ANON : |
1236
|
294519 |
38146973 |
(!CvUNIQUE(cv) && ! CvCOMPILED(cv)) |
1237
|
38441492 |
3184585 |
? PAD_FAKELEX_MULTI : 0; |
1258
|
2088214 |
41812576 |
if (out_capture) { |
1261
|
534056 |
1554158 |
if (SvPAD_OUR(*out_name_sv)) { |
1267
|
296843 |
1257315 |
if (CvCOMPILED(cv) |
|
38 |
296805 |
if (CvCOMPILED(cv) |
|
22 |
1554136 |
if (CvCOMPILED(cv) |
1268
|
3 |
35 |
? CvANON(cv) && CvCLONE(cv) && !CvCLONED(cv) |
|
0 |
3 |
? CvANON(cv) && CvCLONE(cv) && !CvCLONED(cv) |
1271
|
22 |
0 |
if (warn) |
1283
|
1257296 |
296840 |
if (!CvCOMPILED(cv) && (*out_flags & PAD_FAKELEX_MULTI) |
|
34 |
1257262 |
if (!CvCOMPILED(cv) && (*out_flags & PAD_FAKELEX_MULTI) |
1285
|
29 |
5 |
&& warn && ckWARN(WARN_CLOSURE)) { |
|
23 |
6 |
&& warn && ckWARN(WARN_CLOSURE)) { |
1294
|
118 |
1554018 |
if (fake_offset && CvANON(cv) |
|
13 |
105 |
if (fake_offset && CvANON(cv) |
1295
|
4 |
9 |
&& CvCLONE(cv) &&!CvCLONED(cv)) |
|
4 |
0 |
&& CvCLONE(cv) &&!CvCLONED(cv)) |
1310
|
455058 |
1099074 |
*out_capture = AvARRAY(PadlistARRAY(padlist)[ |
1316
|
13 |
1554119 |
if (SvPADSTALE(*out_capture) |
1317
|
7 |
6 |
&& (!CvDEPTH(cv) || !staleok) |
|
6 |
1 |
&& (!CvDEPTH(cv) || !staleok) |
1318
|
10 |
2 |
&& !SvPAD_STATE(name_svp[offset])) |
1327
|
32 |
1554122 |
if (!*out_capture) { |
1328
|
32 |
0 |
if (namelen != 0 && *namepv == '@') |
|
4 |
28 |
if (namelen != 0 && *namepv == '@') |
1330
|
28 |
0 |
else if (namelen != 0 && *namepv == '%') |
|
4 |
24 |
else if (namelen != 0 && *namepv == '%') |
1332
|
24 |
0 |
else if (namelen != 0 && *namepv == '&') |
|
2 |
22 |
else if (namelen != 0 && *namepv == '&') |
1345
|
64909577 |
77342034 |
if (!CvOUTSIDE(cv)) |
1350
|
61150928 |
3758649 |
new_capturep = out_capture ? out_capture : |
1351
|
59600476 |
1550452 |
CvLATE(cv) ? NULL : &new_capture; |
|
59600382 |
94 |
CvLATE(cv) ? NULL : &new_capture; |
|
188 |
59600194 |
CvLATE(cv) ? NULL : &new_capture; |
1353
|
5309383 |
59600194 |
offset = pad_findlex(namepv, namelen, |
1357
|
2278980 |
62630597 |
if ((PADOFFSET)offset == NOT_IN_PAD) |
1364
|
2278825 |
155 |
if (CvCOMPILED(cv) || !padlist) |
|
2278825 |
0 |
if (CvCOMPILED(cv) || !padlist) |
1380
|
548337 |
1730488 |
= pad_alloc_name(new_namesv, |
|
5 |
2278820 |
= pad_alloc_name(new_namesv, |
|
2278804 |
21 |
= pad_alloc_name(new_namesv, |
1395
|
1730488 |
548337 |
if (SvPAD_OUR(new_namesv)) { |
1398
|
1555584 |
174904 |
else if (CvLATE(cv)) { |
|
1555556 |
28 |
else if (CvLATE(cv)) { |
|
47 |
1555509 |
else if (CvLATE(cv)) { |
1417
|
2278825 |
0 |
PL_curpad = ocomppad ? AvARRAY(ocomppad) : NULL; |
1496
|
14280575 |
7685248 |
if (full) |
1498
|
0 |
21965823 |
if (PL_comppad_name_floor < 0) |
1528
|
49758631 |
9761650 |
if (! PL_min_intro_pending) |
1532
|
12246161 |
9761650 |
for (i = PL_min_intro_pending; i <= PL_max_intro_pending; i++) { |
1535
|
12192585 |
53576 |
if (sv && PadnameLEN(sv) && !SvFAKE(sv) |
|
12192585 |
0 |
if (sv && PadnameLEN(sv) && !SvFAKE(sv) |
|
12192585 |
0 |
if (sv && PadnameLEN(sv) && !SvFAKE(sv) |
|
12192585 |
0 |
if (sv && PadnameLEN(sv) && !SvFAKE(sv) |
1536
|
12192583 |
2 |
&& COP_SEQ_RANGE_LOW(sv) == PERL_PADSEQ_INTRO) |
1550
|
0 |
9761650 |
if (PL_cop_seqmax == PERL_PADSEQ_INTRO) /* not a legal value */ |
1580
|
343947 |
21590062 |
if (PL_min_intro_pending && PL_comppad_name_fill < PL_min_intro_pending) { |
|
0 |
343947 |
if (PL_min_intro_pending && PL_comppad_name_fill < PL_min_intro_pending) { |
1581
|
0 |
0 |
for (off = PL_max_intro_pending; off >= PL_min_intro_pending; off--) { |
1583
|
0 |
0 |
if (sv && PadnameLEN(sv) && !SvFAKE(sv)) |
|
0 |
0 |
if (sv && PadnameLEN(sv) && !SvFAKE(sv)) |
|
0 |
0 |
if (sv && PadnameLEN(sv) && !SvFAKE(sv)) |
|
0 |
0 |
if (sv && PadnameLEN(sv) && !SvFAKE(sv)) |
1590
|
105381393 |
21934009 |
for (off = AvFILLp(PL_comppad_name); off > PL_comppad_name_fill; off--) { |
1592
|
28084789 |
77296604 |
if (sv && PadnameLEN(sv) && !SvFAKE(sv) |
|
28036976 |
47813 |
if (sv && PadnameLEN(sv) && !SvFAKE(sv) |
|
27807499 |
229477 |
if (sv && PadnameLEN(sv) && !SvFAKE(sv) |
|
22386361 |
5421138 |
if (sv && PadnameLEN(sv) && !SvFAKE(sv) |
1593
|
12191974 |
10194387 |
&& COP_SEQ_RANGE_HIGH(sv) == PERL_PADSEQ_INTRO) |
1602
|
12191866 |
108 |
if (!PadnameIsSTATE(sv) && !PadnameIsOUR(sv) |
|
11594012 |
597854 |
if (!PadnameIsSTATE(sv) && !PadnameIsOUR(sv) |
1603
|
11594012 |
0 |
&& *PadnamePV(sv) == '&' && PadnameLEN(sv) > 1) { |
|
54 |
11593958 |
&& *PadnamePV(sv) == '&' && PadnameLEN(sv) > 1) { |
|
54 |
0 |
&& *PadnamePV(sv) == '&' && PadnameLEN(sv) > 1) { |
|
54 |
0 |
&& *PadnamePV(sv) == '&' && PadnameLEN(sv) > 1) { |
1611
|
0 |
21934009 |
if (PL_cop_seqmax == PERL_PADSEQ_INTRO) /* not a legal value */ |
1632
|
2982630 |
0 |
if (!PL_curpad) |
1634
|
0 |
2982630 |
if (AvARRAY(PL_comppad) != PL_curpad) |
1637
|
2982630 |
0 |
if (!po || ((SSize_t)po) > AvFILLp(PL_comppad)) |
|
0 |
2982630 |
if (!po || ((SSize_t)po) > AvFILLp(PL_comppad)) |
1645
|
0 |
2982630 |
if (refadjust) |
1657
|
2982630 |
0 |
if (PadnamelistMAX(PL_comppad_name) != -1 |
1658
|
11297 |
2971333 |
&& (PADOFFSET)PadnamelistMAX(PL_comppad_name) >= po) { |
1664
|
0 |
2982630 |
if ((I32)po < PL_padix) |
1754
|
6915648 |
80096 |
if (PL_cv_has_eval || PL_perldb) { |
|
2085006 |
4830642 |
if (PL_cv_has_eval || PL_perldb) { |
1756
|
5597888 |
991177 |
for (cv = PL_compcv ;cv; cv = CvOUTSIDE(cv)) { |
1757
|
3432786 |
2165102 |
if (cv != PL_compcv && CvCOMPILED(cv)) |
|
2258861 |
1173925 |
if (cv != PL_compcv && CvCOMPILED(cv)) |
1759
|
67379 |
4356584 |
if (CvANON(cv)) { |
1769
|
6392974 |
602770 |
if (AvFILLp(PL_comppad_name) < AvFILLp(PL_comppad)) |
1772
|
137923 |
6857821 |
if (type == padtidy_SUBCLONE) { |
1776
|
918105 |
137923 |
for (ix = AvFILLp(PL_comppad); ix > 0; ix--) { |
1778
|
609856 |
308249 |
if (!namep[ix]) namep[ix] = &PL_sv_undef; |
1785
|
890374 |
27731 |
if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix]) |
|
0 |
0 |
if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix]) |
|
0 |
0 |
if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix]) |
|
0 |
0 |
if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix]) |
|
0 |
0 |
if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix]) |
1786
|
0 |
890374 |
|| IS_PADGV(PL_curpad[ix])) |
1789
|
308249 |
582125 |
if (!(PadnamePV(namesv) && |
|
308249 |
0 |
if (!(PadnamePV(namesv) && |
|
308249 |
0 |
if (!(PadnamePV(namesv) && |
1790
|
307633 |
616 |
(!PadnameLEN(namesv) || *SvPVX_const(namesv) == '&'))) |
|
299554 |
8079 |
(!PadnameLEN(namesv) || *SvPVX_const(namesv) == '&'))) |
1797
|
6857684 |
137 |
else if (type == padtidy_SUB) { |
1804
|
6857821 |
137923 |
if (type == padtidy_SUB || type == padtidy_FORMAT) { |
1807
|
59786880 |
6857821 |
for (ix = AvFILLp(PL_comppad); ix > 0; ix--) { |
1808
|
47303480 |
12483400 |
if (!namep[ix]) namep[ix] = &PL_sv_undef; |
1809
|
58504469 |
1282411 |
if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix]) |
|
0 |
0 |
if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix]) |
|
0 |
0 |
if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix]) |
|
0 |
0 |
if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix]) |
|
0 |
0 |
if (!PL_curpad[ix] || SvIMMORTAL(PL_curpad[ix]) |
1810
|
0 |
58504469 |
|| IS_PADGV(PL_curpad[ix]) || IS_PADCONST(PL_curpad[ix])) |
1812
|
45926433 |
12578036 |
if (!SvPADMY(PL_curpad[ix])) { |
1814
|
10932027 |
1646009 |
} else if (!SvFAKE(namep[ix])) { |
1853
|
12758231 |
2053876 |
if (!PL_curpad) |
1855
|
0 |
12758231 |
if (AvARRAY(PL_comppad) != PL_curpad) |
1858
|
0 |
12758231 |
if (!po) |
1868
|
9775601 |
2982630 |
if (sv && sv != &PL_sv_undef && !SvPADMY(sv)) |
|
9775601 |
0 |
if (sv && sv != &PL_sv_undef && !SvPADMY(sv)) |
|
6277894 |
3497707 |
if (sv && sv != &PL_sv_undef && !SvPADMY(sv)) |
1871
|
1802539 |
10955692 |
if ((I32)po < PL_padix) |
1895
|
0 |
0 |
if (!padlist) { |
1907
|
0 |
0 |
for (ix = 1; ix <= AvFILLp(pad_name); ix++) { |
1909
|
0 |
0 |
if (namesv && !PadnameLEN(namesv)) { |
|
0 |
0 |
if (namesv && !PadnameLEN(namesv)) { |
|
0 |
0 |
if (namesv && !PadnameLEN(namesv)) { |
1912
|
0 |
0 |
if (namesv) { |
1913
|
0 |
0 |
if (SvFAKE(namesv)) |
1914
|
0 |
0 |
Perl_dump_indent(aTHX_ level+1, file, |
1925
|
0 |
0 |
Perl_dump_indent(aTHX_ level+1, file, |
1935
|
0 |
0 |
else if (full) { |
1936
|
0 |
0 |
Perl_dump_indent(aTHX_ level+1, file, |
2030
|
1579008 |
9 |
if (!outside) { |
|
0 |
0 |
if (!outside) { |
2031
|
1578832 |
176 |
if (CvWEAKOUTSIDE(proto)) |
|
0 |
0 |
if (CvWEAKOUTSIDE(proto)) |
2035
|
6 |
170 |
if ((CvCLONE(outside) && ! CvCLONED(outside)) |
|
0 |
6 |
if ((CvCLONE(outside) && ! CvCLONED(outside)) |
|
0 |
0 |
if ((CvCLONE(outside) && ! CvCLONED(outside)) |
|
0 |
0 |
if ((CvCLONE(outside) && ! CvCLONED(outside)) |
2036
|
168 |
2 |
|| !CvPADLIST(outside) |
|
0 |
0 |
|| !CvPADLIST(outside) |
2037
|
2 |
166 |
|| PadlistNAMES(CvPADLIST(outside)) |
|
0 |
0 |
|| PadlistNAMES(CvPADLIST(outside)) |
2046
|
1579011 |
6 |
depth = outside ? CvDEPTH(outside) : 0; |
|
0 |
0 |
depth = outside ? CvDEPTH(outside) : 0; |
2047
|
122 |
1578895 |
if (!depth) |
|
0 |
0 |
if (!depth) |
2053
|
1578954 |
63 |
if (newcv) SAVEFREESV(cv); /* in case of fatal warnings */ |
|
0 |
0 |
if (newcv) SAVEFREESV(cv); /* in case of fatal warnings */ |
2055
|
1190424 |
388593 |
if (CvHASEVAL(cv)) |
|
0 |
0 |
if (CvHASEVAL(cv)) |
2066
|
1579011 |
0 |
outpad = outside && CvPADLIST(outside) |
|
0 |
0 |
outpad = outside && CvPADLIST(outside) |
2068
|
1579011 |
6 |
: NULL; |
|
0 |
0 |
: NULL; |
2069
|
1579011 |
6 |
if (outpad) |
|
0 |
0 |
if (outpad) |
2072
|
3881440 |
1579015 |
for (ix = fpad; ix > 0; ix--) { |
|
0 |
0 |
for (ix = fpad; ix > 0; ix--) { |
2073
|
3881440 |
0 |
SV* const namesv = (ix <= fname) ? pname[ix] : NULL; |
|
0 |
0 |
SV* const namesv = (ix <= fname) ? pname[ix] : NULL; |
2075
|
3881440 |
0 |
if (namesv && PadnameLEN(namesv)) { /* lexical */ |
|
1298814 |
2582626 |
if (namesv && PadnameLEN(namesv)) { /* lexical */ |
|
1298128 |
686 |
if (namesv && PadnameLEN(namesv)) { /* lexical */ |
|
0 |
0 |
if (namesv && PadnameLEN(namesv)) { /* lexical */ |
|
0 |
0 |
if (namesv && PadnameLEN(namesv)) { /* lexical */ |
|
0 |
0 |
if (namesv && PadnameLEN(namesv)) { /* lexical */ |
2076
|
1279440 |
18688 |
if (PadnameIsOUR(namesv)) { /* or maybe not so lexical */ |
|
0 |
0 |
if (PadnameIsOUR(namesv)) { /* or maybe not so lexical */ |
2080
|
1113262 |
166178 |
if (SvFAKE(namesv)) { /* lexical from outside? */ |
|
0 |
0 |
if (SvFAKE(namesv)) { /* lexical from outside? */ |
2083
|
1113258 |
4 |
if (!outpad || !(sv = outpad[PARENT_PAD_INDEX(namesv)]) |
|
1113258 |
0 |
if (!outpad || !(sv = outpad[PARENT_PAD_INDEX(namesv)]) |
|
0 |
0 |
if (!outpad || !(sv = outpad[PARENT_PAD_INDEX(namesv)]) |
|
0 |
0 |
if (!outpad || !(sv = outpad[PARENT_PAD_INDEX(namesv)]) |
2084
|
12 |
1113246 |
|| ( SvPADSTALE(sv) && !SvPAD_STATE(namesv) |
|
11 |
1 |
|| ( SvPADSTALE(sv) && !SvPAD_STATE(namesv) |
|
0 |
0 |
|| ( SvPADSTALE(sv) && !SvPAD_STATE(namesv) |
|
0 |
0 |
|| ( SvPADSTALE(sv) && !SvPAD_STATE(namesv) |
2085
|
11 |
0 |
&& (!outside || !CvDEPTH(outside))) ) { |
|
4 |
7 |
&& (!outside || !CvDEPTH(outside))) ) { |
|
0 |
0 |
&& (!outside || !CvDEPTH(outside))) ) { |
|
0 |
0 |
&& (!outside || !CvDEPTH(outside))) ) { |
2092
|
166184 |
1113254 |
if (!sv) { |
|
0 |
0 |
if (!sv) { |
2094
|
1521 |
164663 |
if (sigil == '&') |
|
0 |
0 |
if (sigil == '&') |
2102
|
9 |
1512 |
if (SvPAD_STATE(namesv) && !CvCLONED(ppad[ix])) { |
|
9 |
0 |
if (SvPAD_STATE(namesv) && !CvCLONED(ppad[ix])) { |
|
0 |
0 |
if (SvPAD_STATE(namesv) && !CvCLONED(ppad[ix])) { |
|
0 |
0 |
if (SvPAD_STATE(namesv) && !CvCLONED(ppad[ix])) { |
2107
|
1512 |
0 |
else if (PadnameLEN(namesv)>1 && !PadnameIsOUR(namesv)) |
|
14 |
1498 |
else if (PadnameLEN(namesv)>1 && !PadnameIsOUR(namesv)) |
|
14 |
0 |
else if (PadnameLEN(namesv)>1 && !PadnameIsOUR(namesv)) |
|
0 |
0 |
else if (PadnameLEN(namesv)>1 && !PadnameIsOUR(namesv)) |
|
0 |
0 |
else if (PadnameLEN(namesv)>1 && !PadnameIsOUR(namesv)) |
|
0 |
0 |
else if (PadnameLEN(namesv)>1 && !PadnameIsOUR(namesv)) |
2113
|
0 |
14 |
CvNAME_HEK_set( |
|
14 |
0 |
CvNAME_HEK_set( |
|
0 |
0 |
CvNAME_HEK_set( |
|
0 |
0 |
CvNAME_HEK_set( |
2122
|
7980 |
156683 |
else if (sigil == '@') |
|
0 |
0 |
else if (sigil == '@') |
2124
|
2869 |
153814 |
else if (sigil == '%') |
|
0 |
0 |
else if (sigil == '%') |
2130
|
164663 |
1521 |
if (sigil != '&' && SvPAD_STATE(namesv)) |
|
7 |
164656 |
if (sigil != '&' && SvPAD_STATE(namesv)) |
|
0 |
0 |
if (sigil != '&' && SvPAD_STATE(namesv)) |
|
0 |
0 |
if (sigil != '&' && SvPAD_STATE(namesv)) |
2135
|
2583312 |
0 |
else if (IS_PADGV(ppad[ix]) || (namesv && PadnamePV(namesv))) { |
|
686 |
2582626 |
else if (IS_PADGV(ppad[ix]) || (namesv && PadnamePV(namesv))) { |
|
686 |
0 |
else if (IS_PADGV(ppad[ix]) || (namesv && PadnamePV(namesv))) { |
|
0 |
0 |
else if (IS_PADGV(ppad[ix]) || (namesv && PadnamePV(namesv))) { |
|
0 |
0 |
else if (IS_PADGV(ppad[ix]) || (namesv && PadnamePV(namesv))) { |
|
0 |
0 |
else if (IS_PADGV(ppad[ix]) || (namesv && PadnamePV(namesv))) { |
2145
|
6 |
1579009 |
if (subclones) |
|
0 |
0 |
if (subclones) |
2146
|
33 |
6 |
for (ix = fpad; ix > 0; ix--) { |
|
0 |
0 |
for (ix = fpad; ix > 0; ix--) { |
2147
|
33 |
0 |
SV* const namesv = (ix <= fname) ? pname[ix] : NULL; |
|
0 |
0 |
SV* const namesv = (ix <= fname) ? pname[ix] : NULL; |
2148
|
33 |
0 |
if (namesv && namesv != &PL_sv_undef && !SvFAKE(namesv) |
|
12 |
21 |
if (namesv && namesv != &PL_sv_undef && !SvFAKE(namesv) |
|
9 |
3 |
if (namesv && namesv != &PL_sv_undef && !SvFAKE(namesv) |
|
0 |
0 |
if (namesv && namesv != &PL_sv_undef && !SvFAKE(namesv) |
|
0 |
0 |
if (namesv && namesv != &PL_sv_undef && !SvFAKE(namesv) |
|
0 |
0 |
if (namesv && namesv != &PL_sv_undef && !SvFAKE(namesv) |
2149
|
9 |
0 |
&& SvPVX_const(namesv)[0] == '&' && SvPAD_STATE(namesv)) |
|
9 |
0 |
&& SvPVX_const(namesv)[0] == '&' && SvPAD_STATE(namesv)) |
|
0 |
0 |
&& SvPVX_const(namesv)[0] == '&' && SvPAD_STATE(namesv)) |
|
0 |
0 |
&& SvPVX_const(namesv)[0] == '&' && SvPAD_STATE(namesv)) |
2153
|
1578952 |
63 |
if (newcv) SvREFCNT_inc_simple_void_NN(cv); |
|
0 |
0 |
if (newcv) SvREFCNT_inc_simple_void_NN(cv); |
2165
|
1578954 |
63 |
if (!cv) cv = MUTABLE_CV(newSV_type(SvTYPE(proto))); |
2171
|
0 |
1579017 |
: CvFILE(proto); |
2172
|
64 |
1578953 |
if (CvNAMED(proto)) |
2173
|
0 |
64 |
CvNAME_HEK_set(cv, share_hek_hek(CvNAME_HEK(proto))); |
2177
|
1579010 |
7 |
CvROOT(cv) = OpREFCNT_inc(CvROOT(proto)); |
2182
|
1514 |
1577503 |
if (SvPOK(proto)) { |
2184
|
1 |
1513 |
if (SvUTF8(proto)) |
2187
|
22 |
1578995 |
if (SvMAGIC(proto)) |
2190
|
1579017 |
0 |
if (CvPADLIST(proto)) S_cv_clone_pad(aTHX_ proto, cv, outside, newcv); |
2207
|
0 |
1578954 |
if (!CvPADLIST(proto)) Perl_croak(aTHX_ "panic: no pad in cv_clone"); |
2243
|
898407 |
56816 |
for (ix = AvFILLp(comppad_name); ix > 0; ix--) { |
2245
|
235255 |
663152 |
if (namesv && namesv != &PL_sv_undef && !SvPAD_STATE(namesv) |
|
235252 |
3 |
if (namesv && namesv != &PL_sv_undef && !SvPAD_STATE(namesv) |
|
235244 |
8 |
if (namesv && namesv != &PL_sv_undef && !SvPAD_STATE(namesv) |
2246
|
106 |
235138 |
&& *SvPVX_const(namesv) == '&') |
2248
|
98 |
8 |
if (SvTYPE(curpad[ix]) == SVt_PVCV) { |
2252
|
0 |
98 |
: NULL; |
2253
|
0 |
98 |
CV * const innercv = MUTABLE_CV(mg ? mg->mg_obj : curpad[ix]); |
2254
|
94 |
4 |
if (CvOUTSIDE(innercv) == old_cv) { |
2255
|
0 |
94 |
if (!CvWEAKOUTSIDE(innercv)) { |
2265
|
6 |
2 |
if (!SvOK(rv)) continue; |
|
6 |
0 |
if (!SvOK(rv)) continue; |
|
6 |
0 |
if (!SvOK(rv)) continue; |
2294
|
22349929 |
204919 |
if (depth > PadlistMAX(padlist) || !PadlistARRAY(padlist)[depth]) { |
|
147137 |
22202792 |
if (depth > PadlistMAX(padlist) || !PadlistARRAY(padlist)[depth]) { |
2303
|
10248698 |
352056 |
for ( ;ix > 0; ix--) { |
2304
|
10248698 |
0 |
if (names_fill >= ix && PadnameLEN(names[ix])) { |
|
2026888 |
8221810 |
if (names_fill >= ix && PadnameLEN(names[ix])) { |
|
2026464 |
424 |
if (names_fill >= ix && PadnameLEN(names[ix])) { |
2306
|
1862396 |
164068 |
if ((SvFLAGS(names[ix]) & SVf_FAKE) |
2308
|
8938 |
1853458 |
|| sigil == '&') |
2315
|
45699 |
1807759 |
if (sigil == '@') |
2317
|
468 |
1807291 |
else if (sigil == '%') |
2325
|
424 |
8221810 |
else if (IS_PADGV(oldpad[ix]) || PadnamePV(names[ix])) { |
|
424 |
0 |
else if (IS_PADGV(oldpad[ix]) || PadnamePV(names[ix])) { |
2358
|
7 |
43 |
if ( SvPAD_TYPED(*av) ) { |
2506
|
204919 |
147137 |
if (key > PadlistMAX(padlist)) { |
2510
|
0 |
204919 |
Zero(PadlistARRAY(padlist)+oldmax+1, PadlistMAX(padlist)-oldmax, |