line |
true |
false |
branch |
184
|
14 |
43 |
if(SvAMAGIC(sv)) |
|
14 |
0 |
if(SvAMAGIC(sv)) |
|
14 |
0 |
if(SvAMAGIC(sv)) |
187
|
40 |
3 |
if(SvIOK(sv) && !SvNOK(sv) && !SvUOK(sv)) |
|
40 |
0 |
if(SvIOK(sv) && !SvNOK(sv) && !SvUOK(sv)) |
|
40 |
0 |
if(SvIOK(sv) && !SvNOK(sv) && !SvUOK(sv)) |
215
|
2 |
9 |
if(!PL_srand_called) { |
228
|
0 |
37 |
PUSHMARK(SP); |
235
|
37 |
0 |
ret = modf(POPn, &dummy); /* bound to < 1 */ |
236
|
0 |
37 |
if(ret < 0) ret += 1.0; /* bound to 0 <= ret < 1 */ |
250
|
16 |
92 |
if(cv == Nullcv) |
253
|
9 |
83 |
if(!CvROOT(cv) && !CvXSUB(cv)) |
|
9 |
0 |
if(!CvROOT(cv) && !CvXSUB(cv)) |
283
|
0 |
27 |
if(!items) |
287
|
0 |
27 |
SvGETMAGIC(retsv); |
|
0 |
0 |
SvGETMAGIC(retsv); |
288
|
8 |
19 |
magic = SvAMAGIC(retsv); |
|
8 |
0 |
magic = SvAMAGIC(retsv); |
|
8 |
0 |
magic = SvAMAGIC(retsv); |
289
|
19 |
8 |
if(!magic) |
290
|
16 |
3 |
retval = slu_sv_value(retsv); |
|
0 |
16 |
retval = slu_sv_value(retsv); |
|
3 |
0 |
retval = slu_sv_value(retsv); |
292
|
98 |
27 |
for(index = 1 ; index < items ; index++) { |
295
|
8 |
90 |
SvGETMAGIC(stacksv); |
|
0 |
8 |
SvGETMAGIC(stacksv); |
296
|
79 |
19 |
if((magic || SvAMAGIC(stacksv)) && (tmpsv = amagic_call(retsv, stacksv, gt_amg, 0))) { |
|
4 |
75 |
if((magic || SvAMAGIC(stacksv)) && (tmpsv = amagic_call(retsv, stacksv, gt_amg, 0))) { |
|
4 |
0 |
if((magic || SvAMAGIC(stacksv)) && (tmpsv = amagic_call(retsv, stacksv, gt_amg, 0))) { |
|
4 |
0 |
if((magic || SvAMAGIC(stacksv)) && (tmpsv = amagic_call(retsv, stacksv, gt_amg, 0))) { |
|
19 |
4 |
if((magic || SvAMAGIC(stacksv)) && (tmpsv = amagic_call(retsv, stacksv, gt_amg, 0))) { |
297
|
19 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
0 |
19 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
0 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
0 |
19 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
0 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
0 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
19 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
19 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
19 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
11 |
8 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
11 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
11 |
8 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
0 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
0 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
0 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
0 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
0 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
0 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
0 |
0 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
|
8 |
11 |
if(SvTRUE(tmpsv) ? !ix : ix) { |
299
|
7 |
1 |
magic = SvAMAGIC(retsv); |
|
7 |
0 |
magic = SvAMAGIC(retsv); |
|
7 |
0 |
magic = SvAMAGIC(retsv); |
300
|
1 |
7 |
if(!magic) { |
301
|
1 |
0 |
retval = slu_sv_value(retsv); |
|
0 |
1 |
retval = slu_sv_value(retsv); |
|
0 |
0 |
retval = slu_sv_value(retsv); |
306
|
17 |
62 |
NV val = slu_sv_value(stacksv); |
|
0 |
17 |
NV val = slu_sv_value(stacksv); |
|
58 |
4 |
NV val = slu_sv_value(stacksv); |
307
|
2 |
77 |
if(magic) { |
308
|
0 |
2 |
retval = slu_sv_value(retsv); |
|
0 |
0 |
retval = slu_sv_value(retsv); |
|
0 |
2 |
retval = slu_sv_value(retsv); |
311
|
24 |
55 |
if(val < retval ? !ix : ix) { |
|
18 |
61 |
if(val < retval ? !ix : ix) { |
331
|
52 |
0 |
dXSTARG; |
341
|
3 |
49 |
if(!items) |
349
|
0 |
49 |
SvGETMAGIC(sv); |
|
0 |
0 |
SvGETMAGIC(sv); |
356
|
40 |
0 |
retiv = SvIV(sv); |
359
|
0 |
3 |
retnv = slu_sv_value(sv); |
|
0 |
0 |
retnv = slu_sv_value(sv); |
|
3 |
0 |
retnv = slu_sv_value(sv); |
363
|
61 |
49 |
for(index = 1 ; index < items ; index++) { |
365
|
4 |
57 |
SvGETMAGIC(sv); |
|
0 |
4 |
SvGETMAGIC(sv); |
366
|
53 |
8 |
if(accum < ACC_SV && SvAMAGIC(sv)){ |
|
10 |
43 |
if(accum < ACC_SV && SvAMAGIC(sv)){ |
|
10 |
0 |
if(accum < ACC_SV && SvAMAGIC(sv)){ |
|
10 |
0 |
if(accum < ACC_SV && SvAMAGIC(sv)){ |
367
|
8 |
2 |
if(!retsv) |
369
|
8 |
2 |
sv_setnv(retsv, accum == ACC_NV ? retnv : retiv); |
374
|
8 |
10 |
tmpsv = amagic_call(retsv, sv, |
|
8 |
0 |
tmpsv = amagic_call(retsv, sv, |
|
8 |
0 |
tmpsv = amagic_call(retsv, sv, |
|
9 |
9 |
tmpsv = amagic_call(retsv, sv, |
377
|
8 |
10 |
if(tmpsv) { |
383
|
0 |
0 |
retiv = SvIV(tmpsv); |
386
|
0 |
0 |
retnv = slu_sv_value(tmpsv); |
|
0 |
0 |
retnv = slu_sv_value(tmpsv); |
|
0 |
0 |
retnv = slu_sv_value(tmpsv); |
393
|
3 |
2 |
is_product ? (retnv = SvNV(retsv) * SvNV(sv)) |
|
0 |
5 |
is_product ? (retnv = SvNV(retsv) * SvNV(sv)) |
394
|
5 |
5 |
: (retnv = SvNV(retsv) + SvNV(sv)); |
|
3 |
2 |
: (retnv = SvNV(retsv) + SvNV(sv)); |
|
0 |
5 |
: (retnv = SvNV(retsv) + SvNV(sv)); |
398
|
19 |
17 |
if(is_product) { |
405
|
19 |
0 |
if(!SvNOK(sv) && SvIOK(sv)) { |
|
19 |
0 |
if(!SvNOK(sv) && SvIOK(sv)) { |
406
|
19 |
0 |
IV i = SvIV(sv); |
407
|
4 |
15 |
if (retiv == 0) /* avoid later division by zero */ |
409
|
5 |
10 |
if (retiv < -1) { /* avoid -1 because that causes SIGFPE */ |
410
|
2 |
3 |
if (i < 0) { |
411
|
1 |
1 |
if (i >= IV_MAX / retiv) { |
417
|
2 |
1 |
if (i <= IV_MIN / retiv) { |
423
|
9 |
1 |
else if (retiv > 0) { |
424
|
2 |
7 |
if (i < 0) { |
425
|
1 |
1 |
if (i >= IV_MIN / retiv) { |
431
|
6 |
1 |
if (i <= IV_MAX / retiv) { |
444
|
16 |
1 |
if(!SvNOK(sv) && SvIOK(sv)) { |
|
16 |
0 |
if(!SvNOK(sv) && SvIOK(sv)) { |
445
|
12 |
4 |
IV i = SvIV(sv); |
446
|
14 |
2 |
if (retiv >= 0 && i >= 0) { |
|
13 |
1 |
if (retiv >= 0 && i >= 0) { |
447
|
13 |
0 |
if (retiv <= IV_MAX - i) { |
453
|
2 |
1 |
else if (retiv < 0 && i < 0) { |
|
0 |
2 |
else if (retiv < 0 && i < 0) { |
454
|
0 |
0 |
if (retiv >= IV_MIN - i) { |
473
|
9 |
0 |
is_product ? (retnv *= slu_sv_value(sv)) |
|
0 |
9 |
is_product ? (retnv *= slu_sv_value(sv)) |
|
0 |
0 |
is_product ? (retnv *= slu_sv_value(sv)) |
474
|
9 |
4 |
: (retnv += slu_sv_value(sv)); |
|
3 |
1 |
: (retnv += slu_sv_value(sv)); |
|
0 |
3 |
: (retnv += slu_sv_value(sv)); |
|
1 |
0 |
: (retnv += slu_sv_value(sv)); |
479
|
35 |
14 |
if(!retsv) |
511
|
0 |
8 |
if(!items) |
525
|
44 |
8 |
for(index = 1 ; index < items ; index++) { |
527
|
6 |
38 |
if(sv_cmp(left, right) == ix) |
554
|
5 |
35 |
CV *cv = sv_to_cv(block, ix ? "reductions" : "reduce"); |
556
|
2 |
29 |
if(items <= 1) { |
557
|
1 |
1 |
if(ix) |
568
|
29 |
0 |
SvSetMagicSV(ret, args[1]); |
|
0 |
29 |
SvSetMagicSV(ret, args[1]); |
570
|
4 |
25 |
if(ix) { |
582
|
28 |
1 |
if(!CvISXSUB(cv)) { |
587
|
0 |
28 |
PUSH_MULTICALL(cv); |
|
1 |
27 |
PUSH_MULTICALL(cv); |
588
|
100 |
23 |
for(index = 2 ; index < items ; index++) { |
591
|
76 |
19 |
SvSetMagicSV(ret, *PL_stack_sp); |
|
1 |
75 |
SvSetMagicSV(ret, *PL_stack_sp); |
592
|
12 |
83 |
if(ix) |
599
|
23 |
0 |
POP_MULTICALL; |
|
0 |
23 |
POP_MULTICALL; |
604
|
2 |
1 |
for(index = 2 ; index < items ; index++) { |
608
|
0 |
2 |
PUSHMARK(SP); |
611
|
2 |
0 |
SvSetMagicSV(ret, *PL_stack_sp); |
|
0 |
2 |
SvSetMagicSV(ret, *PL_stack_sp); |
612
|
0 |
2 |
if(ix) |
617
|
3 |
21 |
if(ix) { |
621
|
13 |
3 |
for(i = 0; i < items-1; i++) { |
644
|
1 |
18 |
if(items <= 1) |
650
|
16 |
2 |
if(!CvISXSUB(cv)) { |
655
|
0 |
16 |
PUSH_MULTICALL(cv); |
|
1 |
15 |
PUSH_MULTICALL(cv); |
657
|
45 |
3 |
for(index = 1 ; index < items ; index++) { |
663
|
41 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
41 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
41 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
33 |
8 |
if(SvTRUEx(*PL_stack_sp)) { |
|
33 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
33 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
7 |
26 |
if(SvTRUEx(*PL_stack_sp)) { |
|
7 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
7 |
26 |
if(SvTRUEx(*PL_stack_sp)) { |
|
8 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
8 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
6 |
2 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
6 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
2 |
6 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
9 |
32 |
if(SvTRUEx(*PL_stack_sp)) { |
668
|
9 |
0 |
POP_MULTICALL; |
|
0 |
9 |
POP_MULTICALL; |
677
|
3 |
0 |
POP_MULTICALL; |
|
0 |
3 |
POP_MULTICALL; |
682
|
5 |
1 |
for(index = 1 ; index < items ; index++) { |
686
|
0 |
5 |
PUSHMARK(SP); |
688
|
5 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
5 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
5 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
5 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
5 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
5 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
4 |
1 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
4 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
1 |
4 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
1 |
4 |
if(SvTRUEx(*PL_stack_sp)) { |
712
|
16 |
5 |
CV *cv = sv_to_cv(block, |
|
11 |
5 |
CV *cv = sv_to_cv(block, |
|
5 |
6 |
CV *cv = sv_to_cv(block, |
|
5 |
0 |
CV *cv = sv_to_cv(block, |
722
|
13 |
0 |
if(!CvISXSUB(cv)) { |
728
|
0 |
13 |
PUSH_MULTICALL(cv); |
|
0 |
13 |
PUSH_MULTICALL(cv); |
729
|
19 |
8 |
for(index = 1; index < items; index++) { |
736
|
19 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
19 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
19 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
19 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
19 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
18 |
1 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
10 |
8 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
10 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
11 |
8 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
5 |
14 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
737
|
5 |
0 |
POP_MULTICALL; |
|
0 |
5 |
POP_MULTICALL; |
738
|
2 |
3 |
ST(0) = ret_true ? &PL_sv_no : &PL_sv_yes; |
742
|
8 |
0 |
POP_MULTICALL; |
|
0 |
8 |
POP_MULTICALL; |
748
|
0 |
0 |
for(index = 1; index < items; index++) { |
752
|
0 |
0 |
PUSHMARK(SP); |
754
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp) ^ invert) { |
755
|
0 |
0 |
ST(0) = ret_true ? &PL_sv_no : &PL_sv_yes; |
761
|
4 |
4 |
ST(0) = ret_true ? &PL_sv_yes : &PL_sv_no; |
778
|
20 |
0 |
size = SvIV( ST(0) ); |
780
|
11 |
9 |
if ( ix == 0 ) { |
783
|
4 |
7 |
if ( size < 0 ) { |
786
|
3 |
8 |
if ( end > items ) { |
792
|
4 |
5 |
if ( size < 0 ) { |
798
|
1 |
8 |
if ( start < 1 ) { |
803
|
3 |
17 |
if ( end < start ) { |
807
|
17 |
0 |
EXTEND( SP, end - start ); |
|
0 |
17 |
EXTEND( SP, end - start ); |
808
|
35 |
17 |
for ( i = start; i <= end; i++ ) { |
824
|
1 |
2 |
if(items % 2 && ckWARN(WARN_MISC)) |
|
0 |
1 |
if(items % 2 && ckWARN(WARN_MISC)) |
828
|
7 |
3 |
for(; argi < items; argi += 2) { |
830
|
6 |
1 |
SV *b = argi < items-1 ? ST(argi+1) : &PL_sv_undef; |
855
|
0 |
3 |
Newx(args_copy, items, SV *); |
858
|
0 |
3 |
Copy(&ST(0), args_copy, items, SV *); |
860
|
7 |
3 |
for(i = 0; i < items; i++) { |
864
|
0 |
7 |
SvGETMAGIC(pair); |
|
0 |
0 |
SvGETMAGIC(pair); |
866
|
0 |
7 |
if(SvTYPE(pair) != SVt_RV) |
868
|
0 |
7 |
if(SvTYPE(SvRV(pair)) != SVt_PVAV) |
874
|
0 |
7 |
EXTEND(SP, 2); |
876
|
0 |
7 |
if(AvFILL(pairav) >= 0) |
|
7 |
0 |
if(AvFILL(pairav) >= 0) |
881
|
0 |
7 |
if(AvFILL(pairav) >= 1) |
|
6 |
1 |
if(AvFILL(pairav) >= 1) |
898
|
0 |
1 |
if(items % 2 && ckWARN(WARN_MISC)) |
|
0 |
0 |
if(items % 2 && ckWARN(WARN_MISC)) |
902
|
2 |
1 |
for(; argi < items; argi += 2) { |
920
|
0 |
1 |
if(items % 2 && ckWARN(WARN_MISC)) |
|
0 |
0 |
if(items % 2 && ckWARN(WARN_MISC)) |
924
|
2 |
1 |
for(; argi < items; argi += 2) { |
925
|
2 |
0 |
SV *b = argi < items-1 ? ST(argi+1) : &PL_sv_undef; |
942
|
4 |
0 |
I32 ret_gimme = GIMME_V; |
945
|
0 |
4 |
if(!(items % 2) && ckWARN(WARN_MISC)) |
|
0 |
0 |
if(!(items % 2) && ckWARN(WARN_MISC)) |
954
|
4 |
0 |
if(!CvISXSUB(cv)) { |
962
|
0 |
4 |
PUSH_MULTICALL(cv); |
|
0 |
4 |
PUSH_MULTICALL(cv); |
963
|
12 |
2 |
for(; argi < items; argi += 2) { |
965
|
12 |
0 |
SV *b = GvSV(bgv) = argi < items-1 ? stack[argi+1] : &PL_sv_undef; |
969
|
12 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
12 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
12 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
12 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
12 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
12 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
2 |
10 |
if(!SvTRUEx(*PL_stack_sp)) |
|
2 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
2 |
10 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
10 |
2 |
if(!SvTRUEx(*PL_stack_sp)) |
972
|
2 |
0 |
POP_MULTICALL; |
|
0 |
2 |
POP_MULTICALL; |
973
|
1 |
1 |
if(ret_gimme == G_LIST) { |
981
|
2 |
0 |
POP_MULTICALL; |
|
0 |
2 |
POP_MULTICALL; |
987
|
0 |
0 |
for(; argi < items; argi += 2) { |
990
|
0 |
0 |
SV *b = GvSV(bgv) = argi < items-1 ? ST(argi+1) : &PL_sv_undef; |
992
|
0 |
0 |
PUSHMARK(SP); |
997
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
|
0 |
0 |
if(!SvTRUEx(*PL_stack_sp)) |
1000
|
0 |
0 |
if(ret_gimme == G_LIST) { |
1021
|
6 |
0 |
I32 ret_gimme = GIMME_V; |
1029
|
2 |
4 |
if(!(items % 2) && ckWARN(WARN_MISC)) |
|
1 |
1 |
if(!(items % 2) && ckWARN(WARN_MISC)) |
1038
|
6 |
0 |
if(!CvISXSUB(cv)) { |
1047
|
0 |
6 |
PUSH_MULTICALL(cv); |
|
0 |
6 |
PUSH_MULTICALL(cv); |
1048
|
15 |
6 |
for(; argi < items; argi += 2) { |
1050
|
13 |
2 |
SV *b = GvSV(bgv) = argi < items-1 ? stack[argi+1] : &PL_sv_undef; |
1054
|
15 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
15 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
4 |
11 |
if(SvTRUEx(*PL_stack_sp)) { |
|
4 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
4 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
11 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
11 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
11 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
3 |
8 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
3 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
8 |
3 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
8 |
7 |
if(SvTRUEx(*PL_stack_sp)) { |
1055
|
4 |
4 |
if(ret_gimme == G_LIST) { |
1060
|
2 |
2 |
else if(ret_gimme == G_SCALAR) |
1064
|
6 |
0 |
POP_MULTICALL; |
|
0 |
6 |
POP_MULTICALL; |
1066
|
2 |
4 |
if(ret_gimme == G_LIST) |
1067
|
8 |
2 |
for(i = 0; i < reti; i++) |
1073
|
0 |
0 |
for(; argi < items; argi += 2) { |
1076
|
0 |
0 |
SV *b = GvSV(bgv) = argi < items-1 ? ST(argi+1) : &PL_sv_undef; |
1078
|
0 |
0 |
PUSHMARK(SP); |
1083
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
|
0 |
0 |
if(SvTRUEx(*PL_stack_sp)) { |
1084
|
0 |
0 |
if(ret_gimme == G_LIST) { |
1088
|
0 |
0 |
else if(ret_gimme == G_SCALAR) |
1094
|
2 |
4 |
if(ret_gimme == G_LIST) |
1096
|
1 |
3 |
else if(ret_gimme == G_SCALAR) { |
1111
|
8 |
2 |
I32 ret_gimme = GIMME_V; |
1116
|
1 |
9 |
if(!(items % 2) && ckWARN(WARN_MISC)) |
|
0 |
1 |
if(!(items % 2) && ckWARN(WARN_MISC)) |
1128
|
10 |
0 |
if(!CvISXSUB(cv)) { |
1131
|
8 |
2 |
I32 ret_gimme = GIMME_V; |
1139
|
0 |
10 |
PUSH_MULTICALL(cv); |
|
0 |
10 |
PUSH_MULTICALL(cv); |
1140
|
27 |
10 |
for(; argi < items; argi += 2) { |
1144
|
26 |
1 |
GvSV(bgv) = argi < items-1 ? stack[argi+1]: &PL_sv_undef; |
1149
|
20 |
7 |
if (count > 2 || spill) { |
|
3 |
17 |
if (count > 2 || spill) { |
1161
|
3 |
7 |
if (!spill) { |
1169
|
0 |
10 |
fill = (int)AvFILL(spill); |
1171
|
2018 |
10 |
for(i = 0; i < count; i++) |
1176
|
22 |
17 |
for(i = 0; i < count; i++) |
1180
|
3 |
7 |
if (spill) { |
1187
|
10 |
0 |
POP_MULTICALL; |
|
0 |
10 |
POP_MULTICALL; |
1189
|
3 |
7 |
if (spill) { |
1190
|
0 |
3 |
int n = (int)AvFILL(spill) + 1; |
1192
|
3 |
0 |
EXTEND(SP, n); |
|
1 |
2 |
EXTEND(SP, n); |
1193
|
2018 |
3 |
for (i = 0; i < n; i++) |
1199
|
8 |
2 |
if(ret_gimme == G_LIST) |
1200
|
2032 |
8 |
for(i = 0; i < reti; i++) |
1206
|
0 |
0 |
for(; argi < items; argi += 2) { |
1211
|
0 |
0 |
GvSV(agv) = args_copy ? args_copy[argi] : ST(argi); |
1213
|
0 |
0 |
(args_copy ? args_copy[argi+1] : ST(argi+1)) : |
|
0 |
0 |
(args_copy ? args_copy[argi+1] : ST(argi+1)) : |
1216
|
0 |
0 |
PUSHMARK(SP); |
1221
|
0 |
0 |
if(count > 2 && !args_copy && ret_gimme == G_LIST) { |
|
0 |
0 |
if(count > 2 && !args_copy && ret_gimme == G_LIST) { |
|
0 |
0 |
if(count > 2 && !args_copy && ret_gimme == G_LIST) { |
1223
|
0 |
0 |
Newx(args_copy, n_args, SV *); |
1226
|
0 |
0 |
Copy(&ST(argi), args_copy, n_args, SV *); |
1232
|
0 |
0 |
if(ret_gimme == G_LIST) |
1233
|
0 |
0 |
for(i = 0; i < count; i++) |
1242
|
8 |
2 |
if(ret_gimme == G_LIST) |
1256
|
3 |
3 |
CV * const randcv = randsv && SvROK(randsv) && SvTYPE(SvRV(randsv)) == SVt_PVCV ? |
|
3 |
0 |
CV * const randcv = randsv && SvROK(randsv) && SvTYPE(SvRV(randsv)) == SVt_PVCV ? |
1257
|
6 |
0 |
(CV *)SvRV(randsv) : NULL; |
1259
|
3 |
3 |
if(!randcv) |
1262
|
126 |
6 |
for (index = items ; index > 1 ; ) { |
1264
|
27 |
99 |
(randcv ? MY_callrand(aTHX_ randcv) : Drand01()) * (double)(index--) |
1279
|
10 |
0 |
IV count = items ? SvUV(ST(0)) : 0; |
|
0 |
10 |
IV count = items ? SvUV(ST(0)) : 0; |
1282
|
2 |
8 |
CV * const randcv = randsv && SvROK(randsv) && SvTYPE(SvRV(randsv)) == SVt_PVCV ? |
|
2 |
0 |
CV * const randcv = randsv && SvROK(randsv) && SvTYPE(SvRV(randsv)) == SVt_PVCV ? |
1283
|
10 |
0 |
(CV *)SvRV(randsv) : NULL; |
1285
|
0 |
10 |
if(!count) |
1294
|
1 |
9 |
if(count > items) |
1297
|
8 |
2 |
if(!randcv) |
1303
|
52 |
10 |
while(reti < count) { |
1305
|
10 |
42 |
(randcv ? MY_callrand(aTHX_ randcv) : Drand01()) * (double)(items - reti) |
1336
|
23 |
3 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
4 |
19 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
4 |
0 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
0 |
4 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
0 |
0 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
0 |
0 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
2 |
2 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
2 |
0 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
0 |
2 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
1345
|
125 |
21 |
for(index = 0 ; index < items ; index++) { |
1351
|
50 |
75 |
if(SvGAMAGIC(arg)) |
|
8 |
42 |
if(SvGAMAGIC(arg)) |
|
8 |
0 |
if(SvGAMAGIC(arg)) |
|
8 |
0 |
if(SvGAMAGIC(arg)) |
1355
|
76 |
49 |
if(ix == 2 && !SvOK(arg)) { |
|
3 |
73 |
if(ix == 2 && !SvOK(arg)) { |
|
3 |
0 |
if(ix == 2 && !SvOK(arg)) { |
|
3 |
0 |
if(ix == 2 && !SvOK(arg)) { |
1357
|
1 |
2 |
if(seen_undef) |
1362
|
2 |
0 |
if(GIMME_V == G_LIST) |
|
2 |
0 |
if(GIMME_V == G_LIST) |
1367
|
18 |
104 |
if(ix == 0) { |
1372
|
2 |
16 |
if(SvAMAGIC(arg) && (arg = AMG_CALLun(arg, int))) |
|
2 |
0 |
if(SvAMAGIC(arg) && (arg = AMG_CALLun(arg, int))) |
|
2 |
0 |
if(SvAMAGIC(arg) && (arg = AMG_CALLun(arg, int))) |
|
2 |
0 |
if(SvAMAGIC(arg) && (arg = AMG_CALLun(arg, int))) |
1376
|
2 |
14 |
if(!SvOK(arg) || SvNOK(arg) || SvPOK(arg)) |
|
2 |
0 |
if(!SvOK(arg) || SvNOK(arg) || SvPOK(arg)) |
|
0 |
2 |
if(!SvOK(arg) || SvNOK(arg) || SvPOK(arg)) |
|
10 |
4 |
if(!SvOK(arg) || SvNOK(arg) || SvPOK(arg)) |
|
0 |
10 |
if(!SvOK(arg) || SvNOK(arg) || SvPOK(arg)) |
1379
|
4 |
2 |
NV nv = SvNV(arg); |
1381
|
0 |
6 |
if(nv > (NV)UV_MAX) |
1384
|
0 |
6 |
else if(nv < (NV)IV_MIN) |
1387
|
4 |
2 |
else if(nv > 0 && (UV)nv > (UV)IV_MAX) |
|
1 |
3 |
else if(nv > 0 && (UV)nv > (UV)IV_MAX) |
1399
|
52 |
70 |
if (HeVAL(he)) |
1410
|
70 |
0 |
if(GIMME_V == G_LIST) |
|
65 |
5 |
if(GIMME_V == G_LIST) |
1411
|
1 |
64 |
ST(retcount) = SvOK(arg) ? arg : sv_2mortal(newSVpvn("", 0)); |
|
1 |
0 |
ST(retcount) = SvOK(arg) ? arg : sv_2mortal(newSVpvn("", 0)); |
|
1 |
0 |
ST(retcount) = SvOK(arg) ? arg : sv_2mortal(newSVpvn("", 0)); |
1416
|
26 |
0 |
if(GIMME_V == G_LIST) |
|
25 |
1 |
if(GIMME_V == G_LIST) |
1434
|
22 |
0 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
1 |
21 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
1 |
0 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
0 |
1 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
0 |
0 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
0 |
0 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
1 |
0 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
1 |
0 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
|
0 |
1 |
if(items == 0 || (items == 1 && !SvGAMAGIC(args[0]) && SvOK(args[0]))) { |
1443
|
119 |
22 |
for(index = 0 ; index < items ; index++) { |
1450
|
116 |
3 |
if(SvGAMAGIC(arg)) |
|
3 |
113 |
if(SvGAMAGIC(arg)) |
|
3 |
0 |
if(SvGAMAGIC(arg)) |
|
3 |
0 |
if(SvGAMAGIC(arg)) |
1454
|
2 |
117 |
if(SvOK(arg) && !(SvUOK(arg) || SvIOK(arg) || SvNOK(arg))) { |
|
2 |
0 |
if(SvOK(arg) && !(SvUOK(arg) || SvIOK(arg) || SvNOK(arg))) { |
|
0 |
2 |
if(SvOK(arg) && !(SvUOK(arg) || SvIOK(arg) || SvNOK(arg))) { |
|
110 |
7 |
if(SvOK(arg) && !(SvUOK(arg) || SvIOK(arg) || SvNOK(arg))) { |
|
80 |
30 |
if(SvOK(arg) && !(SvUOK(arg) || SvIOK(arg) || SvNOK(arg))) { |
|
32 |
48 |
if(SvOK(arg) && !(SvUOK(arg) || SvIOK(arg) || SvNOK(arg))) { |
1456
|
0 |
32 |
SvIV(arg); /* sets SVf_IOK/SVf_IsUV if it's an integer */ |
1490
|
68 |
51 |
if( SvIOK(arg) || !SvOK(arg) ) { |
|
2 |
66 |
if( SvIOK(arg) || !SvOK(arg) ) { |
|
2 |
0 |
if( SvIOK(arg) || !SvOK(arg) ) { |
|
2 |
0 |
if( SvIOK(arg) || !SvOK(arg) ) { |
1493
|
51 |
2 |
IV iv = SvIV(arg); |
1496
|
6 |
47 |
if(iv == 0) sv_setpvs(keysv, "0"); |
1500
|
21 |
26 |
int sign = ( iv > 0 || uok ) ? 1 : -1; |
|
9 |
12 |
int sign = ( iv > 0 || uok ) ? 1 : -1; |
1526
|
38 |
9 |
if( !((iv * sign) & (~valid_bits)) ) { |
1528
|
3 |
35 |
nv_arg = uok ? (NV)SvUV(arg) : (NV)SvIV(arg); |
|
3 |
0 |
nv_arg = uok ? (NV)SvUV(arg) : (NV)SvIV(arg); |
|
35 |
0 |
nv_arg = uok ? (NV)SvUV(arg) : (NV)SvIV(arg); |
1537
|
6 |
3 |
if(uok) sv_catpvn(keysv, "U", 1); |
1543
|
63 |
3 |
nv_arg = SvNV(arg); |
1546
|
4 |
62 |
if (nv_arg != nv_arg) sv_setpvf(keysv, "%" NVgf, nv_arg); |
1549
|
1 |
61 |
else if(nv_arg == 0) sv_setpvs(keysv, "0"); |
1555
|
34 |
85 |
if (HeVAL(he)) |
1566
|
85 |
0 |
if(GIMME_V == G_LIST) |
|
78 |
7 |
if(GIMME_V == G_LIST) |
1567
|
1 |
77 |
ST(retcount) = SvOK(arg) ? arg : sv_2mortal(newSViv(0)); |
|
1 |
0 |
ST(retcount) = SvOK(arg) ? arg : sv_2mortal(newSViv(0)); |
|
1 |
0 |
ST(retcount) = SvOK(arg) ? arg : sv_2mortal(newSViv(0)); |
1572
|
22 |
0 |
if(GIMME_V == G_LIST) |
|
19 |
3 |
if(GIMME_V == G_LIST) |
1594
|
2 |
12 |
if(!nlists) |
1597
|
0 |
12 |
Newx(lists, nlists, AV *); |
1603
|
18 |
8 |
for(i = 0; i < nlists; i++) { |
1607
|
16 |
2 |
if(!SvROK(arg) || SvTYPE(SvRV(arg)) != SVt_PVAV) |
|
2 |
14 |
if(!SvROK(arg) || SvTYPE(SvRV(arg)) != SVt_PVAV) |
1611
|
8 |
6 |
if(!i) { |
1612
|
0 |
8 |
len = av_count(av); |
1619
|
0 |
4 |
if(av_count(av) > len) |
|
0 |
4 |
if(av_count(av) > len) |
1620
|
0 |
0 |
len = av_count(av); |
1624
|
0 |
2 |
if(av_count(av) < len) |
|
2 |
0 |
if(av_count(av) < len) |
1625
|
0 |
2 |
len = av_count(av); |
1630
|
4 |
4 |
if(is_mesh) { |
1633
|
4 |
0 |
EXTEND(SP, retcount); |
|
0 |
4 |
EXTEND(SP, retcount); |
1635
|
10 |
4 |
for(i = 0; i < len; i++) { |
1638
|
17 |
10 |
for(listi = 0; listi < nlists; listi++) { |
1639
|
0 |
17 |
SV *item = (i < av_count(lists[listi])) ? |
1640
|
16 |
1 |
AvARRAY(lists[listi])[i] : |
1650
|
4 |
0 |
EXTEND(SP, (SSize_t)len); |
|
0 |
4 |
EXTEND(SP, (SSize_t)len); |
1652
|
10 |
4 |
for(i = 0; i < len; i++) { |
1657
|
17 |
10 |
for(listi = 0; listi < nlists; listi++) { |
1658
|
0 |
17 |
SV *item = (i < av_count(lists[listi])) ? |
1659
|
16 |
1 |
AvARRAY(lists[listi])[i] : |
1680
|
6 |
0 |
dXSTARG; |
1682
|
6 |
0 |
(void)SvUPGRADE(TARG, SVt_PVNV); |
1686
|
4 |
2 |
if(SvNOK(num) || SvPOK(num) || SvMAGICAL(num)) { |
|
4 |
0 |
if(SvNOK(num) || SvPOK(num) || SvMAGICAL(num)) { |
|
1 |
3 |
if(SvNOK(num) || SvPOK(num) || SvMAGICAL(num)) { |
1687
|
2 |
1 |
SvNV_set(TARG, SvNV(num)); |
1691
|
1 |
2 |
else if(SvUOK(num)) { |
1692
|
1 |
0 |
SvUV_set(TARG, SvUV(num)); |
1698
|
2 |
0 |
SvIV_set(TARG, SvIV(num)); |
1702
|
0 |
6 |
if(PL_tainting && (SvTAINTED(num) || SvTAINTED(str))) |
|
0 |
0 |
if(PL_tainting && (SvTAINTED(num) || SvTAINTED(str))) |
|
0 |
0 |
if(PL_tainting && (SvTAINTED(num) || SvTAINTED(str))) |
|
0 |
0 |
if(PL_tainting && (SvTAINTED(num) || SvTAINTED(str))) |
|
0 |
0 |
if(PL_tainting && (SvTAINTED(num) || SvTAINTED(str))) |
1703
|
0 |
0 |
SvTAINTED_on(TARG); |
1714
|
0 |
8 |
if(SvMAGICAL(sv)) |
1717
|
1 |
7 |
ST(0) = boolSV((SvPOK(sv) || SvPOKp(sv)) && (SvNIOK(sv) || SvNIOKp(sv))); |
|
0 |
1 |
ST(0) = boolSV((SvPOK(sv) || SvPOKp(sv)) && (SvNIOK(sv) || SvNIOKp(sv))); |
|
1 |
6 |
ST(0) = boolSV((SvPOK(sv) || SvPOKp(sv)) && (SvNIOK(sv) || SvNIOKp(sv))); |
|
0 |
1 |
ST(0) = boolSV((SvPOK(sv) || SvPOKp(sv)) && (SvNIOK(sv) || SvNIOKp(sv))); |
1726
|
1 |
373 |
SvGETMAGIC(sv); |
|
0 |
1 |
SvGETMAGIC(sv); |
1728
|
371 |
3 |
if(!(SvROK(sv) && SvOBJECT(SvRV(sv)))) |
|
352 |
19 |
if(!(SvROK(sv) && SvOBJECT(SvRV(sv)))) |
1746
|
1 |
108 |
SvGETMAGIC(sv); |
|
0 |
1 |
SvGETMAGIC(sv); |
1747
|
2 |
107 |
if(!SvROK(sv)) |
1761
|
3 |
33 |
SvGETMAGIC(sv); |
|
0 |
3 |
SvGETMAGIC(sv); |
1762
|
3 |
33 |
if(!SvROK(sv)) |
1789
|
0 |
1 |
if (!SvOK(sv)) |
|
0 |
0 |
if (!SvOK(sv)) |
|
0 |
0 |
if (!SvOK(sv)) |
1791
|
0 |
1 |
if (!SvROK(sv)) |
1793
|
0 |
1 |
else if (!SvWEAKREF(sv)) { |
1794
|
0 |
0 |
if(ckWARN(WARN_MISC)) |
1798
|
0 |
1 |
else if (SvREADONLY(sv)) croak_no_modify(); |
1820
|
7 |
2 |
ST(0) = boolSV(SvROK(sv) && SvWEAKREF(sv)); |
|
4 |
3 |
ST(0) = boolSV(SvROK(sv) && SvWEAKREF(sv)); |
1828
|
0 |
9 |
SvGETMAGIC(sv); |
|
0 |
0 |
SvGETMAGIC(sv); |
1838
|
3 |
2 |
SvGETMAGIC(sv); |
|
0 |
3 |
SvGETMAGIC(sv); |
1839
|
3 |
2 |
RETVAL = SvTAINTED(sv); |
|
3 |
0 |
RETVAL = SvTAINTED(sv); |
1849
|
0 |
2 |
SvGETMAGIC(sv); |
|
0 |
0 |
SvGETMAGIC(sv); |
1850
|
1 |
1 |
ST(0) = boolSV(SvVOK(sv)); |
|
1 |
0 |
ST(0) = boolSV(SvVOK(sv)); |
1862
|
2 |
17 |
SvGETMAGIC(sv); |
|
0 |
2 |
SvGETMAGIC(sv); |
1863
|
3 |
16 |
if(SvAMAGIC(sv) && (tempsv = AMG_CALLun(sv, numer))) { |
|
1 |
2 |
if(SvAMAGIC(sv) && (tempsv = AMG_CALLun(sv, numer))) { |
|
1 |
0 |
if(SvAMAGIC(sv) && (tempsv = AMG_CALLun(sv, numer))) { |
|
1 |
0 |
if(SvAMAGIC(sv) && (tempsv = AMG_CALLun(sv, numer))) { |
1874
|
13 |
6 |
RETVAL = looks_like_number(sv) ? &PL_sv_yes : &PL_sv_no; |
1885
|
0 |
20 |
SvGETMAGIC(sv); |
|
0 |
0 |
SvGETMAGIC(sv); |
1886
|
13 |
7 |
if(SvROK(sv)){ |
1892
|
16 |
4 |
if(isGV(sv)){ |
1893
|
16 |
0 |
io = GvIO((GV*)sv); |
|
0 |
16 |
io = GvIO((GV*)sv); |
|
0 |
0 |
io = GvIO((GV*)sv); |
|
16 |
0 |
io = GvIO((GV*)sv); |
1895
|
1 |
3 |
else if(SvTYPE(sv) == SVt_PVIO){ |
1899
|
14 |
6 |
if(io){ |
1901
|
5 |
9 |
if(IoIFP(io) || SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar)){ |
|
2 |
3 |
if(IoIFP(io) || SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar)){ |
|
2 |
0 |
if(IoIFP(io) || SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar)){ |
1917
|
0 |
15 |
SvGETMAGIC(code); |
|
0 |
0 |
SvGETMAGIC(code); |
1918
|
1 |
14 |
if(!SvROK(code)) |
1922
|
1 |
13 |
if(SvTYPE(cv) != SVt_PVCV) |
1925
|
9 |
4 |
if(SvPOK(proto)) { |
1948
|
271 |
0 |
const char* nameptr = SvPV(name, namelen); |
1953
|
0 |
271 |
if (!SvROK(sub) && SvGMAGICAL(sub)) |
|
0 |
0 |
if (!SvROK(sub) && SvGMAGICAL(sub)) |
1955
|
271 |
0 |
if (SvROK(sub)) |
1957
|
0 |
0 |
else if (SvTYPE(sub) == SVt_PVGV) |
1958
|
0 |
0 |
cv = GvCVu(sub); |
1959
|
0 |
0 |
else if (!SvOK(sub)) |
|
0 |
0 |
else if (!SvOK(sub)) |
|
0 |
0 |
else if (!SvOK(sub)) |
1961
|
0 |
0 |
else if (PL_op->op_private & HINT_STRICT_REFS) |
1962
|
0 |
0 |
croak("Can't use string (\"%.32s\") as %s ref while \"strict refs\" in use", |
1964
|
0 |
0 |
else if ((gv = gv_fetchsv(sub, FALSE, SVt_PVCV))) |
1965
|
0 |
0 |
cv = GvCVu(gv); |
1966
|
0 |
271 |
if (!cv) |
1967
|
0 |
0 |
croak("Undefined subroutine %s", SvPV_nolen(sub)); |
1968
|
0 |
271 |
if (SvTYPE(cv) != SVt_PVCV && SvTYPE(cv) != SVt_PVFM) |
|
0 |
0 |
if (SvTYPE(cv) != SVt_PVCV && SvTYPE(cv) != SVt_PVFM) |
1970
|
10566 |
271 |
for (s = nameptr; s <= nameptr + namelen; s++) { |
1971
|
10295 |
271 |
if (s > nameptr && *s == ':' && s[-1] == ':') { |
|
1568 |
8727 |
if (s > nameptr && *s == ':' && s[-1] == ':') { |
|
783 |
785 |
if (s > nameptr && *s == ':' && s[-1] == ':') { |
1974
|
1 |
782 |
if (quotes_seen) |
1977
|
9512 |
271 |
else if (s > nameptr && *s != '\0' && s[-1] == '\'') { |
|
9239 |
273 |
else if (s > nameptr && *s != '\0' && s[-1] == '\'') { |
|
2 |
9237 |
else if (s > nameptr && *s != '\0' && s[-1] == '\'') { |
1980
|
1 |
1 |
if (quotes_seen++) |
1985
|
262 |
9 |
if (end) { |
1987
|
1 |
261 |
if (need_subst) { |
1988
|
1 |
0 |
STRLEN length = end - nameptr + quotes_seen - (*end == '\'' ? 1 : 0); |
1993
|
36 |
1 |
for (i = 0, j = 0; j < end - nameptr; ++i, ++j) { |
1994
|
1 |
35 |
if (nameptr[j] == '\'') { |
2011
|
271 |
0 |
if (PL_DBsub && CvGV(cv)) { |
|
271 |
0 |
if (PL_DBsub && CvGV(cv)) { |
2018
|
270 |
1 |
if (oldhv) { |
2019
|
270 |
0 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
270 |
0 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
0 |
270 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
0 |
0 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
270 |
0 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
0 |
270 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
0 |
270 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
0 |
270 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
270 |
0 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
270 |
0 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
0 |
270 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
0 |
0 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
270 |
0 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
0 |
270 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
270 |
0 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
270 |
0 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
0 |
270 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
0 |
0 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
270 |
0 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
|
0 |
270 |
SV* old_full_name = sv_2mortal(newSVpvn_flags(HvNAME(oldhv), HvNAMELEN_get(oldhv), HvNAMEUTF8(oldhv) ? SVf_UTF8 : 0)); |
2021
|
0 |
270 |
sv_catpvn_flags(old_full_name, GvNAME(oldgv), GvNAMELEN(oldgv), GvNAMEUTF8(oldgv) ? SV_CATUTF8 : SV_CATBYTES); |
2026
|
267 |
4 |
if (old_data && HeVAL(old_data)) { |
|
267 |
0 |
if (old_data && HeVAL(old_data)) { |
2028
|
267 |
0 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
267 |
0 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
0 |
267 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
0 |
0 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
267 |
0 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
0 |
267 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
0 |
267 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
4 |
263 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
267 |
0 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
267 |
0 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
0 |
267 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
0 |
0 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
267 |
0 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
0 |
267 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
267 |
0 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
267 |
0 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
0 |
267 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
0 |
0 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
267 |
0 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
|
0 |
267 |
SV* new_full_name = sv_2mortal(newSVpvn_flags(HvNAME(stash), HvNAMELEN_get(stash), HvNAMEUTF8(stash) ? SVf_UTF8 : 0)); |
2030
|
4 |
263 |
sv_catpvn_flags(new_full_name, nameptr, s - nameptr, utf8flag ? SV_CATUTF8 : SV_CATBYTES); |
2032
|
0 |
267 |
if (!hv_store_ent(DBsub, new_full_name, old_val, 0)) |
2048
|
6 |
265 |
while (mg && mg->mg_virtual != &subname_vtbl) |
|
0 |
6 |
while (mg && mg->mg_virtual != &subname_vtbl) |
2050
|
265 |
6 |
if (!mg) { |
2057
|
6 |
265 |
if (mg->mg_flags & MGf_REFCOUNTED) |
2078
|
0 |
8 |
if (!SvROK(code) && SvGMAGICAL(code)) |
|
0 |
0 |
if (!SvROK(code) && SvGMAGICAL(code)) |
2081
|
8 |
0 |
if(!SvROK(code) || SvTYPE(cv = (CV *)SvRV(code)) != SVt_PVCV) |
|
1 |
7 |
if(!SvROK(code) || SvTYPE(cv = (CV *)SvRV(code)) != SVt_PVCV) |
2084
|
0 |
7 |
if(!(gv = CvGV(cv))) |
2087
|
6 |
1 |
if(GvSTASH(gv)) |
2088
|
6 |
0 |
stashname = HvNAME(GvSTASH(gv)); |
|
6 |
0 |
stashname = HvNAME(GvSTASH(gv)); |
|
0 |
6 |
stashname = HvNAME(GvSTASH(gv)); |
|
0 |
0 |
stashname = HvNAME(GvSTASH(gv)); |
|
6 |
0 |
stashname = HvNAME(GvSTASH(gv)); |
|
0 |
6 |
stashname = HvNAME(GvSTASH(gv)); |
2108
|
38 |
0 |
if(SvTYPE(rmcgv) != SVt_PVGV) |
2110
|
0 |
38 |
rmcsv = GvSVn(rmcgv); |