| line |
true |
false |
branch |
|
44
|
12427 |
814707222 |
XPUSHs(cSVOP_sv); |
|
54
|
248902347 |
1039248454 |
FREETMPS; |
|
55
|
10 |
1288150791 |
PERL_ASYNC_CHECK(); |
|
60
|
3 |
252534498 |
{ |
|
64
|
24939325 |
227595176 |
if (PL_op->op_private & OPpLVAL_INTRO) |
|
67
|
227594180 |
996 |
PUSHs(GvSVn(cGVOP_gv)); |
|
81
|
536 |
378808092 |
PUSHMARK(PL_stack_sp); |
|
91
|
941 |
3242932 |
SvSETMAGIC(TARG); |
|
99
|
2 |
218705070 |
XPUSHs(MUTABLE_SV(cGVOP_gv)); |
|
106
|
16 |
546836149 |
PERL_ASYNC_CHECK(); |
|
114
|
433838 |
546402326 |
if (!SvTRUE_NN(sv)) |
|
|
28681514 |
517720812 |
if (!SvTRUE_NN(sv)) |
|
|
28681514 |
0 |
if (!SvTRUE_NN(sv)) |
|
|
0 |
28681514 |
if (!SvTRUE_NN(sv)) |
|
|
409314322 |
108406490 |
if (!SvTRUE_NN(sv)) |
|
|
409314322 |
0 |
if (!SvTRUE_NN(sv)) |
|
|
407494178 |
1820144 |
if (!SvTRUE_NN(sv)) |
|
|
185507004 |
221987174 |
if (!SvTRUE_NN(sv)) |
|
|
185335245 |
171759 |
if (!SvTRUE_NN(sv)) |
|
|
70386042 |
38020448 |
if (!SvTRUE_NN(sv)) |
|
|
70383459 |
2583 |
if (!SvTRUE_NN(sv)) |
|
|
40192421 |
30191038 |
if (!SvTRUE_NN(sv)) |
|
|
7422 |
40187582 |
if (!SvTRUE_NN(sv)) |
|
|
2580 |
4842 |
if (!SvTRUE_NN(sv)) |
|
|
291458910 |
255377254 |
if (!SvTRUE_NN(sv)) |
|
117
|
255371896 |
5358 |
if (PL_op->op_type == OP_AND) |
|
132
|
3503959 |
476683432 |
if (PL_op->op_private & OPpASSIGN_BACKWARDS) { |
|
136
|
1501346 |
478686045 |
if (TAINTING_get && TAINT_get && !SvTAINTED(right)) |
|
|
522 |
1500824 |
if (TAINTING_get && TAINT_get && !SvTAINTED(right)) |
|
|
522 |
0 |
if (TAINTING_get && TAINT_get && !SvTAINTED(right)) |
|
|
0 |
522 |
if (TAINTING_get && TAINT_get && !SvTAINTED(right)) |
|
138
|
1071429 |
479115962 |
if (PL_op->op_private & OPpASSIGN_CV_TO_GV) { |
|
141
|
231186 |
840243 |
const bool is_gv = isGV_with_GP(left); |
|
|
0 |
231186 |
const bool is_gv = isGV_with_GP(left); |
|
151
|
342597 |
728832 |
if (!got_coderef && !is_gv && GIMME_V == G_VOID) { |
|
|
342595 |
2 |
if (!got_coderef && !is_gv && GIMME_V == G_VOID) { |
|
|
342595 |
0 |
if (!got_coderef && !is_gv && GIMME_V == G_VOID) { |
|
|
342595 |
0 |
if (!got_coderef && !is_gv && GIMME_V == G_VOID) { |
|
154
|
342143 |
452 |
if (SvTYPE(gv) != SVt_PVGV && !SvOK(gv)) { |
|
|
333946 |
8197 |
if (SvTYPE(gv) != SVt_PVGV && !SvOK(gv)) { |
|
|
333946 |
0 |
if (SvTYPE(gv) != SVt_PVGV && !SvOK(gv)) { |
|
|
333946 |
0 |
if (SvTYPE(gv) != SVt_PVGV && !SvOK(gv)) { |
|
|
333946 |
0 |
if (SvTYPE(gv) != SVt_PVGV && !SvOK(gv)) { |
|
162
|
333946 |
0 |
SvREFCNT_inc_simple_void(value); |
|
169
|
506297 |
231186 |
if (!is_gv) { |
|
174
|
8651 |
728832 |
if (!got_coderef) { |
|
177
|
8649 |
2 |
if (SvROK(cv)) { |
|
216
|
20 |
479853425 |
if ( |
|
217
|
19 |
1 |
SvTEMP(left) && !SvSMAGICAL(left) && SvREFCNT(left) == 1 && |
|
218
|
19 |
0 |
(!isGV_with_GP(left) || SvFAKE(left)) && ckWARN(WARN_MISC) |
|
|
0 |
19 |
(!isGV_with_GP(left) || SvFAKE(left)) && ckWARN(WARN_MISC) |
|
|
1 |
0 |
(!isGV_with_GP(left) || SvFAKE(left)) && ckWARN(WARN_MISC) |
|
223
|
479278688 |
574757 |
SvSetMagicSV(left, right); |
|
|
3561849 |
475716808 |
SvSetMagicSV(left, right); |
|
231
|
1 |
147019667 |
PERL_ASYNC_CHECK(); |
|
232
|
147019668 |
0 |
if (SvTRUEx(POPs)) |
|
|
314439 |
146705229 |
if (SvTRUEx(POPs)) |
|
|
54728 |
259711 |
if (SvTRUEx(POPs)) |
|
|
7205277 |
139499952 |
if (SvTRUEx(POPs)) |
|
|
7205277 |
0 |
if (SvTRUEx(POPs)) |
|
|
0 |
7205277 |
if (SvTRUEx(POPs)) |
|
|
109186552 |
30313400 |
if (SvTRUEx(POPs)) |
|
|
109186552 |
0 |
if (SvTRUEx(POPs)) |
|
|
108068031 |
1118521 |
if (SvTRUEx(POPs)) |
|
|
21792256 |
86275775 |
if (SvTRUEx(POPs)) |
|
|
12071 |
21780185 |
if (SvTRUEx(POPs)) |
|
|
22898706 |
86287846 |
if (SvTRUEx(POPs)) |
|
|
24311308 |
6002092 |
if (SvTRUEx(POPs)) |
|
|
24304031 |
7277 |
if (SvTRUEx(POPs)) |
|
|
14059246 |
10244785 |
if (SvTRUEx(POPs)) |
|
|
7414 |
14059109 |
if (SvTRUEx(POPs)) |
|
|
225 |
7189 |
if (SvTRUEx(POPs)) |
|
|
10251974 |
14059334 |
if (SvTRUEx(POPs)) |
|
|
6002092 |
0 |
if (SvTRUEx(POPs)) |
|
|
39207500 |
107812168 |
if (SvTRUEx(POPs)) |
|
241
|
10 |
480234625 |
PERL_ASYNC_CHECK(); |
|
244
|
52279377 |
427955255 |
FREETMPS; |
|
245
|
474586477 |
5648155 |
if (!(PL_op->op_flags & OPf_SPECIAL)) { |
|
247
|
21494731 |
453091746 |
LEAVE_SCOPE(oldsave); |
|
254
|
53802432 |
48855636 |
dVAR; dSP; dATARGET; tryAMAGICbin_MG(concat_amg, AMGf_assign); |
|
|
929384 |
101728684 |
dVAR; dSP; dATARGET; tryAMAGICbin_MG(concat_amg, AMGf_assign); |
|
|
16 |
929365 |
dVAR; dSP; dATARGET; tryAMAGICbin_MG(concat_amg, AMGf_assign); |
|
263
|
991741 |
101666308 |
if (TARG == right && right != left) { /* $r = $l.$r */ |
|
264
|
979191 |
12550 |
rpv = SvPV_nomg_const(right, rlen); |
|
265
|
1130 |
990611 |
rbyte = !DO_UTF8(right); |
|
|
1130 |
0 |
rbyte = !DO_UTF8(right); |
|
267
|
991741 |
0 |
rpv = SvPV_const(right, rlen); /* no point setting UTF-8 here */ |
|
271
|
47154274 |
55503775 |
if (TARG != left) { /* not $l .= $r */ |
|
273
|
46870450 |
283824 |
const char* const lpv = SvPV_nomg_const(left, llen); |
|
274
|
70011 |
47084263 |
lbyte = !DO_UTF8(left); |
|
|
70007 |
4 |
lbyte = !DO_UTF8(left); |
|
276
|
70007 |
47084267 |
if (!lbyte) |
|
282
|
254581 |
55249194 |
if (!SvOK(TARG)) { |
|
|
254581 |
0 |
if (!SvOK(TARG)) { |
|
|
254580 |
1 |
if (!SvOK(TARG)) { |
|
283
|
1 |
254579 |
if (left == right && ckWARN(WARN_UNINITIALIZED)) /* $l .= $l */ |
|
|
1 |
0 |
if (left == right && ckWARN(WARN_UNINITIALIZED)) /* $l .= $l */ |
|
287
|
1432946 |
54070829 |
SvPV_force_nomg_nolen(left); |
|
288
|
667789 |
54835985 |
lbyte = !DO_UTF8(left); |
|
|
667788 |
1 |
lbyte = !DO_UTF8(left); |
|
289
|
694037 |
54809737 |
if (IN_BYTES) |
|
293
|
101666307 |
991741 |
if (!rcopied) { |
|
294
|
567 |
101665740 |
if (left == right) |
|
|
0 |
567 |
if (left == right) |
|
297
|
98516018 |
3150289 |
rpv = SvPV_nomg_const(right, rlen); |
|
298
|
603409 |
101062898 |
rbyte = !DO_UTF8(right); |
|
|
603380 |
29 |
rbyte = !DO_UTF8(right); |
|
300
|
1079893 |
101578155 |
if (lbyte != rbyte) { |
|
303
|
473304 |
606589 |
if (lbyte) |
|
306
|
606574 |
15 |
if (!rcopied) |
|
309
|
606589 |
0 |
rpv = SvPV_nomg_const(right, rlen); |
|
315
|
16071 |
102641975 |
SETTARG; |
|
327
|
5137 |
88240851 |
{ |
|
329
|
16121 |
88229867 |
const SSize_t maxarg = AvFILL(av) + 1; |
|
331
|
88229867 |
16121 |
if (SvRMAGICAL(av)) { |
|
333
|
93244 |
16121 |
for (i=0; i < (PADOFFSET)maxarg; i++) { |
|
337
|
1744 |
90525 |
? SvGMAGICAL(*svp) ? (mg_get(*svp), *svp) : *svp |
|
338
|
92269 |
975 |
: &PL_sv_undef; |
|
343
|
175269130 |
88229867 |
for (i=0; i < (PADOFFSET)maxarg; i++) { |
|
345
|
175269031 |
99 |
SP[i+1] = sv ? sv : &PL_sv_undef; |
|
361
|
73683576 |
373712366 |
if (PL_op->op_flags & OPf_SPECIAL) { |
|
363
|
0 |
73683576 |
PUSHMARK(SP); |
|
364
|
73683576 |
0 |
S_pushav(aTHX_ GvAVn(PL_defgv)); |
|
369
|
442935111 |
4460831 |
if ((PL_op->op_flags & OPf_WANT) != OPf_WANT_VOID) { |
|
|
0 |
442935111 |
if ((PL_op->op_flags & OPf_WANT) != OPf_WANT_VOID) { |
|
371
|
97 |
442935014 |
PUSHMARK(SP); |
|
372
|
525130227 |
442935111 |
for (i = 0; i
|
|
375
|
93237780 |
354158162 |
if (PL_op->op_private & OPpLVAL_INTRO) { |
|
386
|
0 |
93237780 |
SS_ADD_END(1); |
|
389
|
175183213 |
93237780 |
for (i = 0; i
|
|
397
|
0 |
1562347666 |
{ |
|
410
|
719615339 |
842732327 |
if (op->op_flags & OPf_MOD) { |
|
411
|
322690345 |
396924994 |
if (op->op_private & OPpLVAL_INTRO) |
|
412
|
322690274 |
71 |
if (!(op->op_private & OPpPAD_STATE)) |
|
414
|
149105798 |
570509541 |
if (op->op_private & OPpDEREF) { |
|
430
|
4844099 |
1 |
if (TOPs) { |
|
|
1 |
4844098 |
if (TOPs) { |
|
432
|
4843641 |
458 |
tryAMAGICunTARGETlist(iter_amg, 0); |
|
|
3494805 |
1349294 |
tryAMAGICunTARGETlist(iter_amg, 0); |
|
|
308909 |
3185896 |
tryAMAGICunTARGETlist(iter_amg, 0); |
|
|
63 |
308846 |
tryAMAGICunTARGETlist(iter_amg, 0); |
|
|
1 |
62 |
tryAMAGICunTARGETlist(iter_amg, 0); |
|
|
1 |
0 |
tryAMAGICunTARGETlist(iter_amg, 0); |
|
|
0 |
0 |
tryAMAGICunTARGETlist(iter_amg, 0); |
|
|
0 |
0 |
tryAMAGICunTARGETlist(iter_amg, 0); |
|
|
0 |
0 |
tryAMAGICunTARGETlist(iter_amg, 0); |
|
|
0 |
0 |
tryAMAGICunTARGETlist(iter_amg, 0); |
|
|
0 |
0 |
tryAMAGICunTARGETlist(iter_amg, 0); |
|
|
0 |
0 |
tryAMAGICunTARGETlist(iter_amg, 0); |
|
436
|
1344463 |
3499636 |
if (!isGV_with_GP(PL_last_in_gv)) { |
|
|
0 |
1344463 |
if (!isGV_with_GP(PL_last_in_gv)) { |
|
437
|
3494804 |
4832 |
if (SvROK(PL_last_in_gv) && isGV_with_GP(SvRV(PL_last_in_gv))) |
|
|
3401704 |
93100 |
if (SvROK(PL_last_in_gv) && isGV_with_GP(SvRV(PL_last_in_gv))) |
|
|
3401704 |
0 |
if (SvROK(PL_last_in_gv) && isGV_with_GP(SvRV(PL_last_in_gv))) |
|
441
|
0 |
97932 |
XPUSHs(MUTABLE_SV(PL_last_in_gv)); |
|
455
|
766987 |
34671455 |
tryAMAGICbin_MG(eq_amg, AMGf_set|AMGf_numeric); |
|
|
127967 |
639018 |
tryAMAGICbin_MG(eq_amg, AMGf_set|AMGf_numeric); |
|
458
|
34215806 |
1094667 |
SETs(boolSV( |
|
|
33943791 |
272015 |
SETs(boolSV( |
|
|
10978384 |
24332089 |
SETs(boolSV( |
|
471
|
31659416 |
0 |
if (SvTYPE(TOPs) >= SVt_PVAV || (isGV_with_GP(TOPs) && !SvFAKE(TOPs))) |
|
|
4 |
31659412 |
if (SvTYPE(TOPs) >= SVt_PVAV || (isGV_with_GP(TOPs) && !SvFAKE(TOPs))) |
|
|
4 |
0 |
if (SvTYPE(TOPs) >= SVt_PVAV || (isGV_with_GP(TOPs) && !SvFAKE(TOPs))) |
|
|
0 |
4 |
if (SvTYPE(TOPs) >= SVt_PVAV || (isGV_with_GP(TOPs) && !SvFAKE(TOPs))) |
|
473
|
29739709 |
1919707 |
if (!SvREADONLY(TOPs) && !SvGMAGICAL(TOPs) && SvIOK_notUV(TOPs) && !SvNOK(TOPs) && !SvPOK(TOPs) |
|
474
|
2680365 |
27059344 |
&& SvIVX(TOPs) != (inc ? IV_MAX : IV_MIN)) |
|
|
29739171 |
538 |
&& SvIVX(TOPs) != (inc ? IV_MAX : IV_MIN)) |
|
476
|
2679828 |
27059343 |
SvIV_set(TOPs, SvIVX(TOPs) + (inc ? 1 : -1)); |
|
480
|
1907709 |
12536 |
if (inc) sv_inc(TOPs); |
|
482
|
568 |
31658826 |
SvSETMAGIC(TOPs); |
|
489
|
20 |
169194378 |
PERL_ASYNC_CHECK(); |
|
490
|
169194398 |
0 |
if (SvTRUE(TOPs)) |
|
|
738075 |
168456323 |
if (SvTRUE(TOPs)) |
|
|
532491 |
205584 |
if (SvTRUE(TOPs)) |
|
|
16141242 |
152315081 |
if (SvTRUE(TOPs)) |
|
|
16141242 |
0 |
if (SvTRUE(TOPs)) |
|
|
0 |
16141242 |
if (SvTRUE(TOPs)) |
|
|
97740439 |
54574642 |
if (SvTRUE(TOPs)) |
|
|
97740439 |
0 |
if (SvTRUE(TOPs)) |
|
|
89855075 |
7885364 |
if (SvTRUE(TOPs)) |
|
|
45193966 |
44661109 |
if (SvTRUE(TOPs)) |
|
|
12438 |
45181528 |
if (SvTRUE(TOPs)) |
|
|
53066892 |
44673547 |
if (SvTRUE(TOPs)) |
|
|
42565968 |
12008674 |
if (SvTRUE(TOPs)) |
|
|
42451657 |
114311 |
if (SvTRUE(TOPs)) |
|
|
10301213 |
32150444 |
if (SvTRUE(TOPs)) |
|
|
114312 |
10301212 |
if (SvTRUE(TOPs)) |
|
|
98125 |
16187 |
if (SvTRUE(TOPs)) |
|
|
32166631 |
10399337 |
if (SvTRUE(TOPs)) |
|
|
12008668 |
6 |
if (SvTRUE(TOPs)) |
|
493
|
67921784 |
3497932 |
if (PL_op->op_type == OP_OR) |
|
507
|
206344 |
57537969 |
if (is_dor) { |
|
508
|
0 |
206344 |
PERL_ASYNC_CHECK(); |
|
510
|
206344 |
0 |
if (!sv || !SvANY(sv)) { |
|
|
1509 |
204835 |
if (!sv || !SvANY(sv)) { |
|
511
|
1352 |
157 |
if (op_type == OP_DOR) |
|
519
|
57537969 |
0 |
if (!sv || !SvANY(sv)) |
|
|
10231887 |
47306082 |
if (!sv || !SvANY(sv)) |
|
524
|
705975 |
46422458 |
switch (SvTYPE(sv)) { |
|
526
|
5 |
2 |
if (AvMAX(sv) >= 0 || SvGMAGICAL(sv) || (SvRMAGICAL(sv) && mg_find(sv, PERL_MAGIC_tied))) |
|
|
5 |
0 |
if (AvMAX(sv) >= 0 || SvGMAGICAL(sv) || (SvRMAGICAL(sv) && mg_find(sv, PERL_MAGIC_tied))) |
|
|
2 |
3 |
if (AvMAX(sv) >= 0 || SvGMAGICAL(sv) || (SvRMAGICAL(sv) && mg_find(sv, PERL_MAGIC_tied))) |
|
|
2 |
0 |
if (AvMAX(sv) >= 0 || SvGMAGICAL(sv) || (SvRMAGICAL(sv) && mg_find(sv, PERL_MAGIC_tied))) |
|
530
|
5 |
20 |
if (HvARRAY(sv) || SvGMAGICAL(sv) || (SvRMAGICAL(sv) && mg_find(sv, PERL_MAGIC_tied))) |
|
|
5 |
0 |
if (HvARRAY(sv) || SvGMAGICAL(sv) || (SvRMAGICAL(sv) && mg_find(sv, PERL_MAGIC_tied))) |
|
|
2 |
3 |
if (HvARRAY(sv) || SvGMAGICAL(sv) || (SvRMAGICAL(sv) && mg_find(sv, PERL_MAGIC_tied))) |
|
|
2 |
0 |
if (HvARRAY(sv) || SvGMAGICAL(sv) || (SvRMAGICAL(sv) && mg_find(sv, PERL_MAGIC_tied))) |
|
534
|
2067 |
380385 |
if (CvROOT(sv) || CvXSUB(sv)) |
|
|
0 |
2067 |
if (CvROOT(sv) || CvXSUB(sv)) |
|
539
|
4488227 |
42640206 |
if (SvOK(sv)) |
|
|
4488223 |
4 |
if (SvOK(sv)) |
|
|
0 |
4488223 |
if (SvOK(sv)) |
|
544
|
204835 |
47306082 |
if (is_dor) { |
|
545
|
79931 |
124904 |
if(defined) |
|
547
|
124324 |
580 |
if(op_type == OP_DOR) |
|
552
|
42940690 |
4365392 |
if(defined) |
|
559
|
3441842 |
18790614 |
dVAR; dSP; dATARGET; bool useleft; SV *svl, *svr; |
|
560
|
16319 |
22216137 |
tryAMAGICbin_MG(add_amg, AMGf_assign|AMGf_numeric); |
|
|
2286 |
14008 |
tryAMAGICbin_MG(add_amg, AMGf_assign|AMGf_numeric); |
|
564
|
884039 |
21346106 |
useleft = USE_LEFT(svl); |
|
|
884039 |
0 |
useleft = USE_LEFT(svl); |
|
|
884039 |
0 |
useleft = USE_LEFT(svl); |
|
|
777725 |
106314 |
useleft = USE_LEFT(svl); |
|
612
|
253289 |
21976856 |
if (SvIV_please_nomg(svr)) { |
|
|
156077 |
97212 |
if (SvIV_please_nomg(svr)) { |
|
|
156077 |
0 |
if (SvIV_please_nomg(svr)) { |
|
|
22109777 |
120367 |
if (SvIV_please_nomg(svr)) { |
|
620
|
21332056 |
777721 |
if (!useleft) { |
|
628
|
338609 |
20993447 |
if (SvIV_please_nomg(svl)) { |
|
|
329278 |
9331 |
if (SvIV_please_nomg(svl)) { |
|
|
329278 |
0 |
if (SvIV_please_nomg(svl)) { |
|
|
21290485 |
41570 |
if (SvIV_please_nomg(svl)) { |
|
629
|
5197 |
21285288 |
if ((auvok = SvUOK(svl))) |
|
633
|
21182144 |
103144 |
if (aiv >= 0) { |
|
643
|
22068206 |
41570 |
if (a_valid) { |
|
649
|
93 |
22068113 |
if (buvok) |
|
653
|
22039968 |
28145 |
if (biv >= 0) { |
|
669
|
129449 |
21938757 |
if (auvok ^ buvok) { |
|
671
|
112177 |
17272 |
if (auv >= buv) { |
|
674
|
112177 |
0 |
if (result <= auv) |
|
678
|
17272 |
0 |
if (result <= buv) { |
|
688
|
21938687 |
70 |
if (result >= auv) |
|
691
|
22068136 |
70 |
if (result_good) { |
|
693
|
21958430 |
109706 |
if (auvok) |
|
694
|
4 |
21958426 |
SETu( result ); |
|
697
|
109706 |
0 |
if (result <= (UV)IV_MIN) |
|
698
|
1 |
109705 |
SETi( -(IV)result ); |
|
701
|
0 |
0 |
SETn( -(NV)result ); |
|
710
|
54011 |
107996 |
NV value = SvNV_nomg(svr); |
|
712
|
4 |
162003 |
if (!useleft) { |
|
714
|
0 |
4 |
SETn(value); |
|
717
|
54972 |
107031 |
SETn( value + SvNV_nomg(svl) ); |
|
|
0 |
162002 |
SETn( value + SvNV_nomg(svl) ); |
|
723
|
0 |
24443959 |
{ |
|
726
|
5569967 |
18873992 |
? MUTABLE_AV(PAD_SV(PL_op->op_targ)) : GvAVn(cGVOP_gv); |
|
|
18873990 |
2 |
? MUTABLE_AV(PAD_SV(PL_op->op_targ)) : GvAVn(cGVOP_gv); |
|
729
|
23367509 |
1076450 |
SV *sv = (svp ? *svp : &PL_sv_undef); |
|
731
|
23781698 |
662261 |
if (!lval && SvRMAGICAL(av) && SvGMAGICAL(sv)) /* see note in pp_helem() */ |
|
|
33336 |
23748362 |
if (!lval && SvRMAGICAL(av) && SvGMAGICAL(sv)) /* see note in pp_helem() */ |
|
|
33091 |
245 |
if (!lval && SvRMAGICAL(av) && SvGMAGICAL(sv)) /* see note in pp_helem() */ |
|
761
|
0 |
2243763 |
XPUSHs(MUTABLE_SV(PL_op)); |
|
774
|
1154658 |
431380 |
= (PL_op->op_flags & OPf_STACKED) ? MUTABLE_GV(*++MARK) : PL_defoutgv; |
|
775
|
1586036 |
2 |
IO *io = GvIO(gv); |
|
|
1586036 |
0 |
IO *io = GvIO(gv); |
|
|
1586036 |
0 |
IO *io = GvIO(gv); |
|
777
|
1586024 |
14 |
if (io |
|
778
|
96169 |
1489855 |
&& (mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar))) |
|
|
96169 |
1489855 |
&& (mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar))) |
|
781
|
63663 |
32506 |
if (MARK == ORIGMARK) { |
|
785
|
0 |
63663 |
MEXTEND(SP, 1); |
|
787
|
0 |
63663 |
Move(MARK, MARK + 1, (SP - MARK) + 1, SV*); |
|
790
|
96168 |
1 |
return Perl_tied_method(aTHX_ SV_CONST(PRINT), mark - 1, MUTABLE_SV(io), |
|
|
95940 |
229 |
return Perl_tied_method(aTHX_ SV_CONST(PRINT), mark - 1, MUTABLE_SV(io), |
|
796
|
14 |
1489855 |
if (!io) { |
|
797
|
12 |
2 |
if ( gv && GvEGVx(gv) && (io = GvIO(GvEGV(gv))) |
|
|
12 |
0 |
if ( gv && GvEGVx(gv) && (io = GvIO(GvEGV(gv))) |
|
|
12 |
0 |
if ( gv && GvEGVx(gv) && (io = GvIO(GvEGV(gv))) |
|
|
12 |
0 |
if ( gv && GvEGVx(gv) && (io = GvIO(GvEGV(gv))) |
|
|
12 |
0 |
if ( gv && GvEGVx(gv) && (io = GvIO(GvEGV(gv))) |
|
|
12 |
0 |
if ( gv && GvEGVx(gv) && (io = GvIO(GvEGV(gv))) |
|
|
12 |
0 |
if ( gv && GvEGVx(gv) && (io = GvIO(GvEGV(gv))) |
|
|
0 |
12 |
if ( gv && GvEGVx(gv) && (io = GvIO(GvEGV(gv))) |
|
798
|
0 |
0 |
&& (mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar))) |
|
|
0 |
0 |
&& (mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar))) |
|
804
|
37 |
1489818 |
else if (!(fp = IoOFP(io))) { |
|
805
|
11 |
26 |
if (IoIFP(io)) |
|
815
|
1489818 |
0 |
if (ofs && (SvGMAGICAL(ofs) || SvOK(ofs))) { |
|
|
1 |
1489817 |
if (ofs && (SvGMAGICAL(ofs) || SvOK(ofs))) { |
|
|
511377 |
978440 |
if (ofs && (SvGMAGICAL(ofs) || SvOK(ofs))) { |
|
|
0 |
978440 |
if (ofs && (SvGMAGICAL(ofs) || SvOK(ofs))) { |
|
|
0 |
978440 |
if (ofs && (SvGMAGICAL(ofs) || SvOK(ofs))) { |
|
816
|
750559 |
511378 |
while (MARK <= SP) { |
|
817
|
750559 |
0 |
if (!do_print(*MARK, fp)) |
|
820
|
239317 |
511242 |
if (MARK <= SP) { |
|
822
|
239317 |
0 |
if (!do_print(GvSV(PL_ofsgv), fp)) { |
|
830
|
1512516 |
978434 |
while (MARK <= SP) { |
|
831
|
1512510 |
3 |
if (!do_print(*MARK, fp)) |
|
836
|
1489812 |
3 |
if (MARK <= SP) |
|
839
|
34 |
1489778 |
if (PL_op->op_type == OP_SAY) { |
|
840
|
34 |
0 |
if (PerlIO_write(fp, "\n", 1) == 0 || PerlIO_error(fp)) |
|
|
34 |
0 |
if (PerlIO_write(fp, "\n", 1) == 0 || PerlIO_error(fp)) |
|
843
|
21426 |
1468352 |
else if (PL_ors_sv && SvOK(PL_ors_sv)) |
|
|
0 |
21426 |
else if (PL_ors_sv && SvOK(PL_ors_sv)) |
|
|
0 |
0 |
else if (PL_ors_sv && SvOK(PL_ors_sv)) |
|
|
0 |
0 |
else if (PL_ors_sv && SvOK(PL_ors_sv)) |
|
844
|
21426 |
0 |
if (!do_print(PL_ors_sv, fp)) /* $\ */ |
|
847
|
348474 |
1141338 |
if (IoFLAGS(io) & IOf_FLUSH) |
|
848
|
348474 |
0 |
if (PerlIO_flush(fp) == EOF) |
|
853
|
0 |
1489812 |
XPUSHs(&PL_sv_yes); |
|
858
|
0 |
53 |
XPUSHs(&PL_sv_undef); |
|
863
|
9 |
301476014 |
{ |
|
865
|
301365353 |
110670 |
const I32 gimme = GIMME_V; |
|
869
|
220198471 |
81277552 |
const svtype type = is_pp_rv2av ? SVt_PVAV : SVt_PVHV; |
|
872
|
207258384 |
94217639 |
if (SvROK(sv)) { |
|
873
|
207258384 |
0 |
if (SvAMAGIC(sv)) { |
|
|
80348182 |
126910202 |
if (SvAMAGIC(sv)) { |
|
|
2263394 |
78084788 |
if (SvAMAGIC(sv)) { |
|
874
|
2205555 |
57839 |
sv = amagic_deref_call(sv, is_pp_rv2av ? to_av_amg : to_hv_amg); |
|
877
|
49 |
207258335 |
if (SvTYPE(sv) != type) |
|
879
|
45 |
4 |
DIE(aTHX_ "Not %s reference", is_pp_rv2av ? an_array : a_hash); |
|
880
|
7987782 |
199270553 |
else if (PL_op->op_flags & OPf_MOD |
|
881
|
20 |
7987762 |
&& PL_op->op_private & OPpLVAL_INTRO) |
|
884
|
94126445 |
91194 |
else if (SvTYPE(sv) != type) { |
|
887
|
92338132 |
1788313 |
if (!isGV_with_GP(sv)) { |
|
|
0 |
92338132 |
if (!isGV_with_GP(sv)) { |
|
888
|
1386361 |
401952 |
gv = Perl_softref2xv(aTHX_ sv, is_pp_rv2av ? an_array : a_hash, |
|
890
|
35 |
1788268 |
if (!gv) |
|
896
|
45857379 |
48269021 |
sv = is_pp_rv2av ? MUTABLE_SV(GvAVn(gv)) : MUTABLE_SV(GvHVn(gv)); |
|
|
45857353 |
26 |
sv = is_pp_rv2av ? MUTABLE_SV(GvAVn(gv)) : MUTABLE_SV(GvHVn(gv)); |
|
|
48254023 |
14998 |
sv = is_pp_rv2av ? MUTABLE_SV(GvAVn(gv)) : MUTABLE_SV(GvHVn(gv)); |
|
897
|
62182 |
94064218 |
if (PL_op->op_private & OPpLVAL_INTRO) |
|
898
|
42381 |
19801 |
sv = is_pp_rv2av ? MUTABLE_SV(save_ary(gv)) : MUTABLE_SV(save_hash(gv)); |
|
900
|
278430383 |
23045526 |
if (PL_op->op_flags & OPf_REF) { |
|
904
|
9 |
23045517 |
else if (PL_op->op_private & OPpMAYBE_LVSUB) { |
|
906
|
9 |
0 |
if (flags && !(flags & OPpENTERSUB_INARGS)) { |
|
|
4 |
5 |
if (flags && !(flags & OPpENTERSUB_INARGS)) { |
|
907
|
4 |
0 |
if (gimme != G_ARRAY) |
|
914
|
22675237 |
370285 |
if (is_pp_rv2av) { |
|
919
|
14562412 |
8112825 |
if (gimme == G_ARRAY) { |
|
925
|
8040457 |
72368 |
else if (gimme == G_SCALAR) { |
|
927
|
11747 |
8028710 |
const SSize_t maxarg = AvFILL(av) + 1; |
|
928
|
0 |
8040457 |
SETi(maxarg); |
|
932
|
188431 |
181854 |
if (gimme == G_ARRAY) { /* array wanted */ |
|
936
|
99145 |
82709 |
else if ((PL_op->op_private & OPpTRUEBOOL |
|
937
|
0 |
99145 |
|| ( PL_op->op_private & OPpMAYBE_TRUEBOOL |
|
938
|
0 |
0 |
&& block_gimme() == G_VOID )) |
|
939
|
0 |
82709 |
&& (!SvRMAGICAL(sv) || !mg_find(sv, PERL_MAGIC_tied))) |
|
|
0 |
0 |
&& (!SvRMAGICAL(sv) || !mg_find(sv, PERL_MAGIC_tied))) |
|
940
|
0 |
82709 |
SETs(HvUSEDKEYS(sv) ? &PL_sv_yes : sv_2mortal(newSViv(0))); |
|
|
25994 |
56715 |
SETs(HvUSEDKEYS(sv) ? &PL_sv_yes : sv_2mortal(newSViv(0))); |
|
941
|
56997 |
42148 |
else if (gimme == G_SCALAR) { |
|
945
|
0 |
56997 |
SETTARG; |
|
951
|
0 |
0 |
Perl_croak(aTHX_ "Can't return %s to lvalue scalar context", |
|
963
|
41 |
0 |
if (*oddkey) { |
|
964
|
17 |
24 |
if (ckWARN(WARN_MISC)) { |
|
966
|
12 |
5 |
if (oddkey == firstkey && |
|
|
9 |
3 |
if (oddkey == firstkey && |
|
967
|
2 |
7 |
SvROK(*oddkey) && |
|
1002
|
101143883 |
31182 |
gimme = GIMME_V; |
|
1003
|
47523 |
101127542 |
if (gimme == G_ARRAY) |
|
1004
|
46711 |
812 |
lval = PL_op->op_flags & OPf_MOD || LVRET; |
|
|
1 |
46710 |
lval = PL_op->op_flags & OPf_MOD || LVRET; |
|
|
1 |
0 |
lval = PL_op->op_flags & OPf_MOD || LVRET; |
|
1012
|
11604963 |
89570102 |
if ( (PL_op->op_private & OPpASSIGN_COMMON) |
|
|
0 |
2436854 |
if ( (PL_op->op_private & OPpASSIGN_COMMON) |
|
1013
|
4199436 |
7405527 |
&& ( |
|
1015
|
4199436 |
0 |
|| ! ((sv = *firstlelem)) |
|
1016
|
4183899 |
15537 |
|| SvMAGICAL(sv) |
|
1017
|
4085502 |
98397 |
|| ! (SvTYPE(sv) == SVt_PVAV || SvTYPE(sv) == SVt_PVHV) |
|
1018
|
2436854 |
1648648 |
|| (SvTYPE(sv) == SVt_PVAV && AvFILL((AV*)sv) != -1) |
|
|
0 |
0 |
|| (SvTYPE(sv) == SVt_PVAV && AvFILL((AV*)sv) != -1) |
|
|
2204003 |
232851 |
|| (SvTYPE(sv) == SVt_PVAV && AvFILL((AV*)sv) != -1) |
|
1019
|
1648648 |
2204003 |
|| (SvTYPE(sv) == SVt_PVHV && HvUSEDKEYS((HV*)sv) != 0) |
|
|
0 |
1648648 |
|| (SvTYPE(sv) == SVt_PVHV && HvUSEDKEYS((HV*)sv) != 0) |
|
|
17040 |
1631608 |
|| (SvTYPE(sv) == SVt_PVHV && HvUSEDKEYS((HV*)sv) != 0) |
|
1022
|
2914 |
7766438 |
EXTEND_MORTAL(lastrelem - firstrelem + 1); |
|
1023
|
22175710 |
7769350 |
for (relem = firstrelem; relem <= lastrelem; relem++) { |
|
1024
|
22175710 |
0 |
if ((sv = *relem)) { |
|
1030
|
0 |
22175710 |
if (SvIS_FREED(sv)) { |
|
1048
|
191975896 |
101175011 |
while (lelem <= lastlelem) { |
|
1060
|
56446863 |
9454996 |
while (relem <= lastrelem) { /* gobble up all the rest */ |
|
1062
|
56446863 |
0 |
if (*relem) |
|
|
29309 |
56417554 |
if (*relem) |
|
1068
|
260303 |
56186557 |
if (magic) { |
|
1069
|
566 |
259737 |
if (!didstore) |
|
1071
|
194899 |
65404 |
if (SvSMAGICAL(sv)) |
|
1076
|
182684 |
9272312 |
if (PL_delaymagic & DM_ARRAY_ISA) |
|
1077
|
182684 |
0 |
SvSETMAGIC(MUTABLE_SV(ary)); |
|
1090
|
41 |
2946140 |
odd = ((lastrelem - firsthashrelem)&1)? 0 : 1; |
|
1091
|
41 |
2946140 |
if ( odd ) { |
|
1101
|
710189 |
9639564 |
while (relem < lastrelem+odd) { /* gobble up all the rest */ |
|
|
10349759 |
2946171 |
while (relem < lastrelem+odd) { /* gobble up all the rest */ |
|
1108
|
6 |
10349730 |
sv = lval || SvGMAGICAL(*relem) |
|
1110
|
10349736 |
23 |
: *relem; |
|
1116
|
92 |
10349659 |
if (gimme == G_ARRAY) { |
|
1117
|
29 |
63 |
if (hv_exists_ent(hash, sv, 0)) |
|
1129
|
169364 |
10180387 |
if (magic) { |
|
1130
|
20 |
169344 |
if (!didstore) sv_2mortal(tmpstr); |
|
1131
|
169307 |
57 |
SvSETMAGIC(tmpstr); |
|
1136
|
16 |
2946155 |
if (duplicates && gimme == G_ARRAY) { |
|
1145
|
22 |
16 |
while (relem < lastrelem+odd) { |
|
1148
|
22 |
0 |
*relem++ = (he ? HeVAL(he) : &PL_sv_undef); |
|
1151
|
11 |
2946160 |
if (odd && gimme == G_ARRAY) lastrelem++; |
|
1155
|
330473 |
179244240 |
if (SvIMMORTAL(sv)) { |
|
|
0 |
330473 |
if (SvIMMORTAL(sv)) { |
|
|
0 |
0 |
if (SvIMMORTAL(sv)) { |
|
|
0 |
0 |
if (SvIMMORTAL(sv)) { |
|
|
0 |
0 |
if (SvIMMORTAL(sv)) { |
|
1156
|
326408 |
4065 |
if (relem <= lastrelem) |
|
1160
|
170668498 |
8575742 |
if (relem <= lastrelem) { |
|
1161
|
3 |
170668495 |
if ( |
|
1162
|
2 |
1 |
SvTEMP(sv) && !SvSMAGICAL(sv) && SvREFCNT(sv) == 1 && |
|
1163
|
2 |
0 |
(!isGV_with_GP(sv) || SvFAKE(sv)) && ckWARN(WARN_MISC) |
|
|
0 |
2 |
(!isGV_with_GP(sv) || SvFAKE(sv)) && ckWARN(WARN_MISC) |
|
|
1 |
0 |
(!isGV_with_GP(sv) || SvFAKE(sv)) && ckWARN(WARN_MISC) |
|
1174
|
574193 |
178670047 |
SvSETMAGIC(sv); |
|
1178
|
182646 |
100992365 |
if (PL_delaymagic & ~DM_DELAY) { |
|
1185
|
0 |
182646 |
if (PL_delaymagic & DM_UID) { |
|
1187
|
0 |
0 |
(void)setresuid((PL_delaymagic & DM_RUID) ? PL_delaymagic_uid : (Uid_t)-1, |
|
|
0 |
0 |
(void)setresuid((PL_delaymagic & DM_RUID) ? PL_delaymagic_uid : (Uid_t)-1, |
|
1217
|
0 |
182646 |
if (PL_delaymagic & DM_GID) { |
|
1219
|
0 |
0 |
(void)setresgid((PL_delaymagic & DM_RGID) ? PL_delaymagic_gid : (Gid_t)-1, |
|
|
0 |
0 |
(void)setresgid((PL_delaymagic & DM_RGID) ? PL_delaymagic_gid : (Gid_t)-1, |
|
1249
|
182646 |
0 |
TAINTING_set( TAINTING_get | (tmp_uid && (tmp_euid != tmp_uid || tmp_egid != tmp_gid)) ); |
|
|
182646 |
0 |
TAINTING_set( TAINTING_get | (tmp_uid && (tmp_euid != tmp_uid || tmp_egid != tmp_gid)) ); |
|
1259
|
99301004 |
1874007 |
if (gimme == G_VOID) |
|
1261
|
1826484 |
47523 |
else if (gimme == G_SCALAR) { |
|
1264
|
0 |
1826484 |
SETi(lastrelem - firstrelem + 1); |
|
1267
|
45800 |
1723 |
if (ary || hash) |
|
1274
|
2 |
45800 |
while (relem <= SP) |
|
1275
|
2 |
0 |
*relem++ = (lelem <= lastlelem) ? *lelem++ : &PL_sv_undef; |
|
1283
|
1053066 |
0 |
{ |
|
1287
|
1053066 |
0 |
SV * const pkg = rx ? CALLREG_PACKAGE(rx) : NULL; |
|
1303
|
4405 |
1048661 |
if ((cv = *cvp) && CvCLONE(*cvp)) { |
|
|
3824 |
581 |
if ((cv = *cvp) && CvCLONE(*cvp)) { |
|
1308
|
1053066 |
0 |
if (pkg) { |
|
1314
|
325 |
1052741 |
if (RX_ISTAINTED(rx)) { |
|
1315
|
325 |
0 |
SvTAINTED_on(rv); |
|
1316
|
325 |
0 |
SvTAINTED_on(SvRV(rv)); |
|
1318
|
0 |
1053066 |
XPUSHs(rv); |
|
1335
|
79801568 |
46454 |
const I32 gimme = GIMME; |
|
|
78779865 |
1021703 |
const I32 gimme = GIMME; |
|
1341
|
64653262 |
15194760 |
if (PL_op->op_flags & OPf_STACKED) |
|
1343
|
30 |
15194730 |
else if (PL_op->op_private & OPpTARGET_MY) |
|
|
0 |
15194730 |
else if (PL_op->op_private & OPpTARGET_MY) |
|
1346
|
15194726 |
4 |
TARG = DEFSV; |
|
1354
|
6744299 |
11087 |
? SvPV_nomg_const(TARG, len) |
|
1355
|
6755386 |
73092636 |
: SvPV_const(TARG, len); |
|
|
72792296 |
300340 |
: SvPV_const(TARG, len); |
|
1356
|
0 |
79848021 |
if (!truebase) |
|
1359
|
79839548 |
8473 |
rxtainted = (RX_ISTAINTED(rx) || |
|
|
43605 |
79795943 |
rxtainted = (RX_ISTAINTED(rx) || |
|
1360
|
43605 |
0 |
(TAINT_get && (pm->op_pmflags & PMf_RETAINT))); |
|
1367
|
79848004 |
17 |
if ( |
|
1380
|
73092618 |
6755386 |
if (!ReANY(rx)->mother_re && !RX_PRELEN(rx) |
|
|
331 |
73092287 |
if (!ReANY(rx)->mother_re && !RX_PRELEN(rx) |
|
1381
|
306 |
25 |
&& PL_curpm) { |
|
1386
|
79848004 |
0 |
if (RX_MINLEN(rx) >= 0 && (STRLEN)RX_MINLEN(rx) > len) { |
|
|
70226469 |
9621535 |
if (RX_MINLEN(rx) >= 0 && (STRLEN)RX_MINLEN(rx) > len) { |
|
1394
|
7116240 |
63110229 |
if (global) { |
|
1396
|
6243311 |
872929 |
if (mg && mg->mg_len >= 0) { |
|
|
6236431 |
6880 |
if (mg && mg->mg_len >= 0) { |
|
1399
|
3448 |
6232983 |
if (mg->mg_flags & MGf_MINMATCH) |
|
1417
|
69905342 |
321127 |
if (! (global && gimme == G_ARRAY)) |
|
1429
|
7745756 |
63110229 |
if (global) |
|
1432
|
21042959 |
49800450 |
if (!CALLREGEXEC(rx, (char*)s, (char *)strend, (char*)truebase, |
|
1437
|
17 |
21042942 |
if (dynpm->op_pmflags & PMf_ONCE) |
|
1444
|
65 |
21042894 |
if (rxtainted) |
|
1446
|
58109 |
20984850 |
TAINT_IF(RX_MATCH_TAINTED(rx)); |
|
1450
|
6822047 |
14220912 |
if (global && (gimme != G_ARRAY || (dynpm->op_pmflags & PMf_CONTINUE))) { |
|
|
629516 |
6192531 |
if (global && (gimme != G_ARRAY || (dynpm->op_pmflags & PMf_CONTINUE))) { |
|
|
124 |
629392 |
if (global && (gimme != G_ARRAY || (dynpm->op_pmflags & PMf_CONTINUE))) { |
|
1451
|
553155 |
5639500 |
if (!mg) |
|
1453
|
6192649 |
6 |
MgBYTEPOS_set(mg, TARG, truebase, RX_OFFS(rx)[0].end); |
|
|
0 |
6 |
MgBYTEPOS_set(mg, TARG, truebase, RX_OFFS(rx)[0].end); |
|
|
0 |
0 |
MgBYTEPOS_set(mg, TARG, truebase, RX_OFFS(rx)[0].end); |
|
1454
|
20749 |
6171906 |
if (RX_ZERO_LEN(rx)) |
|
1460
|
8656079 |
12386880 |
if ((!RX_NPARENS(rx) && !global) || gimme != G_ARRAY) { |
|
|
1061823 |
7594256 |
if ((!RX_NPARENS(rx) && !global) || gimme != G_ARRAY) { |
|
|
12209374 |
1239329 |
if ((!RX_NPARENS(rx) && !global) || gimme != G_ARRAY) { |
|
1461
|
774 |
19802856 |
LEAVE_SCOPE(oldsave); |
|
1467
|
1 |
1239328 |
{ |
|
1473
|
0 |
1239329 |
EXTEND_MORTAL(nparens + i); |
|
1474
|
2188384 |
1239329 |
for (i = !i; i <= nparens; i++) { |
|
1476
|
2150652 |
37732 |
if ((RX_OFFS(rx)[i].start != -1) && RX_OFFS(rx)[i].end != -1 ) { |
|
|
2150652 |
0 |
if ((RX_OFFS(rx)[i].start != -1) && RX_OFFS(rx)[i].end != -1 ) { |
|
1479
|
2150652 |
0 |
if (RX_OFFS(rx)[i].end < 0 || RX_OFFS(rx)[i].start < 0 || |
|
|
2150652 |
0 |
if (RX_OFFS(rx)[i].end < 0 || RX_OFFS(rx)[i].start < 0 || |
|
|
2150652 |
0 |
if (RX_OFFS(rx)[i].end < 0 || RX_OFFS(rx)[i].start < 0 || |
|
1480
|
0 |
2150652 |
len < 0 || len > strend - s) |
|
1486
|
6444 |
2144208 |
if (DO_UTF8(TARG) && is_utf8_string((U8*)s, len)) |
|
|
6444 |
0 |
if (DO_UTF8(TARG) && is_utf8_string((U8*)s, len)) |
|
|
6440 |
4 |
if (DO_UTF8(TARG) && is_utf8_string((U8*)s, len)) |
|
1490
|
629516 |
609813 |
if (global) { |
|
1497
|
26 |
609787 |
LEAVE_SCOPE(oldsave); |
|
1503
|
927638 |
58494364 |
if (global && !(dynpm->op_pmflags & PMf_CONTINUE)) { |
|
|
883183 |
44455 |
if (global && !(dynpm->op_pmflags & PMf_CONTINUE)) { |
|
1504
|
323275 |
559908 |
if (!mg) |
|
1506
|
563074 |
320109 |
if (mg) |
|
1509
|
34624 |
59387378 |
LEAVE_SCOPE(oldsave); |
|
1510
|
413258 |
59008744 |
if (gimme == G_ARRAY) |
|
1518
|
4747431 |
98636 |
dVAR; dSP; dTARGETSTACKED; |
|
1523
|
4846067 |
0 |
IO * const io = GvIO(PL_last_in_gv); |
|
|
4846063 |
4 |
IO * const io = GvIO(PL_last_in_gv); |
|
|
4846063 |
0 |
IO * const io = GvIO(PL_last_in_gv); |
|
1525
|
4845608 |
459 |
const I32 gimme = GIMME_V; |
|
1527
|
4846063 |
4 |
if (io) { |
|
1528
|
4207 |
4841856 |
const MAGIC *const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar); |
|
1529
|
4207 |
4841856 |
if (mg) { |
|
1530
|
4178 |
29 |
Perl_tied_method(aTHX_ SV_CONST(READLINE), SP, MUTABLE_SV(io), mg, gimme, 0); |
|
1531
|
4169 |
33 |
if (gimme == G_SCALAR) { |
|
1533
|
4169 |
0 |
SvSetSV_nosteal(TARG, TOPs); |
|
1534
|
0 |
4169 |
SETTARG; |
|
1540
|
4841856 |
4 |
if (io) { |
|
1542
|
359 |
4841497 |
if (!fp) { |
|
1543
|
119 |
240 |
if (IoFLAGS(io) & IOf_ARGV) { |
|
1544
|
119 |
0 |
if (IoFLAGS(io) & IOf_START) { |
|
1546
|
119 |
0 |
if (av_len(GvAVn(PL_last_in_gv)) < 0) { |
|
|
77 |
42 |
if (av_len(GvAVn(PL_last_in_gv)) < 0) { |
|
1549
|
0 |
77 |
SvTAINTED_off(GvSVn(PL_last_in_gv)); /* previous tainting irrelevant */ |
|
|
0 |
0 |
SvTAINTED_off(GvSVn(PL_last_in_gv)); /* previous tainting irrelevant */ |
|
1550
|
0 |
77 |
sv_setpvs(GvSVn(PL_last_in_gv), "-"); |
|
1551
|
0 |
77 |
SvSETMAGIC(GvSV(PL_last_in_gv)); |
|
1557
|
3 |
39 |
if (!fp) { /* Note: fp != IoIFP(io) */ |
|
1561
|
219 |
21 |
else if (type == OP_GLOB) |
|
1564
|
0 |
4841497 |
else if (type == OP_GLOB) |
|
1566
|
6 |
4841491 |
else if (IoTYPE(io) == IoTYPE_WRONLY) { |
|
1570
|
28 |
4841755 |
if (!fp) { |
|
1571
|
24 |
4 |
if ((!io || !(IoFLAGS(io) & IOf_START)) |
|
|
21 |
3 |
if ((!io || !(IoFLAGS(io) & IOf_START)) |
|
1572
|
10 |
15 |
&& ckWARN2(WARN_GLOB, WARN_CLOSED)) |
|
1574
|
0 |
10 |
if (type == OP_GLOB) |
|
1581
|
23 |
5 |
if (gimme == G_SCALAR) { |
|
1583
|
20 |
3 |
if (type != OP_RCATLINE) { |
|
1584
|
5 |
15 |
SV_CHECK_THINKFIRST_COW_DROP(TARG); |
|
1585
|
0 |
18 |
SvOK_off(TARG); |
|
1587
|
1 |
20 |
PUSHTARG; |
|
1592
|
4839700 |
2132 |
if (gimme == G_SCALAR) { |
|
|
8493 |
4831207 |
if (gimme == G_SCALAR) { |
|
1594
|
1747 |
4837953 |
if (type == OP_RCATLINE && SvGMAGICAL(sv)) |
|
|
2 |
1745 |
if (type == OP_RCATLINE && SvGMAGICAL(sv)) |
|
1596
|
7 |
4839693 |
if (SvROK(sv)) { |
|
1597
|
2 |
5 |
if (type == OP_RCATLINE) |
|
1598
|
2 |
0 |
SvPV_force_nomg_nolen(sv); |
|
1602
|
2 |
4839691 |
else if (isGV_with_GP(sv)) { |
|
|
2 |
0 |
else if (isGV_with_GP(sv)) { |
|
1603
|
2 |
0 |
SvPV_force_nomg_nolen(sv); |
|
1607
|
464299 |
4375401 |
if (!tmplen && !SvREADONLY(sv) && !SvIsCOW(sv)) { |
|
|
464295 |
4 |
if (!tmplen && !SvREADONLY(sv) && !SvIsCOW(sv)) { |
|
1614
|
1747 |
4837953 |
if (type == OP_RCATLINE && SvOK(sv)) { |
|
|
74 |
1673 |
if (type == OP_RCATLINE && SvOK(sv)) { |
|
|
74 |
0 |
if (type == OP_RCATLINE && SvOK(sv)) { |
|
|
0 |
74 |
if (type == OP_RCATLINE && SvOK(sv)) { |
|
1615
|
2 |
1671 |
if (!SvPOK(sv)) { |
|
1616
|
2 |
0 |
SvPV_force_nomg_nolen(sv); |
|
1640
|
12427 |
4912370 |
if (!sv_gets(sv, fp, offset) |
|
1641
|
12211 |
216 |
&& (type == OP_GLOB |
|
1642
|
10335 |
1876 |
|| SNARF_EOF(gimme, PL_rs, io, sv) |
|
|
10333 |
2 |
|| SNARF_EOF(gimme, PL_rs, io, sv) |
|
|
366 |
9967 |
|| SNARF_EOF(gimme, PL_rs, io, sv) |
|
|
214 |
152 |
|| SNARF_EOF(gimme, PL_rs, io, sv) |
|
|
214 |
0 |
|| SNARF_EOF(gimme, PL_rs, io, sv) |
|
|
214 |
0 |
|| SNARF_EOF(gimme, PL_rs, io, sv) |
|
1643
|
2 |
212 |
|| PerlIO_error(fp))) |
|
1646
|
290 |
11925 |
if (IoFLAGS(io) & IOf_ARGV) { |
|
1648
|
192 |
98 |
if (fp) |
|
1652
|
216 |
11709 |
else if (type == OP_GLOB) { |
|
1653
|
0 |
216 |
if (!do_close(PL_last_in_gv, FALSE)) { |
|
1654
|
0 |
0 |
Perl_ck_warner(aTHX_ packWARN(WARN_GLOB), |
|
1660
|
9944 |
2079 |
if (gimme == G_SCALAR) { |
|
1661
|
9942 |
2 |
if (type != OP_RCATLINE) { |
|
1662
|
0 |
9942 |
SV_CHECK_THINKFIRST_COW_DROP(TARG); |
|
1663
|
4 |
9938 |
SvOK_off(TARG); |
|
1666
|
1030 |
8914 |
PUSHTARG; |
|
1668
|
11853 |
170 |
MAYBE_TAINT_LINE(io, sv); |
|
|
0 |
11853 |
MAYBE_TAINT_LINE(io, sv); |
|
1671
|
4677295 |
235287 |
MAYBE_TAINT_LINE(io, sv); |
|
|
3 |
4677292 |
MAYBE_TAINT_LINE(io, sv); |
|
1674
|
544179 |
4368403 |
SvSETMAGIC(sv); |
|
1676
|
85 |
4912497 |
XPUSHs(sv); |
|
1677
|
221 |
4912361 |
if (type == OP_GLOB) { |
|
1680
|
221 |
0 |
if (SvCUR(sv) > 0 && SvCUR(PL_rs) > 0) { |
|
|
221 |
0 |
if (SvCUR(sv) > 0 && SvCUR(PL_rs) > 0) { |
|
1682
|
221 |
0 |
if (*tmps == *SvPVX_const(PL_rs)) { |
|
1687
|
1833 |
13 |
for (t1 = SvPVX_const(sv); *t1; t1++) |
|
1688
|
331 |
1502 |
if (!isALPHANUMERIC(*t1) && |
|
|
123 |
208 |
if (!isALPHANUMERIC(*t1) && |
|
1695
|
10899 |
4901462 |
} else if (SvUTF8(sv)) { /* OP_READLINE, OP_RCATLINE */ |
|
1696
|
1088 |
9811 |
if (ckWARN(WARN_UTF8)) { |
|
1701
|
3 |
1085 |
if (!is_utf8_string_loc(s, len, &f)) |
|
1703
|
3 |
0 |
Perl_warner(aTHX_ packWARN(WARN_UTF8), |
|
1708
|
82568 |
4829806 |
if (gimme == G_ARRAY) { |
|
1709
|
72708 |
9860 |
if (SvLEN(sv) - SvCUR(sv) > 20) { |
|
1715
|
463184 |
4366622 |
else if (gimme == G_SCALAR && !tmplen && SvLEN(sv) - SvCUR(sv) > 80) { |
|
|
63743 |
399441 |
else if (gimme == G_SCALAR && !tmplen && SvLEN(sv) - SvCUR(sv) > 80) { |
|
1718
|
16336 |
47407 |
= SvCUR(sv) < 60 ? 80 : SvCUR(sv)+40; /* allow some slop */ |
|
1732
|
113918169 |
128772688 |
const U32 lval = PL_op->op_flags & OPf_MOD || LVRET; |
|
|
292 |
113917877 |
const U32 lval = PL_op->op_flags & OPf_MOD || LVRET; |
|
|
179 |
113 |
const U32 lval = PL_op->op_flags & OPf_MOD || LVRET; |
|
1738
|
0 |
242690857 |
if (SvTYPE(hv) != SVt_PVHV) |
|
1741
|
1864542 |
240826315 |
if (localizing) { |
|
1749
|
1495483 |
369059 |
if (SvCANEXISTDELETE(hv)) |
|
|
6 |
1495477 |
if (SvCANEXISTDELETE(hv)) |
|
|
6 |
0 |
if (SvCANEXISTDELETE(hv)) |
|
|
6 |
0 |
if (SvCANEXISTDELETE(hv)) |
|
|
6 |
0 |
if (SvCANEXISTDELETE(hv)) |
|
|
6 |
0 |
if (SvCANEXISTDELETE(hv)) |
|
1753
|
123276056 |
119414801 |
he = hv_fetch_ent(hv, keysv, lval && !defer, 0); |
|
1754
|
216019833 |
26670903 |
svp = he ? &HeVAL(he) : NULL; |
|
1755
|
128772746 |
113917990 |
if (lval) { |
|
1756
|
128733385 |
39361 |
if (!svp || !*svp || *svp == &PL_sv_undef) { |
|
|
128733385 |
0 |
if (!svp || !*svp || *svp == &PL_sv_undef) { |
|
|
0 |
128733385 |
if (!svp || !*svp || *svp == &PL_sv_undef) { |
|
1759
|
0 |
39361 |
if (!defer) { |
|
1772
|
1864542 |
126868843 |
if (localizing) { |
|
1773
|
1323 |
1863219 |
if (HvNAME_get(hv) && isGV(*svp)) |
|
|
45 |
1278 |
if (HvNAME_get(hv) && isGV(*svp)) |
|
|
0 |
45 |
if (HvNAME_get(hv) && isGV(*svp)) |
|
|
0 |
0 |
if (HvNAME_get(hv) && isGV(*svp)) |
|
|
45 |
0 |
if (HvNAME_get(hv) && isGV(*svp)) |
|
|
0 |
45 |
if (HvNAME_get(hv) && isGV(*svp)) |
|
|
45 |
0 |
if (HvNAME_get(hv) && isGV(*svp)) |
|
|
5 |
40 |
if (HvNAME_get(hv) && isGV(*svp)) |
|
1775
|
302647 |
1561890 |
else if (preeminent) |
|
1781
|
48762128 |
78106715 |
else if (PL_op->op_private & OPpDEREF) { |
|
1786
|
167257705 |
26631542 |
sv = (svp && *svp ? *svp : &PL_sv_undef); |
|
|
167257705 |
0 |
sv = (svp && *svp ? *svp : &PL_sv_undef); |
|
1799
|
113917990 |
79971257 |
if (!lval && SvRMAGICAL(hv) && SvGMAGICAL(sv)) |
|
|
4604118 |
109313872 |
if (!lval && SvRMAGICAL(hv) && SvGMAGICAL(sv)) |
|
|
214822 |
4389296 |
if (!lval && SvRMAGICAL(hv) && SvGMAGICAL(sv)) |
|
1806
|
0 |
76112324 |
{ |
|
1814
|
76112324 |
0 |
itersvp = CxITERVAR(cx); |
|
|
46063999 |
30048325 |
itersvp = CxITERVAR(cx); |
|
1825
|
414 |
4 |
const char *max = SvPV_const(end, maxlen); |
|
1826
|
395 |
23 |
if (SvNIOK(cur) || SvCUR(cur) > maxlen) |
|
|
5 |
390 |
if (SvNIOK(cur) || SvCUR(cur) > maxlen) |
|
1830
|
387 |
3 |
if (SvREFCNT(oldsv) == 1 && !SvMAGICAL(oldsv)) { |
|
1842
|
19 |
371 |
if (strEQ(SvPVX_const(cur), max)) |
|
1852
|
302020 |
10613419 |
if (cur > cx->blk_loop.state_u.lazyiv.end) |
|
1857
|
10444918 |
168501 |
if (SvREFCNT(oldsv) == 1 && !SvMAGICAL(oldsv)) { |
|
1870
|
5 |
10613414 |
if (cur == IV_MAX) { |
|
1886
|
45793370 |
19403097 |
if (!av) { |
|
1890
|
34152 |
65162315 |
if (PL_op->op_private & OPpITER_REVERSED) { |
|
1892
|
4936 |
29216 |
if (ix <= (av_is_stack ? cx->blk_loop.resetsp : -1)) |
|
|
7392 |
26760 |
if (ix <= (av_is_stack ? cx->blk_loop.resetsp : -1)) |
|
1897
|
45788434 |
19373881 |
if (ix > (av_is_stack ? cx->blk_oldsp : AvFILL(av))) |
|
|
617 |
19373264 |
if (ix > (av_is_stack ? cx->blk_oldsp : AvFILL(av))) |
|
|
14580667 |
50581648 |
if (ix > (av_is_stack ? cx->blk_oldsp : AvFILL(av))) |
|
1901
|
50607832 |
576 |
if (SvMAGICAL(av) || AvREIFY(av)) { |
|
|
2379314 |
48228518 |
if (SvMAGICAL(av) || AvREIFY(av)) { |
|
1903
|
2379881 |
9 |
sv = svp ? *svp : NULL; |
|
1909
|
50595098 |
13310 |
if (sv) { |
|
1910
|
1 |
50595097 |
if (SvIS_FREED(sv)) { |
|
1914
|
33074 |
50562023 |
if (SvPADTMP(sv) && !IS_PADGV(sv)) |
|
1921
|
13310 |
0 |
else if (!av_is_stack) { |
|
2017
|
2504 |
52267853 |
{ |
|
2043
|
46538071 |
5732286 |
SV *dstr = (pm->op_pmflags & PMf_CONST) ? POPs : NULL; |
|
2045
|
0 |
52270357 |
PERL_ASYNC_CHECK(); |
|
2047
|
45375059 |
6895298 |
if (PL_op->op_flags & OPf_STACKED) |
|
2049
|
8 |
6895290 |
else if (PL_op->op_private & OPpTARGET_MY) |
|
|
0 |
6895290 |
else if (PL_op->op_private & OPpTARGET_MY) |
|
2052
|
6895289 |
1 |
TARG = DEFSV; |
|
2065
|
51813462 |
456895 |
if (!(rpm->op_pmflags & PMf_NONDESTRUCT) |
|
2066
|
51813459 |
3 |
&& (SvREADONLY(TARG) |
|
2067
|
17 |
51813442 |
|| ( ((SvTYPE(TARG) == SVt_PVGV && isGV_with_GP(TARG)) |
|
|
17 |
0 |
|| ( ((SvTYPE(TARG) == SVt_PVGV && isGV_with_GP(TARG)) |
|
|
0 |
17 |
|| ( ((SvTYPE(TARG) == SVt_PVGV && isGV_with_GP(TARG)) |
|
2068
|
0 |
51813442 |
|| SvTYPE(TARG) > SVt_PVLV) |
|
2069
|
0 |
17 |
&& !(SvTYPE(TARG) == SVt_PVGV && SvFAKE(TARG))))) |
|
2073
|
52141211 |
129143 |
orig = SvPV_nomg(TARG, len); |
|
2077
|
52265497 |
4857 |
if (!SvPOKp(TARG) || SvTYPE(TARG) == SVt_PVGV || SvVOK(TARG)) |
|
|
52265497 |
0 |
if (!SvPOKp(TARG) || SvTYPE(TARG) == SVt_PVGV || SvVOK(TARG)) |
|
|
3454456 |
48811041 |
if (!SvPOKp(TARG) || SvTYPE(TARG) == SVt_PVGV || SvVOK(TARG)) |
|
|
1 |
3454455 |
if (!SvPOKp(TARG) || SvTYPE(TARG) == SVt_PVGV || SvVOK(TARG)) |
|
2084
|
198046 |
52072308 |
if (TAINTING_get) { |
|
2085
|
74 |
197972 |
rxtainted = ( |
|
|
198046 |
0 |
rxtainted = ( |
|
|
198046 |
0 |
rxtainted = ( |
|
|
196764 |
1282 |
rxtainted = ( |
|
2086
|
0 |
74 |
(SvTAINTED(TARG) ? SUBST_TAINT_STR : 0) |
|
2089
|
0 |
196764 |
| ((once && !(rpm->op_pmflags & PMf_NONDESTRUCT)) |
|
2095
|
0 |
52270946 |
if (!pm || !orig) |
|
2099
|
250302 |
52020644 |
slen = DO_UTF8(TARG) ? utf8_length((U8*)orig, (U8*)strend) : len; |
|
|
250298 |
4 |
slen = DO_UTF8(TARG) ? utf8_length((U8*)orig, (U8*)strend) : len; |
|
2104
|
32 |
52270914 |
if (!RX_PRELEN(rx) && PL_curpm |
|
|
30 |
2 |
if (!RX_PRELEN(rx) && PL_curpm |
|
2105
|
29 |
1 |
&& !ReANY(rx)->mother_re) { |
|
2122
|
24522880 |
27748064 |
if (!CALLREGEXEC(rx, orig, strend, orig, 0, TARG, NULL, r_flags)) |
|
2125
|
270693 |
24252187 |
PUSHs(rpm->op_pmflags & PMf_NONDESTRUCT ? TARG : &PL_sv_no); |
|
2126
|
917 |
24521963 |
LEAVE_SCOPE(oldsave); |
|
2132
|
27091101 |
656963 |
if (dstr) { |
|
2134
|
44149 |
27046952 |
if (DO_UTF8(TARG) && !doutf8) { |
|
|
44147 |
2 |
if (DO_UTF8(TARG) && !doutf8) { |
|
|
44144 |
3 |
if (DO_UTF8(TARG) && !doutf8) { |
|
2136
|
44144 |
0 |
SvSetSV(nsv, dstr); |
|
2137
|
1179 |
42965 |
if (PL_encoding) |
|
2141
|
44144 |
0 |
c = SvPV_const(nsv, clen); |
|
2145
|
26914368 |
132589 |
c = SvPV_const(dstr, clen); |
|
2146
|
34 |
27046923 |
doutf8 = DO_UTF8(dstr); |
|
|
0 |
34 |
doutf8 = DO_UTF8(dstr); |
|
2149
|
132599 |
26958502 |
if (SvTAINTED(dstr)) |
|
|
0 |
132599 |
if (SvTAINTED(dstr)) |
|
2158
|
27091101 |
656963 |
if (c |
|
2160
|
2004322 |
25086779 |
&& !is_cow |
|
2162
|
1883333 |
120989 |
&& (I32)clen <= RX_MINLENRET(rx) |
|
2163
|
492669 |
1390664 |
&& ( once |
|
2165
|
490521 |
2148 |
|| (!SvGMAGICAL(dstr) && !(RX_EXTFLAGS(rx) & RXf_EVAL_SEEN)) |
|
|
490515 |
6 |
|| (!SvGMAGICAL(dstr) && !(RX_EXTFLAGS(rx) & RXf_EVAL_SEEN)) |
|
2167
|
1849214 |
31965 |
&& !(RX_EXTFLAGS(rx) & RXf_NO_INPLACE_SUBST) |
|
2168
|
31375 |
1817839 |
&& (!doutf8 || SvUTF8(TARG)) |
|
|
31357 |
18 |
&& (!doutf8 || SvUTF8(TARG)) |
|
2169
|
1749155 |
100041 |
&& !(rpm->op_pmflags & PMf_NONDESTRUCT)) |
|
2173
|
1613389 |
135766 |
if (SvIsCOW(TARG)) { |
|
2174
|
0 |
1613389 |
if (!force_on_match) |
|
2179
|
473 |
135293 |
if (force_on_match) { |
|
2183
|
0 |
473 |
orig = SvPV_force_nomg(TARG, len); |
|
2187
|
127948 |
7345 |
if (once) { |
|
2189
|
0 |
127948 |
if (RX_MATCH_TAINTED(rx)) /* run time pattern taint, eg locale */ |
|
2194
|
12457 |
115491 |
if (m - s > strend - d) { /* faster to shorten from end */ |
|
2196
|
14 |
12443 |
if (clen) { |
|
2201
|
467 |
11990 |
if (i > 0) { |
|
2211
|
17 |
115474 |
if (i > 0) |
|
2214
|
74 |
115417 |
if (clen) |
|
2225
|
0 |
17340 |
if (iters++ > maxiters) |
|
2227
|
0 |
17340 |
if (RX_MATCH_TAINTED(rx)) /* run time pattern taint, eg locale */ |
|
2230
|
8345 |
8995 |
if ((i = m - s)) { |
|
2231
|
4904 |
3441 |
if (s != d) |
|
2235
|
10232 |
7108 |
if (clen) { |
|
2240
|
9995 |
7345 |
} while (CALLREGEXEC(rx, s, strend, orig, |
|
2244
|
2108 |
5237 |
if (s != d) { |
|
2257
|
119 |
25998790 |
if (force_on_match) { |
|
2261
|
8 |
111 |
if (rpm->op_pmflags & PMf_NONDESTRUCT) { |
|
2269
|
0 |
119 |
orig = SvPV_force_nomg(TARG, len); |
|
2275
|
39 |
27612140 |
if (RX_MATCH_TAINTED(rx)) /* run time pattern taint, eg locale */ |
|
2279
|
34302 |
27577877 |
dstr = newSVpvn_flags(orig, s-orig, |
|
|
4 |
34298 |
dstr = newSVpvn_flags(orig, s-orig, |
|
2281
|
656893 |
26955286 |
if (!c) { |
|
2290
|
656884 |
9 |
PUSHSUBST(cx); |
|
|
515971 |
140922 |
PUSHSUBST(cx); |
|
2295
|
0 |
28252012 |
if (iters++ > maxiters) |
|
2297
|
40 |
28251972 |
if (RX_MATCH_TAINTED(rx)) |
|
2299
|
9275 |
28242737 |
if (RX_MATCH_COPIED(rx) && RX_SUBBEG(rx) != orig) { |
|
|
3506 |
5769 |
if (RX_MATCH_COPIED(rx) && RX_SUBBEG(rx) != orig) { |
|
2309
|
33485 |
28218527 |
sv_catpvn_nomg_maybeutf8(dstr, s, m - s, DO_UTF8(TARG)); |
|
|
2 |
33483 |
sv_catpvn_nomg_maybeutf8(dstr, s, m - s, DO_UTF8(TARG)); |
|
2311
|
26955286 |
1296726 |
if (first) { |
|
2313
|
435936 |
26519350 |
if (clen) |
|
2314
|
434106 |
1830 |
sv_catpvn_nomg_maybeutf8(dstr, c, clen, doutf8); |
|
2318
|
1575 |
1295151 |
if (PL_encoding) { |
|
2319
|
584 |
991 |
if (!nsv) nsv = sv_newmortal(); |
|
2321
|
0 |
1575 |
if (!DO_UTF8(nsv)) sv_recode_to_utf8(nsv, PL_encoding); |
|
|
0 |
0 |
if (!DO_UTF8(nsv)) sv_recode_to_utf8(nsv, PL_encoding); |
|
2325
|
3937 |
1292789 |
if (SvTAINTED(repl)) |
|
|
0 |
3937 |
if (SvTAINTED(repl)) |
|
2328
|
2149055 |
26102957 |
if (once) |
|
2330
|
1296726 |
852329 |
} while (CALLREGEXEC(rx, s, strend, orig, s == m, |
|
2333
|
30032 |
26925254 |
sv_catpvn_nomg_maybeutf8(dstr, s, strend - s, DO_UTF8(TARG)); |
|
|
2 |
30030 |
sv_catpvn_nomg_maybeutf8(dstr, s, strend - s, DO_UTF8(TARG)); |
|
2335
|
185250 |
26770036 |
if (rpm->op_pmflags & PMf_NONDESTRUCT) { |
|
2348
|
26767808 |
2228 |
if (SvIsCOW(TARG)) { |
|
2353
|
2228 |
0 |
SvPV_free(TARG); |
|
|
32 |
2196 |
SvPV_free(TARG); |
|
|
32 |
0 |
SvPV_free(TARG); |
|
|
0 |
32 |
SvPV_free(TARG); |
|
2366
|
26905329 |
185250 |
if (!(rpm->op_pmflags & PMf_NONDESTRUCT)) { |
|
2371
|
1818 |
27088761 |
if (TAINTING_get) { |
|
2372
|
1818 |
0 |
if ((rxtainted & SUBST_TAINT_PAT) || |
|
|
0 |
1818 |
if ((rxtainted & SUBST_TAINT_PAT) || |
|
2378
|
264 |
1554 |
if (!(rxtainted & SUBST_TAINT_BOOLRET) |
|
2379
|
0 |
264 |
&& (rxtainted & (SUBST_TAINT_STR|SUBST_TAINT_PAT)) |
|
2381
|
0 |
0 |
SvTAINTED_on(TOPs); /* taint return value */ |
|
2383
|
1818 |
0 |
SvTAINTED_off(TOPs); /* may have got tainted earlier */ |
|
2389
|
1818 |
0 |
SvTAINT(TARG); |
|
|
60 |
1758 |
SvTAINT(TARG); |
|
|
60 |
0 |
SvTAINT(TARG); |
|
2391
|
446976 |
26643603 |
SvSETMAGIC(TARG); /* PL_tainted must be correctly set for this mg_set */ |
|
2393
|
78 |
27090501 |
LEAVE_SCOPE(oldsave); |
|
2401
|
85375173 |
0 |
if (SvTRUEx(POPs)) |
|
|
0 |
85375173 |
if (SvTRUEx(POPs)) |
|
|
0 |
0 |
if (SvTRUEx(POPs)) |
|
|
731488 |
84643685 |
if (SvTRUEx(POPs)) |
|
|
731488 |
0 |
if (SvTRUEx(POPs)) |
|
|
0 |
731488 |
if (SvTRUEx(POPs)) |
|
|
83333483 |
1310202 |
if (SvTRUEx(POPs)) |
|
|
83333483 |
0 |
if (SvTRUEx(POPs)) |
|
|
83332167 |
1316 |
if (SvTRUEx(POPs)) |
|
|
2806276 |
80525891 |
if (SvTRUEx(POPs)) |
|
|
1 |
2806275 |
if (SvTRUEx(POPs)) |
|
|
2807591 |
80525892 |
if (SvTRUEx(POPs)) |
|
|
1310126 |
76 |
if (SvTRUEx(POPs)) |
|
|
1310126 |
0 |
if (SvTRUEx(POPs)) |
|
|
463895 |
846231 |
if (SvTRUEx(POPs)) |
|
|
0 |
463895 |
if (SvTRUEx(POPs)) |
|
|
0 |
0 |
if (SvTRUEx(POPs)) |
|
|
846231 |
463895 |
if (SvTRUEx(POPs)) |
|
|
76 |
0 |
if (SvTRUEx(POPs)) |
|
|
3653898 |
81721275 |
if (SvTRUEx(POPs)) |
|
2404
|
890580 |
84484593 |
FREETMPS; |
|
2408
|
6775556 |
78599617 |
if (PL_stack_base + *PL_markstack_ptr > SP) { |
|
2410
|
6728160 |
47396 |
const I32 gimme = GIMME_V; |
|
2417
|
330370 |
6445186 |
if (gimme == G_SCALAR) { |
|
2418
|
1 |
330369 |
if (PL_op->op_private & OPpGREP_LEX) { |
|
2425
|
0 |
330369 |
XPUSHi(items); |
|
|
0 |
330369 |
XPUSHi(items); |
|
2428
|
6445172 |
14 |
else if (gimme == G_ARRAY) |
|
2439
|
7 |
78599610 |
if (SvPADTMP(src) && !IS_PADGV(src)) { |
|
2444
|
3 |
78599614 |
if (PL_op->op_private & OPpGREP_LEX) |
|
2463
|
67644609 |
17446 |
if (CxMULTICALL(&cxstack[cxstack_ix])) |
|
2470
|
33736658 |
33907951 |
if (gimme == G_SCALAR) { |
|
2472
|
33702774 |
33884 |
if (MARK <= SP) { |
|
2473
|
33702774 |
0 |
if (cx->blk_sub.cv && CvDEPTH(cx->blk_sub.cv) > 1) { |
|
|
8252351 |
25450423 |
if (cx->blk_sub.cv && CvDEPTH(cx->blk_sub.cv) > 1) { |
|
2474
|
139529 |
8112822 |
if (SvTEMP(TOPs) && SvREFCNT(TOPs) == 1 |
|
2477
|
139529 |
0 |
FREETMPS; |
|
2482
|
4741975 |
3370847 |
FREETMPS; |
|
2487
|
5811067 |
19639356 |
else if (SvTEMP(TOPs) && SvREFCNT(TOPs) == 1 |
|
2495
|
0 |
33884 |
MEXTEND(MARK, 0); |
|
2500
|
4315561 |
29592390 |
else if (gimme == G_ARRAY) { |
|
2501
|
7857608 |
4315561 |
for (MARK = newsp + 1; MARK <= SP; MARK++) { |
|
2502
|
6909167 |
948441 |
if (!SvTEMP(*MARK) || SvREFCNT(*MARK) != 1 |
|
2512
|
66318763 |
1325846 |
POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */ |
|
|
62704 |
66256059 |
POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */ |
|
|
0 |
67644609 |
POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */ |
|
|
67644609 |
0 |
POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */ |
|
|
12159308 |
55485301 |
POPSUB(cx,sv); /* Stack values are safe: release CV and @_ ... */ |
|
2529
|
0 |
460791705 |
if (!sv) |
|
2531
|
6 |
9567349 |
switch (SvTYPE(sv)) { |
|
2535
|
122625977 |
1 |
if (!(cv = GvCVu((const GV *)sv))) { |
|
|
713 |
122625265 |
if (!(cv = GvCVu((const GV *)sv))) { |
|
2539
|
713 |
122625265 |
if (!cv) { |
|
2546
|
6 |
31 |
if(isGV_with_GP(sv)) goto we_have_a_glob; |
|
|
6 |
0 |
if(isGV_with_GP(sv)) goto we_have_a_glob; |
|
2549
|
1254280 |
9567355 |
if (sv == &PL_sv_yes) { /* unfound import, ignore */ |
|
2550
|
1254280 |
0 |
if (hasargs) |
|
2557
|
9523180 |
44175 |
if (SvROK(sv)) { |
|
2558
|
9523180 |
0 |
if (SvAMAGIC(sv)) { |
|
|
130 |
9523050 |
if (SvAMAGIC(sv)) { |
|
|
46 |
84 |
if (SvAMAGIC(sv)) { |
|
2566
|
5 |
44170 |
if (!SvOK(sv)) |
|
|
5 |
0 |
if (!SvOK(sv)) |
|
|
5 |
0 |
if (!SvOK(sv)) |
|
2568
|
44168 |
2 |
sym = SvPV_nomg_const(sv, len); |
|
2569
|
3 |
44167 |
if (PL_op->op_private & HINT_STRICT_REFS) |
|
2570
|
3 |
0 |
DIE(aTHX_ "Can't use string (\"%" SVf32 "\"%s) as a subroutine ref while \"strict refs\" in use", sv, len>32 ? "..." : ""); |
|
2575
|
3 |
9523177 |
if (SvTYPE(cv) == SVt_PVCV) |
|
2590
|
0 |
460168067 |
if (CvCLONE(cv) && ! CvCLONED(cv)) |
|
|
0 |
0 |
if (CvCLONE(cv) && ! CvCLONED(cv)) |
|
2592
|
630699 |
459537368 |
if (!CvROOT(cv) && !CvXSUB(cv)) { |
|
|
630699 |
0 |
if (!CvROOT(cv) && !CvXSUB(cv)) { |
|
2597
|
630698 |
1 |
if (CvANON(cv) || !(gv = CvGV(cv))) { |
|
|
13 |
630685 |
if (CvANON(cv) || !(gv = CvGV(cv))) { |
|
2598
|
13 |
1 |
if (CvNAMED(cv)) |
|
2605
|
626302 |
4383 |
if (cv != GvCV(gv)) { |
|
2611
|
5093 |
3 |
if ((autogv = gv_autoload_pvn(GvSTASH(gv), GvNAME(gv), GvNAMELEN(gv), |
|
|
5066 |
30 |
if ((autogv = gv_autoload_pvn(GvSTASH(gv), GvNAME(gv), GvNAMELEN(gv), |
|
2623
|
631366 |
2 |
if (!cv) |
|
2628
|
437691039 |
21846329 |
gimme = GIMME_V; |
|
2629
|
21434 |
459515934 |
if ((PL_op->op_private & OPpENTERSUB_DB) && GvCV(PL_DBsub) && !CvNODEBUG(cv)) { |
|
|
16416 |
5018 |
if ((PL_op->op_private & OPpENTERSUB_DB) && GvCV(PL_DBsub) && !CvNODEBUG(cv)) { |
|
|
16416 |
0 |
if ((PL_op->op_private & OPpENTERSUB_DB) && GvCV(PL_DBsub) && !CvNODEBUG(cv)) { |
|
2631
|
856 |
15560 |
if (CvISXSUB(cv)) |
|
2633
|
3 |
16413 |
if (CvLVALUE(cv)) { |
|
2637
|
0 |
3 |
if (!cv) cv = GvCV(PL_DBsub); |
|
2642
|
16416 |
0 |
if (!cv || (!CvXSUB(cv) && !CvSTART(cv))) |
|
|
0 |
16416 |
if (!cv || (!CvXSUB(cv) && !CvSTART(cv))) |
|
|
0 |
0 |
if (!cv || (!CvXSUB(cv) && !CvSTART(cv))) |
|
2646
|
189102131 |
270435237 |
if (!(CvISXSUB(cv))) { |
|
2651
|
189101332 |
799 |
PUSHBLOCK(cx, CXt_SUB, MARK); |
|
2652
|
19264119 |
169838012 |
PUSHSUB(cx); |
|
|
16 |
19264103 |
PUSHSUB(cx); |
|
|
2502891 |
186599240 |
PUSHSUB(cx); |
|
|
166547987 |
22554144 |
PUSHSUB(cx); |
|
2655
|
22554144 |
166547987 |
if (CvDEPTH(cv) >= 2) { |
|
2661
|
186599240 |
2502891 |
if (hasargs) { |
|
2663
|
0 |
186599240 |
if (AvREAL(av)) { |
|
2676
|
1654954 |
184944286 |
if (items - 1 > AvMAX(av)) { |
|
2679
|
0 |
1654954 |
Renew(ary, items, SV*); |
|
2684
|
0 |
186599240 |
Copy(MARK,AvARRAY(av),items,SV*); |
|
2688
|
296205728 |
186599240 |
while (items--) { |
|
2689
|
296205728 |
0 |
if (*MARK) |
|
2691
|
14292285 |
281913443 |
if (SvPADTMP(*MARK) && !IS_PADGV(*MARK)) |
|
2699
|
297 |
189101834 |
if ((cx->blk_u16 & OPpENTERSUB_LVAL_MASK) == OPpLVAL_INTRO && |
|
|
5 |
292 |
if ((cx->blk_u16 & OPpENTERSUB_LVAL_MASK) == OPpLVAL_INTRO && |
|
2706
|
37 |
189102089 |
if (CvDEPTH(cv) == PERL_SUB_DEPTH_WARN && ckWARN(WARN_RECURSION) |
|
|
5 |
32 |
if (CvDEPTH(cv) == PERL_SUB_DEPTH_WARN && ckWARN(WARN_RECURSION) |
|
2707
|
1 |
4 |
&& !(PERLDB_SUB && cv == GvCV(PL_DBsub))) |
|
|
0 |
1 |
&& !(PERLDB_SUB && cv == GvCV(PL_DBsub))) |
|
|
0 |
0 |
&& !(PERLDB_SUB && cv == GvCV(PL_DBsub))) |
|
2717
|
6 |
270435231 |
if (((PL_op->op_private |
|
2718
|
2582210 |
267853027 |
& PUSHSUB_GET_LVALUE_MASK(Perl_is_lvalue_sub) |
|
|
1 |
2582209 |
& PUSHSUB_GET_LVALUE_MASK(Perl_is_lvalue_sub) |
|
2719
|
1 |
5 |
) & OPpENTERSUB_LVAL_MASK) == OPpLVAL_INTRO && |
|
2723
|
41276 |
270393960 |
if (!hasargs) { |
|
2730
|
38406 |
2870 |
if (items) { |
|
|
0 |
38406 |
if (items) { |
|
2733
|
0 |
38406 |
Copy(AvARRAY(av), SP + 1, items, SV*); |
|
2741
|
313926255 |
270393960 |
while (items--) { |
|
2743
|
313926255 |
0 |
if (*mark && SvPADTMP(*mark) && !IS_PADGV(*mark)) |
|
|
91036 |
313835219 |
if (*mark && SvPADTMP(*mark) && !IS_PADGV(*mark)) |
|
2748
|
856 |
270434380 |
if (PL_curcopdb) { |
|
2760
|
250132632 |
20300378 |
if (gimme == G_SCALAR && ++markix != PL_stack_sp - PL_stack_base ) { |
|
|
17531411 |
232601221 |
if (gimme == G_SCALAR && ++markix != PL_stack_sp - PL_stack_base ) { |
|
2761
|
23 |
17531388 |
if (markix > PL_stack_sp - PL_stack_base) |
|
2777
|
1 |
4 |
if (CvANON(cv)) |
|
2782
|
1 |
3 |
if (hek) { |
|
2799
|
65985250 |
379064 |
IV elem = SvIV(elemsv); |
|
2801
|
21311489 |
45052825 |
const U32 lval = PL_op->op_flags & OPf_MOD || LVRET; |
|
|
18 |
21311471 |
const U32 lval = PL_op->op_flags & OPf_MOD || LVRET; |
|
|
18 |
0 |
const U32 lval = PL_op->op_flags & OPf_MOD || LVRET; |
|
2807
|
66 |
66364248 |
if (SvROK(elemsv) && !SvGAMAGIC(elemsv) && ckWARN(WARN_MISC)) |
|
|
66 |
0 |
if (SvROK(elemsv) && !SvGAMAGIC(elemsv) && ckWARN(WARN_MISC)) |
|
|
66 |
0 |
if (SvROK(elemsv) && !SvGAMAGIC(elemsv) && ckWARN(WARN_MISC)) |
|
|
62 |
4 |
if (SvROK(elemsv) && !SvGAMAGIC(elemsv) && ckWARN(WARN_MISC)) |
|
|
0 |
62 |
if (SvROK(elemsv) && !SvGAMAGIC(elemsv) && ckWARN(WARN_MISC)) |
|
|
2 |
2 |
if (SvROK(elemsv) && !SvGAMAGIC(elemsv) && ckWARN(WARN_MISC)) |
|
2811
|
0 |
66364314 |
if (SvTYPE(av) != SVt_PVAV) |
|
2814
|
162 |
66364152 |
if (localizing) { |
|
2822
|
13 |
149 |
if (SvCANEXISTDELETE(av)) |
|
|
10 |
3 |
if (SvCANEXISTDELETE(av)) |
|
|
10 |
0 |
if (SvCANEXISTDELETE(av)) |
|
|
10 |
0 |
if (SvCANEXISTDELETE(av)) |
|
|
5 |
5 |
if (SvCANEXISTDELETE(av)) |
|
|
5 |
0 |
if (SvCANEXISTDELETE(av)) |
|
2827
|
45052842 |
21311470 |
if (lval) { |
|
2829
|
0 |
45052842 |
if (SvUOK(elemsv)) { |
|
2830
|
0 |
0 |
const UV uv = SvUV(elemsv); |
|
2831
|
0 |
0 |
elem = uv > IV_MAX ? IV_MAX : uv; |
|
2833
|
12086 |
45040756 |
else if (SvNOK(elemsv)) |
|
2834
|
12086 |
0 |
elem = (IV)SvNV(elemsv); |
|
2835
|
17118557 |
27934285 |
if (elem > 0) { |
|
|
0 |
17118557 |
if (elem > 0) { |
|
2841
|
45049027 |
3815 |
if (!svp || !*svp) { |
|
|
0 |
45049027 |
if (!svp || !*svp) { |
|
2844
|
2 |
3813 |
if (!defer) |
|
2856
|
6 |
3807 |
elem < 0 && len + elem >= 0 ? len + elem : elem; |
|
|
2 |
4 |
elem < 0 && len + elem >= 0 ? len + elem : elem; |
|
2861
|
162 |
45048865 |
if (localizing) { |
|
2862
|
156 |
6 |
if (preeminent) |
|
2867
|
4582144 |
40466721 |
else if (PL_op->op_private & OPpDEREF) { |
|
2872
|
61285550 |
492803 |
sv = (svp ? *svp : &PL_sv_undef); |
|
2873
|
21311470 |
40466883 |
if (!lval && SvRMAGICAL(av) && SvGMAGICAL(sv)) /* see note in pp_helem() */ |
|
|
99194 |
21212276 |
if (!lval && SvRMAGICAL(av) && SvGMAGICAL(sv)) /* see note in pp_helem() */ |
|
|
414 |
98780 |
if (!lval && SvRMAGICAL(av) && SvGMAGICAL(sv)) /* see note in pp_helem() */ |
|
2881
|
384 |
207283786 |
{ |
|
2885
|
1706093 |
205578077 |
if (!SvOK(sv)) { |
|
|
1706093 |
0 |
if (!SvOK(sv)) { |
|
|
1706093 |
0 |
if (!SvOK(sv)) { |
|
|
254 |
1705839 |
if (!SvOK(sv)) { |
|
2886
|
0 |
1706093 |
if (SvREADONLY(sv)) |
|
2888
|
1359419 |
346674 |
prepare_SV_for_RV(sv); |
|
|
18608 |
328066 |
prepare_SV_for_RV(sv); |
|
|
0 |
18608 |
prepare_SV_for_RV(sv); |
|
|
0 |
0 |
prepare_SV_for_RV(sv); |
|
|
0 |
0 |
prepare_SV_for_RV(sv); |
|
|
0 |
0 |
prepare_SV_for_RV(sv); |
|
2901
|
374 |
1705719 |
SvSETMAGIC(sv); |
|
2904
|
377 |
207283793 |
if (SvGMAGICAL(sv)) { |
|
2919
|
19335 |
19122216 |
if (SvROK(sv)) { |
|
2921
|
19335 |
0 |
if (SvTYPE(rsv) == SVt_PVCV) { |
|
2937
|
0 |
305183955 |
XPUSHs(method_common(sv, &hash)); |
|
2943
|
7 |
324306161 |
{ |
|
2953
|
3 |
324306168 |
: *(PL_stack_base + TOPMARK + 1); |
|
2957
|
0 |
324306168 |
if (!sv) |
|
2963
|
314651249 |
9654919 |
if (SvROK(sv)) |
|
2965
|
206 |
9654713 |
else if (!SvOK(sv)) goto undefined; |
|
|
206 |
0 |
else if (!SvOK(sv)) goto undefined; |
|
|
206 |
0 |
else if (!SvOK(sv)) goto undefined; |
|
2966
|
290 |
9654423 |
else if (isGV_with_GP(sv)) { |
|
|
290 |
0 |
else if (isGV_with_GP(sv)) { |
|
2967
|
290 |
0 |
if (!GvIO(sv)) |
|
|
290 |
0 |
if (!GvIO(sv)) |
|
|
290 |
0 |
if (!GvIO(sv)) |
|
|
1 |
289 |
if (!GvIO(sv)) |
|
2972
|
1 |
288 |
if (SvTYPE(ob) == SVt_PVLV && LvTYPE(ob) == 'y') { |
|
|
1 |
0 |
if (SvTYPE(ob) == SVt_PVLV && LvTYPE(ob) == 'y') { |
|
2983
|
9654407 |
16 |
const char * const packname = SvPV_nomg_const(sv, packlen); |
|
2991
|
6127936 |
3526487 |
if (he) { |
|
2992
|
6127936 |
0 |
stash = INT2PTR(HV*,SvIV(HeVAL(he))); |
|
2998
|
5899 |
3520588 |
if (!(iogv = gv_fetchpvn_flags( |
|
3000
|
5667 |
232 |
)) || |
|
3001
|
5899 |
0 |
!(ob=MUTABLE_SV(GvIO(iogv)))) |
|
|
5899 |
0 |
!(ob=MUTABLE_SV(GvIO(iogv)))) |
|
|
5899 |
0 |
!(ob=MUTABLE_SV(GvIO(iogv)))) |
|
3004
|
2 |
3526253 |
if (!packlen) |
|
3011
|
3526044 |
209 |
stash = gv_stashpvn(packname, packlen, packname_is_utf8 ? SVf_UTF8 : 0); |
|
3012
|
3525847 |
406 |
if (!stash) |
|
3016
|
206 |
3525641 |
(void)hv_store(PL_stashcache, packname, |
|
3028
|
314651770 |
0 |
if (!ob || !(SvOBJECT(ob) |
|
|
92380 |
314559390 |
if (!ob || !(SvOBJECT(ob) |
|
|
17054 |
75326 |
if (!ob || !(SvOBJECT(ob) |
|
3029
|
17054 |
0 |
|| (isGV_with_GP(ob) |
|
3030
|
17054 |
0 |
&& (ob = MUTABLE_SV(GvIO((const GV *)ob))) |
|
|
17054 |
0 |
&& (ob = MUTABLE_SV(GvIO((const GV *)ob))) |
|
|
17054 |
0 |
&& (ob = MUTABLE_SV(GvIO((const GV *)ob))) |
|
|
17043 |
11 |
&& (ob = MUTABLE_SV(GvIO((const GV *)ob))) |
|
3031
|
0 |
17043 |
&& SvOBJECT(ob)))) |
|
3033
|
2 |
75335 |
Perl_croak(aTHX_ "Can't call method \"%"SVf"\" on unblessed reference", |
|
3034
|
2 |
0 |
SVfARG((SvSCREAM(meth) && strEQ(SvPV_nolen_const(meth),"isa")) |
|
|
2 |
0 |
SVfARG((SvSCREAM(meth) && strEQ(SvPV_nolen_const(meth),"isa")) |
|
|
2 |
0 |
SVfARG((SvSCREAM(meth) && strEQ(SvPV_nolen_const(meth),"isa")) |
|
|
2 |
0 |
SVfARG((SvSCREAM(meth) && strEQ(SvPV_nolen_const(meth),"isa")) |
|
|
2 |
0 |
SVfARG((SvSCREAM(meth) && strEQ(SvPV_nolen_const(meth),"isa")) |
|
3046
|
305108408 |
19122214 |
if (hashp) { |
|
3048
|
304656874 |
451534 |
if (he) { |
|
3050
|
304656607 |
267 |
if (isGV(gv) && GvCV(gv) && |
|
|
303430678 |
1225929 |
if (isGV(gv) && GvCV(gv) && |
|
|
115588822 |
187841856 |
if (isGV(gv) && GvCV(gv) && |
|
3051
|
113076257 |
2512565 |
(!GvCVGEN(gv) || GvCVGEN(gv) |
|
3052
|
115588822 |
0 |
== (PL_sub_generation + HvMROMETA(stash)->cache_gen))) |
|
3057
|
23312103 |
406 |
gv = gv_fetchmethod_sv_flags(stash ? stash : MUTABLE_HV(packsv), |
|
3062
|
22058054 |
1254280 |
return isGV(gv) ? MUTABLE_SV(GvCV(gv)) : MUTABLE_SV(gv); |