line |
true |
false |
branch |
20
|
0 |
55 |
unless (keys %Config and exists $Config{'usecperl'}) |
26
|
55 |
0 |
if $] >= 5.008004 |
45
|
0 |
0 |
if ($section eq 'sv') |
47
|
0 |
0 |
$] >= 5.009005 ? : |
93
|
0 |
0 |
if $typename eq 'SV' and $] > 5.009005 and $] < 5.012 and not $C99 |
95
|
0 |
0 |
if $typename eq 'UNOPAUX' |
96
|
0 |
0 |
if $typename =~ /^AVCO[WG]_/ |
103
|
0 |
0 |
if @_ |
111
|
0 |
0 |
if $dbg |
118
|
0 |
0 |
if $B::C::check |
120
|
0 |
0 |
if $B::C::debug{'flags'} and $section->[-1]{'dbg'} |
121
|
0 |
0 |
if ($section->name eq 'sv') |
128
|
0 |
0 |
if (/(s\\_[0-9a-f]+)/) |
129
|
0 |
0 |
if (not exists $sym->{$1} and $1 ne 's\\_0') |
132
|
0 |
0 |
if ($B::C::verbose) |
134
|
0 |
0 |
if $caller eq 'B::C' |
139
|
0 |
0 |
exists $sym->{$1} ? : |
140
|
0 |
0 |
if ($dodbg and $section->[-1]{'dbg'}[$i]) |
143
|
0 |
0 |
if ($format eq "\t{ %s }, /* %s_list[%d] %s */%s\n") { } |
178
|
0 |
0 |
if $section->[-1]{'nosplit'} > 0 |
201
|
0 |
0 |
if (not $nosplit and $section->{'count'} >= $section->{'max_lines'}) |
232
|
0 |
0 |
if $B::C::check |
247
|
0 |
0 |
exists $sym->{$1} ? : |
250
|
0 |
0 |
if (@{$section->[-1]{'evals'};}) |
252
|
0 |
0 |
if ($section->name ne 'init2') { } |
270
|
0 |
0 |
if ($section->name eq 'init') |
311
|
0 |
0 |
if $] >= 5.01 |
316
|
0 |
0 |
keys %main::mro:: > 10 ? : |
320
|
55 |
0 |
if ($] >= 5.008) { } |
342
|
55 |
0 |
if ($] >= 5.008001) { } |
348
|
55 |
0 |
if ($] >= 5.01) { } |
354
|
55 |
0 |
if ($] >= 5.018) { } |
|
0 |
0 |
elsif ($] >= 5.014) { } |
|
0 |
0 |
elsif ($] >= 5.012) { } |
364
|
55 |
0 |
if ($] > 5.021006) { } |
380
|
0 |
55 |
if ($] < 5.018) { } |
395
|
55 |
0 |
if ($] > 5.021005) |
399
|
0 |
55 |
if ($Config{'usecperl'} and $] >= 5.022002) |
550
|
0 |
0 |
if $^O eq 'MSWin32' |
566
|
0 |
0 |
unless my $module = shift() |
567
|
0 |
0 |
unless my $modlibname = shift() |
573
|
0 |
0 |
unless $modlibname |
581
|
0 |
0 |
unless my $module = shift() |
|
0 |
0 |
unless my $modlibname = shift() |
|
0 |
0 |
if $DynaLoader::dl_debug |
|
0 |
0 |
if defined &$boots |
|
0 |
0 |
unless $modlibname |
|
0 |
0 |
if $DynaLoader::dl_debug and not -f $file |
|
0 |
0 |
unless -f $file |
|
0 |
0 |
if $DynaLoader::dl_debug |
|
0 |
0 |
if ($boot_symbol_ref = DynaLoader::dl_find_symbol(0, $bootname)) |
|
0 |
0 |
unless (my $libref = DynaLoader::dl_load_file($file, 0)) |
|
0 |
0 |
if (@unresolved) |
|
0 |
0 |
unless ($boot_symbol_ref = DynaLoader::dl_find_symbol($libref, $bootname)) |
|
0 |
0 |
if $DynaLoader::dl_debug |
|
0 |
0 |
if $DynaLoader::dl_debug |
680
|
0 |
0 |
if (@_) { } |
681
|
0 |
0 |
if (@_) { } |
685
|
0 |
0 |
if ($root) |
688
|
0 |
0 |
$verbose ? : |
712
|
0 |
0 |
if (not $op->can('sv')) { } |
713
|
0 |
0 |
if ($op->can('name') and $op->name eq 'padsv') |
716
|
0 |
0 |
if $pad[$op->targ] and $pad[$op->targ]->can('PV') |
720
|
0 |
0 |
if (ref $op eq 'B::PMOP' and $op->pmreplroot->can('sv')) { } |
723
|
0 |
0 |
unless $op->flags & 4 |
725
|
0 |
0 |
if $op->name eq 'const' and $op->flags & 64 |
726
|
0 |
0 |
unless $op->first->can('sv') |
734
|
0 |
0 |
if ($sv and $$sv) { } |
738
|
0 |
0 |
if $sv->can('PV') |
739
|
0 |
0 |
if (ref $sv eq 'B::SPECIAL') |
741
|
0 |
0 |
if $debug{'gv'} |
744
|
0 |
0 |
if ($sv->FLAGS & 2048) { } |
745
|
0 |
0 |
if $sv->isa('B::NULL') |
747
|
0 |
0 |
if ($rv->isa('B::PVGV')) |
749
|
0 |
0 |
if $$o |
751
|
0 |
0 |
if $rv->isa('B::PVMG') |
755
|
0 |
0 |
if ($op->name ne 'method_named') { } |
|
0 |
0 |
elsif ($sv->isa('B::IV')) { } |
769
|
0 |
0 |
if $pad[$op->targ] and $pad[$op->targ]->can('PV') |
774
|
0 |
0 |
if ($PERL522) |
816
|
0 |
0 |
if $sym eq 'sym_0' |
818
|
0 |
0 |
if (defined $value) { } |
822
|
0 |
0 |
if $warn_undefined_syms |
840
|
0 |
0 |
if (not $PERL56 and utf8::is_utf8($s)) { } |
852
|
0 |
0 |
if exists $stashtable{$name} |
854
|
0 |
0 |
$flags ? : |
858
|
0 |
0 |
if ($PERL518 and $name) |
861
|
0 |
0 |
if (@isa and exists do {
$name . '::'
}->{'ISA'}) |
865
|
0 |
0 |
$len ? : |
884
|
0 |
0 |
if ($PERL514) { } |
|
0 |
0 |
elsif ($PERL510) { } |
886
|
0 |
0 |
$C99 ? : |
894
|
0 |
0 |
$PERL514 ? : |
896
|
0 |
0 |
$C99 ? : |
900
|
0 |
0 |
if $len |
919
|
0 |
0 |
if defined $strtable{$cstring} |
921
|
0 |
0 |
$const ? : |
922
|
0 |
0 |
if (defined $max_string_len and $cur > $max_string_len) { } |
927
|
0 |
0 |
if ($cstring ne '0') |
937
|
0 |
0 |
unless ($fullname) |
966
|
0 |
0 |
IsCOW($sv) || $cow && $PERL518 ? : |
972
|
0 |
0 |
if ($rok and not $PERL56) { } |
974
|
0 |
0 |
if $debug{'sv'} |
975
|
0 |
0 |
$PERL510 ? : |
977
|
0 |
0 |
if ($savesym =~ /get_cv/) |
984
|
0 |
0 |
if ($pok) { } |
986
|
0 |
0 |
$sv && $sv->can('CUR') && ref $sv ne 'B::GV' ? : |
988
|
0 |
0 |
if ($] < 5.008008 and $cur > 100 and $fullname =~ / :pad\[0\]/ and $pv =~ /\0\0/) |
990
|
0 |
0 |
if ($i > -1) |
993
|
0 |
0 |
if $verbose |
998
|
0 |
0 |
if ($gmg and $fullname) { } |
1000
|
0 |
0 |
$fullname && ref $fullname ? : |
1007
|
0 |
0 |
$PERL510 ? : |
1008
|
0 |
0 |
$shared_hek ? : |
1009
|
0 |
0 |
$const_strings || $iscow || $flags & 134217728 ? : |
1011
|
0 |
0 |
if $shared_hek or $fullname and $fullname =~ / :pad/ || $fullname =~ /^DynaLoader/ && $pv =~ /^boot_/ |
1014
|
0 |
0 |
if $static and $pv =~ /::bootstrap$/ |
1015
|
0 |
0 |
if $static and $] > 5.017 and ref $sv eq 'B::PVMG' |
1016
|
0 |
0 |
if $static and $const_strings and $fullname and $fullname =~ /^warnings::(Dead)?Bits/ || $fullname =~ /::AUTOLOAD$/ |
1018
|
0 |
0 |
if ($shared_hek and $pok and not $cur) |
1019
|
0 |
0 |
if $debug{'pv'} or $debug{'hv'} |
1020
|
0 |
0 |
unless $fullname =~ /unopaux_item.* const/ |
1023
|
0 |
0 |
if ($static and $PERL510) |
1024
|
0 |
0 |
if $flags & 1073741824 |
|
0 |
0 |
if ($] < 5.016) { } |
|
0 |
0 |
elsif ($] < 5.02 and $fullname =~ /(^svop const|::VERSION)$/) { } |
|
0 |
0 |
elsif ($] < 5.022 and $flags & 1) { } |
1027
|
0 |
0 |
if $debug{'pv'} |
1031
|
0 |
0 |
if $debug{'pv'} |
1035
|
0 |
0 |
if ($pok) { } |
1047
|
0 |
0 |
if ($static and $] < 5.017006 and not $pv =~ /^0?$/) |
1051
|
0 |
0 |
if ($const_strings and ref $sv eq 'B::PVMG' and $flags & 4194304 and $fullname =~ /ISA/) |
1055
|
0 |
0 |
if ($static) { } |
1058
|
0 |
0 |
if ($iscow and $PERL518) { } |
1059
|
0 |
0 |
if ($B::C::Config::have_HEK_STATIC) { } |
|
0 |
0 |
elsif ($cow) { } |
1078
|
0 |
0 |
if ($savesym =~ /\)?get_cv/) |
1084
|
0 |
0 |
if ($iscow) { } |
1092
|
0 |
0 |
if ($shared_hek) { } |
1093
|
0 |
0 |
if ($savesym eq 'emptystring') { } |
1095
|
0 |
0 |
if $PERL518 |
1101
|
0 |
0 |
if ($iscow and $cur and $PERL518) |
1119
|
0 |
0 |
$shared_hek ? : |
|
0 |
0 |
if $debug{'pv'} |
1130
|
0 |
0 |
unless defined $str |
1131
|
0 |
0 |
if $dynamic and not length $str and not @_ and not $fullname =~ /unopaux_item.* const/ |
1137
|
0 |
0 |
if ($dynamic and defined $hektable{$hek_key}) |
1140
|
0 |
0 |
if (not $dynamic and defined $statichektable{$hek_key}) |
1143
|
0 |
0 |
if $utf8 |
1144
|
0 |
0 |
if $cstr eq '0' |
1146
|
0 |
0 |
if (not $dynamic) { } |
1151
|
0 |
0 |
if ($key =~ /\\000\\001"$/) |
1156
|
0 |
0 |
if (not $utf8) { } |
1171
|
0 |
0 |
if $debug{'pv'} |
1191
|
0 |
0 |
unless defined $flags |
1192
|
0 |
0 |
unless defined $type |
1194
|
0 |
0 |
if ($] >= 5.009002) { } |
1195
|
0 |
0 |
length $flags ? : |
|
0 |
0 |
if $utf8 |
1205
|
0 |
0 |
if $name eq '__ANON__' |
1207
|
0 |
0 |
unless defined $flags |
1208
|
0 |
0 |
if ($] >= 5.009002) { } |
1209
|
0 |
0 |
length $flags ? : |
|
0 |
0 |
if $utf8 |
1221
|
0 |
0 |
unless ($ivdformat) |
1222
|
0 |
0 |
$Config{'ivsize'} == 4 ? : |
1228
|
0 |
0 |
if $Config{'ivsize'} == 2 * $Config{'ptrsize'} |
1230
|
0 |
0 |
$ivx > $intmax ? : |
1231
|
0 |
0 |
if ($ivx < -$intmax) |
1234
|
0 |
0 |
if ($INC{'POSIX.pm'}) |
1236
|
0 |
0 |
if ($ivx == POSIX::LONG_MIN()) { } |
|
0 |
0 |
elsif ($ivx == POSIX::LONG_MAX()) { } |
1246
|
0 |
0 |
if $sval =~ /(NAN|inf)$/i |
1256
|
0 |
0 |
if (defined $nvx) |
1257
|
0 |
0 |
if ($Config{'d_isinf'} or $] < 5.012) |
1258
|
0 |
0 |
if $nvx =~ /^Inf/i |
1259
|
0 |
0 |
if $nvx =~ /^-Inf/i |
1261
|
0 |
0 |
if $nvx =~ /^NaN/i and $Config{'d_isnan'} || $] < 5.012 |
1268
|
0 |
0 |
unless ($nvgformat) |
1273
|
0 |
0 |
if ($nvgformat eq 'g') |
1276
|
0 |
0 |
$Config{'uselongdouble'} ? : |
1278
|
0 |
0 |
$nvx > $dblmax ? : |
1279
|
0 |
0 |
if $nvx < -$dblmax |
1280
|
0 |
0 |
if ($INC{'POSIX.pm'}) { } |
1281
|
0 |
0 |
if ($nvx == POSIX::DBL_MIN()) { } |
|
0 |
0 |
elsif ($nvx == POSIX::DBL_MAX()) { } |
1289
|
0 |
0 |
if ($nvx == $dblmax) |
1294
|
0 |
0 |
if ($Config{'d_longdbl'}) |
1296
|
0 |
0 |
if ($INC{'POSIX.pm'}) |
1299
|
0 |
0 |
if ($posix) { } |
|
0 |
0 |
elsif ($nvx == $ldblmax) { } |
1300
|
0 |
0 |
if ($nvx == $posix) { } |
|
0 |
0 |
elsif ($nvx == POSIX::LDBL_MAX()) { } |
1310
|
0 |
0 |
if $sval =~ /(NAN|inf)$/i |
1311
|
0 |
0 |
if $sval =~ /^-?\d+$/ |
1317
|
0 |
0 |
if $debug{'mg'} |
1318
|
0 |
0 |
if (not ref $sym) { } |
1332
|
0 |
0 |
unless ($include_package{$pkg_heavy} or exists $savINC{$pkg_heavy}) |
1339
|
0 |
0 |
if $debug{'pkg'} |
1353
|
0 |
0 |
unless $op->can('name') |
1354
|
0 |
0 |
if ($op->type == $OP_CUSTOM) |
1355
|
0 |
0 |
$verbose ? : |
1357
|
0 |
0 |
$verbose ? : |
|
0 |
0 |
$optimize_ppaddr ? : |
1441
|
0 |
0 |
$MAD ? : |
1443
|
0 |
0 |
if ($static =~ / %d,/) { } |
1445
|
0 |
0 |
if (ref $op eq 'B::FAKEOP') { } |
|
0 |
0 |
elsif ($] < 5.0210011) { } |
1462
|
0 |
0 |
if ($B::C::Config::have_op_rettype) |
1483
|
0 |
0 |
if ($op->type > 0 and $op->name eq 'entersub' and $op->first and $op->first->can('name') and $op->first->name eq 'pushmark' and $op->first->next->name eq 'const' && $op->first->next->flags == 34 || $op->first->next->name eq 'padsv' || $] < 5.01 && $op->first->next->name eq 'gvsv' && !$op->first->next->type && $op->first->next->next->name eq 'const' && $op->first->next->next->flags == 34) |
1493
|
0 |
0 |
if ($] < 5.01 and not $op->first->next->type) |
1496
|
0 |
0 |
if $debug{'cv'} |
1498
|
0 |
0 |
if ($pv and not $pv =~ /[! \(]/) { } |
1503
|
0 |
0 |
if $debug{'cv'} |
1506
|
0 |
0 |
if ($op->type == $OP_CUSTOM) |
1507
|
0 |
0 |
if $verbose |
1511
|
0 |
0 |
if ($have_sibparent and not $op->moresib) { } |
1513
|
0 |
0 |
if $verbose and $debug{'op'} |
1527
|
0 |
0 |
if defined $sym |
1528
|
0 |
0 |
unless $level |
1530
|
0 |
0 |
unless $type |
1531
|
0 |
0 |
if ($type == $OP_THREADSV) |
1535
|
0 |
0 |
if ($type == $OP_UCFIRST) |
1537
|
0 |
0 |
if ($] >= 5.013009) |
1538
|
0 |
0 |
if $verbose |
1539
|
0 |
0 |
unless $savINC{'utf8.pm'} |
1544
|
0 |
0 |
if (ref $op eq 'B::OP') |
1548
|
0 |
0 |
if ($op->name eq 'entertry') |
1549
|
0 |
0 |
if $verbose |
1556
|
0 |
0 |
if ($PERL510 and not $type and $OP_COP{$op->targ}) { } |
1557
|
0 |
0 |
if $debug{'cops'} |
1570
|
0 |
0 |
if ($ITHREADS and $] >= 5.017) { } |
|
0 |
0 |
elsif ($ITHREADS and $] >= 5.016) { } |
|
0 |
0 |
elsif ($ITHREADS and $] >= 5.015004) { } |
|
0 |
0 |
elsif ($PERL512) { } |
|
0 |
0 |
elsif ($PERL510) { } |
1591
|
0 |
0 |
$ITHREADS ? : |
1606
|
0 |
0 |
unless $optimize_ppaddr |
1614
|
0 |
0 |
if $debug{'flags'} |
1616
|
0 |
0 |
unless $optimize_ppaddr |
1619
|
0 |
0 |
if $debug{'op'} |
1643
|
0 |
0 |
unless $B::C::optimize_ppaddr |
1649
|
0 |
0 |
unless $_[0]{'next'} |
1650
|
0 |
0 |
unless $_[0]{'type'} |
1651
|
0 |
0 |
unless $_[0]{'sibling'} |
1652
|
0 |
0 |
unless $_[0]{'moresib'} |
1653
|
0 |
0 |
unless $_[0]{'parent'} |
1654
|
0 |
0 |
unless $_[0]{'ppaddr'} |
1655
|
0 |
0 |
unless $_[0]{'targ'} |
1656
|
0 |
0 |
unless $_[0]{'flags'} |
1657
|
0 |
0 |
unless $_[0]{'private'} |
1658
|
0 |
0 |
unless $_[0]{'rettype'} |
1671
|
0 |
0 |
if $m |
1672
|
0 |
0 |
if ($mo and $$mo) |
1674
|
0 |
0 |
if $m ne 'first' or $op->flags & 4 and not $op->name eq 'const' && $op->flags & 64 |
1684
|
0 |
0 |
if defined $sym |
1685
|
0 |
0 |
unless $level |
1688
|
0 |
0 |
if $debug{'flags'} |
1690
|
0 |
0 |
unless $optimize_ppaddr |
1693
|
0 |
0 |
if ($op->name eq 'method' and $op->first and $op->first->name eq 'const') |
1695
|
0 |
0 |
if (not $method and $ITHREADS) |
1698
|
0 |
0 |
if $debug{'pkg'} and $ITHREADS |
1700
|
0 |
0 |
if ($method =~ /^(maybe::next|maybe|next)::(method|can)$/) { } |
|
0 |
0 |
elsif ($method =~ /^(NEXT|EVERY)::/) { } |
1701
|
0 |
0 |
if $debug{'pkg'} |
1706
|
0 |
0 |
if $debug{'pkg'} |
1708
|
0 |
0 |
if $1 ne 'NEXT' |
1717
|
0 |
0 |
if $s =~ /^(&sv_list|\-?\d+|Nullsv)/ |
1724
|
0 |
0 |
if defined $sym |
1725
|
0 |
0 |
unless $level |
1726
|
0 |
0 |
$op->name eq 'multideref' ? : |
1735
|
0 |
0 |
if $debug{'flags'} |
1738
|
0 |
0 |
$C99 ? : |
1742
|
0 |
0 |
if (not ref $item) { } |
1745
|
0 |
0 |
if ($verbose) |
1746
|
0 |
0 |
if ($op->name eq 'multideref') { } |
|
0 |
0 |
elsif ($op->name eq 'signature') { } |
1748
|
0 |
0 |
if $act == 1 |
1749
|
0 |
0 |
if $act == 2 |
1750
|
0 |
0 |
if $act == 3 |
1751
|
0 |
0 |
if $act == 4 |
1752
|
0 |
0 |
if $act == 5 |
1753
|
0 |
0 |
if $act == 6 |
1754
|
0 |
0 |
if $act == 8 |
1755
|
0 |
0 |
if $act == 9 |
1756
|
0 |
0 |
if $act == 10 |
1757
|
0 |
0 |
if $act == 11 |
1758
|
0 |
0 |
if $act == 12 |
1759
|
0 |
0 |
if $act == 13 |
1761
|
0 |
0 |
if $idx == 0 |
1762
|
0 |
0 |
if $idx == 16 |
1763
|
0 |
0 |
if $idx == 32 |
1764
|
0 |
0 |
if $idx == 48 |
1768
|
0 |
0 |
if $act == 0 |
1769
|
0 |
0 |
if $act == 1 |
1770
|
0 |
0 |
if $act == 2 |
1771
|
0 |
0 |
if $act == 3 |
1772
|
0 |
0 |
if $act == 4 |
1773
|
0 |
0 |
if $act == 5 |
1774
|
0 |
0 |
if $act == 6 |
1775
|
0 |
0 |
if $act == 7 |
1776
|
0 |
0 |
if $act == 8 |
1777
|
0 |
0 |
if $act == 9 |
1778
|
0 |
0 |
if $act == 10 |
1779
|
0 |
0 |
if $act == 11 |
1780
|
0 |
0 |
if $act == 12 |
1781
|
0 |
0 |
if $act == 13 |
1782
|
0 |
0 |
if $act == 14 |
1784
|
0 |
0 |
if $idx == 0 |
1785
|
0 |
0 |
if $idx == 16 |
1786
|
0 |
0 |
if $idx == 32 |
1792
|
0 |
0 |
if $debug{'hv'} |
1793
|
0 |
0 |
$C99 ? : |
1803
|
0 |
0 |
($action & 48) == 16 ? : |
1804
|
0 |
0 |
$constkey ? : |
1805
|
0 |
0 |
if (is_constant($itemsym)) { } |
1806
|
0 |
0 |
if (ref $item eq 'B::IV') { } |
|
0 |
0 |
elsif (ref $item eq 'B::UV') { } |
1808
|
0 |
0 |
$C99 ? : |
1812
|
0 |
0 |
$C99 ? : |
1815
|
0 |
0 |
$C99 ? : |
1820
|
0 |
0 |
$C99 ? : |
1828
|
0 |
0 |
unless $optimize_ppaddr |
1861
|
0 |
0 |
if defined $sym |
1864
|
0 |
0 |
unless $level |
1871
|
0 |
0 |
if $debug{'flags'} |
1874
|
0 |
0 |
if ($op->type == $OP_CUSTOM) { } |
1876
|
0 |
0 |
if ($] >= 5.019003 and $op->name eq 'Devel_Peek_Dump' || $op->name eq 'Dump') { } |
1877
|
0 |
0 |
if $verbose |
1878
|
0 |
0 |
unless $B::C::Devel_Peek_Dump_added |
1905
|
0 |
0 |
if $verbose |
1910
|
0 |
0 |
unless $optimize_ppaddr |
1921
|
0 |
0 |
if defined $sym |
1922
|
0 |
0 |
unless $level |
1929
|
0 |
0 |
if $debug{'flags'} |
1931
|
0 |
0 |
unless $optimize_ppaddr |
1934
|
0 |
0 |
if ($op->type == $OP_DBMOPEN) { } |
|
0 |
0 |
elsif ($op->type == $OP_FORMLINE and $const_strings) { } |
1937
|
0 |
0 |
unless $savINC{'AnyDBM_File.pm'} |
1950
|
0 |
0 |
if ($svop->name eq 'const' and $svop->can('sv')) |
1953
|
0 |
0 |
if ($sv and $sv->can('PV') and $sv->PV and $sv->PV =~ /~/m) |
1955
|
0 |
0 |
if $debug{'pv'} |
1968
|
0 |
0 |
if defined $sym |
1969
|
0 |
0 |
unless $level |
1976
|
0 |
0 |
if $debug{'flags'} |
1978
|
0 |
0 |
unless $optimize_ppaddr |
1988
|
0 |
0 |
if defined $sym |
1990
|
0 |
0 |
unless $level |
2006
|
0 |
0 |
if $debug{'flags'} |
2008
|
0 |
0 |
unless $optimize_ppaddr |
2018
|
0 |
0 |
if defined $sym |
2019
|
0 |
0 |
unless $level |
2021
|
0 |
0 |
$op->name eq 'method' ? : |
2022
|
0 |
0 |
unless $C99 |
2023
|
0 |
0 |
$ITHREADS ? : |
2025
|
0 |
0 |
$ITHREADS ? : |
2026
|
0 |
0 |
if ($rclass =~ /^&sv_list/) |
2035
|
0 |
0 |
$op->name eq 'method' ? : |
2036
|
0 |
0 |
if ($first =~ /^&sv_list/) |
2040
|
0 |
0 |
if not $C99 and $first eq 'Nullsv' |
2042
|
0 |
0 |
if $debug{'flags'} |
2043
|
0 |
0 |
unless $optimize_ppaddr |
2046
|
0 |
0 |
if ($op->name eq 'method') { } |
2057
|
0 |
0 |
if defined $sym |
2058
|
0 |
0 |
unless $level |
2062
|
0 |
0 |
if $debug{'flags'} |
2064
|
0 |
0 |
unless $optimize_ppaddr |
2075
|
0 |
0 |
unless my $p = shift() |
2077
|
0 |
0 |
if $debug{'cv'} or $debug{'pkg'} and not grep({$p eq $_;} @package_pv) |
2078
|
0 |
0 |
if @package_pv |
2086
|
0 |
0 |
unless $name |
2088
|
0 |
0 |
$cop ? : |
2093
|
0 |
0 |
if (ref $name eq 'B::CV') |
2100
|
0 |
0 |
unless defined $_ |
2102
|
0 |
0 |
if (defined &$method) { } |
2103
|
0 |
0 |
if $debug{'cv'} |
2108
|
0 |
0 |
if (my $parent = try_isa($_, $name)) |
2109
|
0 |
0 |
if $debug{'cv'} |
2114
|
0 |
0 |
if $debug{'cv'} |
2121
|
0 |
0 |
unless $method |
2122
|
0 |
0 |
if (exists &$method) { } |
2123
|
0 |
0 |
if $debug{'cv'} |
2136
|
0 |
0 |
if ($op->can('name') and $op->name eq 'padsv' || $op->name eq 'method_named' || ref $op eq 'B::SVOP') |
2140
|
0 |
0 |
if $cv and ref $cv->PADLIST eq 'B::SPECIAL' |
2141
|
0 |
0 |
$cv && ref $cv eq 'B::CV' && ref $cv->PADLIST ne 'B::NULL' ? : |
2145
|
0 |
0 |
$op->can('padix') ? : |
2148
|
0 |
0 |
if (defined $t and ref $t ne 'B::SPECIAL') { } |
|
0 |
0 |
elsif ($sv) { } |
2149
|
0 |
0 |
$t->can('PVX') ? : |
|
0 |
0 |
$sv->can('PV') ? : |
2151
|
0 |
0 |
ref $t eq 'B::PVMG' && ref $t->SvSTASH ne 'B::SPECIAL' ? : |
2152
|
0 |
0 |
wantarray ? : |
2154
|
0 |
0 |
if $sv->can('PV') |
2155
|
0 |
0 |
if $sv->can('STASH') |
2156
|
0 |
0 |
wantarray ? : |
2165
|
0 |
0 |
if ($op->can('name') and $op->name eq 'padsv') { } |
2167
|
0 |
0 |
$r[1] ? : |
|
0 |
0 |
wantarray ? : |
2169
|
0 |
0 |
if (not $op->can('sv')) { } |
2170
|
0 |
0 |
if (ref $op eq 'B::PMOP' and $op->pmreplroot->can('sv')) { } |
2173
|
0 |
0 |
unless $op->flags & 4 or $op->name eq 'const' and $op->flags & 34 or $op->first->can('sv') |
2179
|
0 |
0 |
if ($sv and $$sv) |
2180
|
0 |
0 |
if ($sv->FLAGS & 2048) { } |
2181
|
0 |
0 |
if $sv->isa('B::NULL') |
2183
|
0 |
0 |
if ($rv->isa('B::PVGV')) |
2185
|
0 |
0 |
if $$o |
2187
|
0 |
0 |
if $rv->isa('B::PVMG') |
2190
|
0 |
0 |
if ($op->name eq 'gvsv') { } |
|
0 |
0 |
elsif ($op->name eq 'gv') { } |
2191
|
0 |
0 |
wantarray ? : |
2193
|
0 |
0 |
wantarray ? : |
2195
|
0 |
0 |
$sv->can('NAME') ? : |
|
0 |
0 |
$sv->can('STASH') ? : |
2207
|
0 |
0 |
$op && ref $op eq 'B::COP' ? : |
2212
|
0 |
0 |
if ($sym =~ /\(SV\*\)?\&PL_sv_(yes|no|undef|placeholder)/) |
2221
|
0 |
0 |
if defined $sym |
2222
|
0 |
0 |
unless $level |
2225
|
0 |
0 |
if ($op->name eq 'aelemfast' and $op->flags & 128) { } |
|
0 |
0 |
elsif ($op->name eq 'gv' and $op->next and $op->next->name eq 'rv2cv' and $op->next->next and $op->next->next->name eq 'defined') { } |
2227
|
0 |
0 |
if $debug{'sv'} |
2233
|
0 |
0 |
if (not $gvsv =~ /^DynaLoader::/) { } |
2234
|
0 |
0 |
if $debug{'gv'} |
2242
|
0 |
0 |
if ($svsym =~ /^(gv_|PL_.*gv)/) { } |
|
0 |
0 |
elsif ($svsym =~ /^\([SAHC]V\*\)\&sv_list/) { } |
2249
|
0 |
0 |
if $svsym =~ /^\(SV\*\)lexwarn/ |
2251
|
0 |
0 |
if ($op->name eq 'method_named') |
2253
|
0 |
0 |
if $cv |
2256
|
0 |
0 |
if ($MULTI and svimmortal($svsym)) |
2260
|
0 |
0 |
$is_const_addr ? : |
2263
|
0 |
0 |
if $debug{'flags'} |
2265
|
0 |
0 |
unless $optimize_ppaddr |
2267
|
0 |
0 |
unless $is_const_addr |
2275
|
0 |
0 |
if defined $sym |
2276
|
0 |
0 |
unless $level |
2278
|
0 |
0 |
if ($op->name eq 'method_named') { } |
|
0 |
0 |
elsif ($op->name eq 'gv' and $op->next and $op->next->name eq 'rv2cv' and $op->next->next and $op->next->next->name eq 'defined') { } |
2280
|
0 |
0 |
if $cv |
2287
|
0 |
0 |
if ($op->name eq 'padsv' or $op->name eq 'gvsv' or $op->name eq 'gv') |
2290
|
0 |
0 |
$op->can('padix') ? : |
2292
|
0 |
0 |
if ($sv and $$sv) |
2294
|
0 |
0 |
if ($skip_defined and not $name =~ /^DynaLoader::/) { } |
2295
|
0 |
0 |
if $debug{'gv'} |
2297
|
0 |
0 |
$name ? : |
2303
|
0 |
0 |
if $debug{'flags'} |
2305
|
0 |
0 |
unless $optimize_ppaddr |
2313
|
0 |
0 |
if defined $sym |
2315
|
0 |
0 |
unless $level |
2318
|
0 |
0 |
if ($optimize_cop and $level and not $op->label and ref $prev_op ne 'B::LISTOP') |
2322
|
0 |
0 |
if $debug{'cops'} |
2328
|
0 |
0 |
if $debug{'cops'} |
2334
|
0 |
0 |
$PERL510 ? : |
2335
|
0 |
0 |
if ($is_special and $$warnings == 4) { } |
|
0 |
0 |
elsif ($is_special and $$warnings == 5) { } |
|
0 |
0 |
elsif ($is_special) { } |
2352
|
0 |
0 |
if substr($warn_sv, 0, 3) eq '&sv' |
2354
|
0 |
0 |
unless $optimize_warn_sv and $PERL510 |
2359
|
0 |
0 |
$PERL510 && !$is_special ? : |
2361
|
0 |
0 |
if $Config{'usecperl'} and $] >= 5.022002 |
2367
|
0 |
0 |
if ($PERL512) { } |
|
0 |
0 |
elsif ($PERL510) { } |
2368
|
0 |
0 |
if ($ITHREADS and $] >= 5.017) { } |
|
0 |
0 |
elsif ($ITHREADS and $] >= 5.016) { } |
|
0 |
0 |
elsif ($ITHREADS and $] >= 5.015004 and $] < 5.016) { } |
2371
|
0 |
0 |
!$dynamic_copwarn ? : |
2382
|
0 |
0 |
$op->can('stashlen') ? : |
|
0 |
0 |
!$dynamic_copwarn ? : |
2395
|
0 |
0 |
!$dynamic_copwarn ? : |
2406
|
0 |
0 |
$ITHREADS ? : |
|
0 |
0 |
$ITHREADS ? : |
|
0 |
0 |
!$dynamic_copwarn ? : |
2414
|
0 |
0 |
if ($op->label) |
2420
|
0 |
0 |
!$dynamic_copwarn ? : |
2425
|
0 |
0 |
if ($op->label) |
2433
|
0 |
0 |
!$dynamic_copwarn ? : |
|
0 |
0 |
$PERL56 ? : |
2442
|
0 |
0 |
if $debug{'flags'} |
2444
|
0 |
0 |
unless $optimize_ppaddr |
2448
|
0 |
0 |
if ($PERL510 and $op->hints_hash) |
2450
|
0 |
0 |
if ($$hints) |
2451
|
0 |
0 |
if (exists $cophhtable{$$hints}) { } |
2455
|
0 |
0 |
if ref $hints eq 'B::RHE' |
2462
|
0 |
0 |
if $k eq ':' |
2464
|
0 |
0 |
if ($utf8) { } |
2465
|
0 |
0 |
$i ? : |
2468
|
0 |
0 |
$i ? : |
2484
|
0 |
0 |
if ($add_label) |
2487
|
0 |
0 |
if ($] >= 5.015001) { } |
|
0 |
0 |
elsif ($] > 5.013004) { } |
|
0 |
0 |
elsif (not $^O =~ /^(MSWin32|AIX)$/ || $ENV{'PERL_DL_NONLAZY'}) { } |
2488
|
0 |
0 |
if $utf8 and $verbose |
2495
|
0 |
0 |
if $i |
2503
|
0 |
0 |
if ($PERL510 and not $is_special and not $isint) { } |
2508
|
0 |
0 |
if ($copw) |
2524
|
0 |
0 |
unless $optimize_warn_sv |
2528
|
0 |
0 |
unless ($optimize_cop) |
2531
|
0 |
0 |
if (not $ITHREADS) { } |
2532
|
0 |
0 |
if ($const_strings) { } |
2536
|
0 |
0 |
unless ($copgvtable{$constpv}) |
2552
|
0 |
0 |
if (not $mainfile) { } |
2553
|
0 |
0 |
if $op->stashpv eq 'main' |
2555
|
0 |
0 |
if $mainfile eq $op->file and $op->stashpv ne 'main' |
2564
|
0 |
0 |
if ($] >= 5.021006 and $pmflags & 1 or $qstr =~ /\\P\{/) { } |
2579
|
0 |
0 |
if defined $sym |
2581
|
0 |
0 |
if ($] < 5.008008 and $ITHREADS and $$op < 256) |
2585
|
0 |
0 |
unless $level |
2591
|
0 |
0 |
if ref $replroot |
2592
|
0 |
0 |
if ($ITHREADS and $op->name eq 'pushre') { } |
|
0 |
0 |
elsif ($$replroot) { } |
2593
|
0 |
0 |
if $debug{'gv'} |
2600
|
0 |
0 |
if ($op->name eq 'pushre') { } |
2601
|
0 |
0 |
if $debug{'gv'} |
2604
|
0 |
0 |
if $replstart |
2607
|
0 |
0 |
if $replstart |
2616
|
0 |
0 |
if ($PERL510) { } |
|
0 |
0 |
elsif ($PERL56) { } |
2623
|
0 |
0 |
$ITHREADS ? : |
2626
|
0 |
0 |
if ($] >= 5.017) |
2628
|
0 |
0 |
if ($code_list and $$code_list) |
2630
|
0 |
0 |
if $debug{'gv'} |
2632
|
0 |
0 |
if $code_op |
2635
|
0 |
0 |
if $debug{'gv'} |
2659
|
0 |
0 |
$ITHREADS ? : |
|
0 |
0 |
$MULTI ? : |
2664
|
0 |
0 |
if (not $MULTI and $op->pmstash) |
2669
|
0 |
0 |
if $debug{'flags'} |
2671
|
0 |
0 |
unless $optimize_ppaddr |
2674
|
0 |
0 |
if (defined $re) |
2677
|
0 |
0 |
if ($PERL510) { } |
|
0 |
0 |
elsif ($PERL56) { } |
2683
|
0 |
0 |
if $debug{'pv'} or $debug{'gv'} |
2685
|
0 |
0 |
if ($] >= 5.013009 and $pmflags & 4) |
2688
|
0 |
0 |
if ($PERL518 and not $swash_init and $swash_ToCf) |
2696
|
0 |
0 |
if ($utf8 and $] >= 5.013009 and $pmflags & 1 or re_does_swash($qre, $pmflags)) { } |
2700
|
0 |
0 |
if $debug{'sv'} |
2702
|
0 |
0 |
if $debug{'sv'} |
2704
|
0 |
0 |
if ($PERL518 and $op->reflags & 131072) |
2711
|
0 |
0 |
if ($] > 5.008008) { } |
2721
|
0 |
0 |
if $utf8 |
2723
|
0 |
0 |
if ($] >= 5.018 and $op->reflags & 131072) |
2730
|
0 |
0 |
if ($PERL510 and $op->pmflags & 65536) |
2731
|
0 |
0 |
ref $op->pmstash eq 'B::HV' ? : |
|
0 |
0 |
$MULTI ? : |
2749
|
0 |
0 |
if ($gvsym) |
2750
|
0 |
0 |
if ($PERL510) { } |
2764
|
0 |
0 |
unless @B::C::specialsv_name |
2767
|
0 |
0 |
unless (defined $sym) |
2778
|
0 |
0 |
if defined $sym |
2781
|
0 |
0 |
if ($$sv == 0) |
2782
|
0 |
0 |
if $verbose |
2787
|
0 |
0 |
if $debug{'sv'} |
2788
|
0 |
0 |
$PERL510 ? : |
2791
|
0 |
0 |
if ($debug{'flags'} and !$ITHREADS || $PERL514 and $DEBUG_LEAKING_SCALARS) |
2802
|
0 |
0 |
if defined $sym |
2808
|
0 |
0 |
if $uvx > 2147483647 |
2810
|
0 |
0 |
if ($PERL524) { } |
|
0 |
0 |
elsif ($PERL514) { } |
|
0 |
0 |
elsif ($PERL510) { } |
2823
|
0 |
0 |
if ($PERL524) { } |
2824
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$PERL510 ? : |
2828
|
0 |
0 |
if ($Config{'ptrsize'} == 4 and not &IS_MSVC()) { } |
2835
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$PERL510 ? : |
2839
|
0 |
0 |
if $debug{'flags'} |
2842
|
0 |
0 |
if $debug{'sv'} |
2849
|
0 |
0 |
if defined $sym |
2852
|
0 |
0 |
if ($PERL512 and $svflags & 2048) |
2855
|
0 |
0 |
if ($svflags & 2147483648) |
2860
|
0 |
0 |
if ($svflags & 255 and not $svflags & 4352) |
2861
|
0 |
0 |
unless ($PERL510 and $svflags & 65536 or not $PERL510 and $svflags & 256 or $] > 5.015002 and $svflags & 393218) |
2867
|
0 |
0 |
if ($PERL524) { } |
|
0 |
0 |
elsif ($PERL514) { } |
|
0 |
0 |
elsif ($PERL510) { } |
2879
|
0 |
0 |
if ($PERL524) { } |
2880
|
0 |
0 |
$C99 ? : |
2883
|
0 |
0 |
if ($Config{'ptrsize'} == 4 and not &IS_MSVC()) { } |
2890
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$PERL510 ? : |
2893
|
0 |
0 |
if $debug{'flags'} |
2896
|
0 |
0 |
if $debug{'sv'} |
2903
|
0 |
0 |
if defined $sym |
2905
|
0 |
0 |
if $nv =~ /^-?\d+$/ |
2907
|
0 |
0 |
$sv->FLAGS & 256 ? : |
2908
|
0 |
0 |
if &IS_MSVC() and not $nv |
2909
|
0 |
0 |
if ($PERL514) { } |
|
0 |
0 |
elsif ($PERL510) { } |
2920
|
0 |
0 |
$PERL510 ? : |
2923
|
0 |
0 |
if $debug{'flags'} |
2926
|
0 |
0 |
if $debug{'sv'} |
2935
|
0 |
0 |
if defined $pv |
2936
|
0 |
0 |
if (defined $max_string_len and length $pv > $max_string_len) { } |
2948
|
0 |
0 |
if $debug{'sv'} or $debug{'pv'} |
2953
|
0 |
0 |
if ($PERL510 and $sv and ($sv->FLAGS & 150994944) == 150994944) { } |
2954
|
0 |
0 |
if $debug{'sv'} |
2956
|
0 |
0 |
unless $hek eq 'NULL' |
2957
|
0 |
0 |
if ($DEBUGGING) |
2962
|
0 |
0 |
if (not $cstr and $cstr == 0) |
2965
|
0 |
0 |
if ($sv and IsCOW($sv)) |
2967
|
0 |
0 |
unless ($cstr =~ /\\000\\00\d"$/) |
2971
|
0 |
0 |
if $debug{'sv'} |
2975
|
0 |
0 |
if $debug{'sv'} |
2985
|
0 |
0 |
if (defined $sym) |
2986
|
0 |
0 |
if ($in_endav) |
2987
|
0 |
0 |
if $debug{'av'} |
2995
|
0 |
0 |
if ($PERL514) { } |
|
0 |
0 |
elsif ($PERL510) { } |
3001
|
0 |
0 |
if $tmp_pvsym =~ /^hek/ and $static |
3010
|
0 |
0 |
$C99 ? : |
3022
|
0 |
0 |
if $debug{'flags'} |
3024
|
0 |
0 |
if (not $static) { } |
|
0 |
0 |
elsif ($tmp_pvsym eq 'NULL' and $pvsym =~ /^hek/) { } |
3025
|
0 |
0 |
if ($PERL510) { } |
3041
|
0 |
0 |
if (defined $sym) |
3042
|
0 |
0 |
if ($in_endav) |
3043
|
0 |
0 |
if $debug{'av'} |
3050
|
0 |
0 |
if ($PERL514) { } |
|
0 |
0 |
elsif ($PERL510) { } |
3053
|
0 |
0 |
if $tmp_pvsym =~ /^hek/ and $static |
3063
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$PERL510 ? : |
3067
|
0 |
0 |
if $debug{'flags'} |
3069
|
0 |
0 |
if (defined $pv) |
3070
|
0 |
0 |
if (not $static) { } |
|
0 |
0 |
elsif ($tmp_pvsym eq 'NULL' and $pvsym =~ /^hek/) { } |
3071
|
0 |
0 |
if ($PERL510) { } |
3086
|
0 |
0 |
if (defined $sym) |
3087
|
0 |
0 |
if ($in_endav) |
3088
|
0 |
0 |
if $debug{'av'} |
3097
|
0 |
0 |
if ($flags & 8704) { } |
3101
|
0 |
0 |
if ($PERL510 and $C99 and not $PERL522) { } |
|
0 |
0 |
elsif (not $PERL522) { } |
3109
|
0 |
0 |
if ($PERL510) { } |
3111
|
0 |
0 |
if ($PERL514) { } |
3112
|
0 |
0 |
if $tmp_pvsym =~ /^hek/ and $static |
3119
|
0 |
0 |
unless ($sv->FLAGS & 8704 or $PERL522) |
3120
|
0 |
0 |
if $debug{'sv'} |
3133
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$PERL510 ? : |
3137
|
0 |
0 |
if $debug{'flags'} |
3139
|
0 |
0 |
if (defined $pv) |
3140
|
0 |
0 |
if (not $static) { } |
|
0 |
0 |
elsif ($tmp_pvsym eq 'NULL' and $pvsym =~ /^hek/) { } |
3141
|
0 |
0 |
if ($PERL510) { } |
3151
|
0 |
0 |
if $PERL518 and $sv->FLAGS & 1048576 |
3158
|
0 |
0 |
if not $PERL510 and defined $sym |
3159
|
0 |
0 |
if $PERL510 |
3164
|
0 |
0 |
if ($PERL510) { } |
3165
|
0 |
0 |
if $debug{'gv'} |
3179
|
0 |
0 |
defined $pv && $static ? : |
3187
|
0 |
0 |
if $debug{'flags'} |
3189
|
0 |
0 |
if (not $static) { } |
3192
|
0 |
0 |
if defined $pv and not $in_endav |
3198
|
0 |
0 |
if ($PERL510) { } |
3201
|
0 |
0 |
if ($] == 5.008009) |
3213
|
0 |
0 |
if (defined $sym) |
3214
|
0 |
0 |
if ($in_endav) |
3215
|
0 |
0 |
if $debug{'av'} |
3222
|
0 |
0 |
$PERL510 ? : |
3223
|
0 |
0 |
if (not $shared_hek and IsCOW_hek($sv) || $len == 0 && $flags & 268435456) |
3232
|
0 |
0 |
if ($PERL518 and ($fullname and $fullname eq 'svop const')) |
3233
|
0 |
0 |
$DEBUGGING ? : |
3240
|
0 |
0 |
if ($PERL510) { } |
3242
|
0 |
0 |
if ($const_strings and not $shared_hek and $flags & 134217728 and not $len) |
3245
|
0 |
0 |
if $debug{'pv'} |
3247
|
0 |
0 |
if $tmp_pvsym =~ /^hek/ and $static |
3248
|
0 |
0 |
$PERL514 ? : |
3249
|
0 |
0 |
$PERL514 ? : |
3251
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$tmp_pvsym eq 'NULL' ? : |
3256
|
0 |
0 |
if (defined $pv and not $static) { } |
|
0 |
0 |
elsif ($shared_hek and $static and $pvsym =~ /^hek/) { } |
3257
|
0 |
0 |
if ($shared_hek) { } |
3259
|
0 |
0 |
unless $hek eq 'NULL' |
3267
|
0 |
0 |
if ($debug{'flags'} and !$ITHREADS || $PERL514 and $DEBUG_LEAKING_SCALARS) |
3268
|
0 |
0 |
cstring($pv) eq '0' ? : |
3280
|
0 |
0 |
if (defined $pv and not $static) |
3285
|
0 |
0 |
if $debug{'flags'} |
3286
|
0 |
0 |
if $PERL518 and $flags & 1048576 |
3294
|
0 |
0 |
if (defined $sym) |
3295
|
0 |
0 |
if ($in_endav) |
3296
|
0 |
0 |
if $debug{'av'} |
3309
|
0 |
0 |
if $refcnt < 1000 |
3316
|
0 |
0 |
unless ($pnsect) |
3318
|
0 |
0 |
if $verbose |
3328
|
0 |
0 |
if (&IS_MSVC()) |
3331
|
0 |
0 |
$ix || $len ? : |
|
0 |
0 |
is_constant($sn) ? : |
|
0 |
0 |
is_constant($tn) ? : |
|
0 |
0 |
$refcnt >= 1000 ? : |
3345
|
0 |
0 |
if $debug{'flags'} |
3346
|
0 |
0 |
unless is_constant($sn) |
3347
|
0 |
0 |
unless is_constant($tn) |
3354
|
0 |
0 |
if ($lexwarnsym{$pv}) { } |
3360
|
0 |
0 |
if ($] < 5.009) { } |
3365
|
0 |
0 |
$Config{'longsize'} == 8 ? : |
3367
|
0 |
0 |
if ($iv >= 0 and $iv <= 2) { } |
3384
|
0 |
0 |
$] >= 5.008009 ? : |
3392
|
0 |
0 |
if defined $sym |
3400
|
0 |
0 |
$PERL514 ? : |
3401
|
0 |
0 |
$] > 5.017006 ? : |
3404
|
0 |
0 |
if $debug{'rx'} or $debug{'sv'} |
3405
|
0 |
0 |
if ($] > 5.011) |
3406
|
0 |
0 |
$PERL522 ? : |
3407
|
0 |
0 |
re_does_swash($cstr, $pmflags) ? : |
3408
|
0 |
0 |
if ($PERL518 and $sv->EXTFLAGS & 131072) |
3414
|
0 |
0 |
if ($PERL518 and $sv->EXTFLAGS & 131072) |
3418
|
0 |
0 |
if ($] < 5.017006) { } |
3425
|
0 |
0 |
if $debug{'flags'} |
3435
|
0 |
0 |
if $verbose |
3437
|
0 |
0 |
unless $init2_remap{$key}{'MG'} |
3444
|
0 |
0 |
if (ref $sv eq 'B::PVMG') |
3446
|
0 |
0 |
$stash->can('NAME') ? : |
3448
|
0 |
0 |
$sv->FLAGS & 16384 ? : |
3453
|
0 |
0 |
if ($name =~ /encoding$/ and $name =~ /^(ascii|ascii_ctrl|iso8859_1|null)/ and $Encode::VERSION eq '2.58') { } |
|
0 |
0 |
elsif ($pkg eq 'Encode::XS') { } |
|
0 |
0 |
elsif ($Encode::VERSION ge '2.58' and Encode::find_encoding($name)) { } |
|
0 |
0 |
elsif (defined $Net::DNS::VERSION and $Net::DNS::VERSION =~ /^0\.(6[789]|7[1234])/) { } |
|
0 |
0 |
elsif ($pkg eq 'Net::LibIDN') { } |
3455
|
0 |
0 |
if $pkg eq 'Encode::XS' |
3456
|
0 |
0 |
if $fullname eq '(unknown)' and $ITHREADS |
3457
|
0 |
0 |
if $verbose |
3461
|
0 |
0 |
if ($fullname eq 'Encode::Encoding{iso-8859-1}') { } |
|
0 |
0 |
elsif ($fullname eq 'Encode::Encoding{null}') { } |
|
0 |
0 |
elsif ($fullname eq 'Encode::Encoding{ascii-ctrl}') { } |
|
0 |
0 |
elsif ($fullname eq 'Encode::Encoding{ascii}') { } |
3474
|
0 |
0 |
if ($name and $name =~ /^(ascii|ascii_ctrl|iso8859_1|null)/ and $Encode::VERSION gt '2.58') { } |
3476
|
0 |
0 |
unless $name =~ /_encoding$/ |
3478
|
0 |
0 |
if $verbose |
3480
|
0 |
0 |
if ($pkg ne 'Encode') |
3488
|
0 |
0 |
if ($enc and ref $enc ne 'Encode::XS') |
3493
|
0 |
0 |
if ($enc and ref $enc eq 'Encode::XS' and $sv->IVX == $$enc) |
3496
|
0 |
0 |
unless $name =~ /_encoding$/ |
3498
|
0 |
0 |
if ($pkg ne 'Encode') |
3505
|
0 |
0 |
if ($name) { } |
3506
|
0 |
0 |
if $verbose |
3515
|
0 |
0 |
if ref $enc ne 'Encode::XS' |
3518
|
0 |
0 |
unless $pkg |
3519
|
0 |
0 |
if $verbose |
3524
|
0 |
0 |
if ($fullname eq 'svop const') |
3526
|
0 |
0 |
unless $pkg |
3535
|
0 |
0 |
if ($pkg and $name and $name =~ /^[a-zA-Z_0-9-]+$/) { } |
3536
|
0 |
0 |
if $verbose |
3539
|
0 |
0 |
if $fullname =~ /^(svop const|padop)/ |
3550
|
0 |
0 |
if (defined $sym) |
3551
|
0 |
0 |
if ($in_endav) |
3552
|
0 |
0 |
if $debug{'av'} |
3562
|
0 |
0 |
if ($] >= 5.011 and ref $sv eq 'B::REGEXP') { } |
3575
|
0 |
0 |
if (!$ITHREADS && $fullname && $fullname =~ /^svop const|^padop|^Encode::Encoding| :pad\[1\]/ || $ITHREADS and $sv->IVX > 65536 and ref $sv->SvSTASH ne 'B::SPECIAL') |
3587
|
0 |
0 |
if ($PERL510) { } |
3588
|
0 |
0 |
if ($sv->FLAGS & 2048) |
3589
|
0 |
0 |
if $pvsym ne '' |
3594
|
0 |
0 |
if ($PERL514) { } |
3595
|
0 |
0 |
if $tmp_pvsym =~ /^hek/ and $static |
3604
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$tmp_pvsym eq 'NULL' ? : |
3610
|
0 |
0 |
if ($pvsym =~ /PL_sv_undef/ and $ITHREADS) |
3618
|
0 |
0 |
if $debug{'flags'} |
3620
|
0 |
0 |
if (not $static) { } |
|
0 |
0 |
elsif ($tmp_pvsym eq 'NULL' and $pvsym =~ /^hek/) { } |
3622
|
0 |
0 |
if ($PERL510) { } |
3638
|
0 |
0 |
if ($INC{'threads.pm'}) { } |
3643
|
0 |
0 |
if $debug{'mg'} |
3645
|
0 |
0 |
if $debug{'mg'} |
3647
|
0 |
0 |
if ($INC{'threads/shared.pm'}) { } |
3653
|
0 |
0 |
if $debug{'mg'} |
3655
|
0 |
0 |
if $debug{'mg'} |
3663
|
0 |
0 |
if $fullname and $fullname eq '%B::C::' |
3664
|
0 |
0 |
if ($debug{'mg'}) |
3666
|
0 |
0 |
unless $fullname |
3667
|
0 |
0 |
if $debug{'flags'} and $PERL510 and not $sv->MAGICAL |
3670
|
0 |
0 |
$debug{'flags'} ? : |
3676
|
0 |
0 |
if (ref $sv eq 'B::HV' and $] > 5.018 and $sv->MAGICAL and $fullname =~ /::$/) { } |
|
0 |
0 |
elsif (ref $sv eq 'B::HV' and $] > 5.018 and $fullname =~ /(version|File)::$/) { } |
3677
|
0 |
0 |
if $verbose |
3681
|
0 |
0 |
if $verbose |
3686
|
0 |
0 |
if ($pkg and $$pkg) |
3687
|
0 |
0 |
$pkg->can('NAME') ? : |
3689
|
0 |
0 |
if $debug{'mg'} or $debug{'gv'} |
3692
|
0 |
0 |
unless ($fullname eq 'main::STDOUT' and $] >= 5.018) |
3693
|
0 |
0 |
if (ref $pkg eq 'B::HV') { } |
3694
|
0 |
0 |
if (not $fullname =~ /::$/ or $stash) { } |
3704
|
0 |
0 |
if $debug{'mg'} or $debug{'gv'} |
3708
|
0 |
0 |
if (ref $pkg eq 'B::HV') |
3711
|
0 |
0 |
unless ref $sv eq 'B::IO' |
3718
|
0 |
0 |
if $sv_flags & 134217728 and ref $sv ne 'B::HV' |
3722
|
0 |
0 |
if ($PERL510 and not $sv->MAGICAL || $sv_flags & 268435456) |
3725
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
if $debug{'mg'} |
3749
|
0 |
0 |
if ($debug{'mg'}) |
3758
|
0 |
0 |
unless ($type =~ /^[rDn]$/) |
3763
|
0 |
0 |
unless $PERL510 and ref $obj eq 'SCALAR' |
3765
|
0 |
0 |
if $type eq 'P' |
3768
|
0 |
0 |
if ($len == -2) { } |
|
0 |
0 |
elsif ($type eq 'r') { } |
|
0 |
0 |
elsif ($type eq 'D') { } |
|
0 |
0 |
elsif ($type eq 'n') { } |
|
0 |
0 |
elsif ($type eq 'c') { } |
|
0 |
0 |
elsif ($type eq ':') { } |
3771
|
0 |
0 |
if (ref $ptr eq 'SCALAR') { } |
|
0 |
0 |
elsif ($ptr and ref $ptr) { } |
3778
|
0 |
0 |
if $debug{'mg'} |
3781
|
0 |
0 |
unless ($mg->FLAGS & 2) |
3787
|
0 |
0 |
$PERL56 ? : |
3790
|
0 |
0 |
if (not $pmop) { } |
3794
|
0 |
0 |
if ($PERL56) { } |
3796
|
0 |
0 |
unless $relen |
3801
|
0 |
0 |
if ($PERL510) { } |
3825
|
0 |
0 |
$fullname eq 'main::-' ? : |
3843
|
0 |
0 |
if defined $pmop_ptr |
3844
|
0 |
0 |
$pmop ? : |
3846
|
0 |
0 |
if not $pmop and $verbose |
3848
|
0 |
0 |
defined $pmop_ptr ? : |
|
0 |
0 |
$pmop ? : |
3862
|
0 |
0 |
unless ($mg->FLAGS & 2) |
3867
|
0 |
0 |
if $sv_flags & 134217728 and ref $sv ne 'B::HV' |
3876
|
0 |
0 |
if defined $sym |
3879
|
0 |
0 |
if $debug{'sv'} |
3882
|
0 |
0 |
unless $rv |
3883
|
0 |
0 |
if ($PERL510) { } |
3887
|
0 |
0 |
if $flags & 9 and $PERL522 |
3890
|
0 |
0 |
$C99 && is_constant($rv) ? : |
3892
|
0 |
0 |
if $debug{'flags'} |
3895
|
0 |
0 |
if $] > 5.019 or $ITHREADS |
3897
|
0 |
0 |
unless ($C99 and is_constant($rv)) |
3898
|
0 |
0 |
if ($rv =~ /get_cv/) { } |
3908
|
0 |
0 |
if (ref $sv->RV eq 'B::GV' or $rv =~ /^gv_list/) { } |
|
0 |
0 |
elsif ($sv->RV->isa('B::HV') and $sv->RV->NAME) { } |
|
0 |
0 |
elsif ($rv =~ /get_cv/) { } |
3935
|
0 |
0 |
if $debug{'flags'} |
3943
|
0 |
0 |
if ($PERL510) { } |
3944
|
0 |
0 |
if (is_using_mro()) { } |
3952
|
0 |
0 |
if (exists do {
$s
}->{'ISA'}) |
3953
|
0 |
0 |
if (exists do {
$s
}->{'ISA'}{'ARRAY'}) |
3965
|
0 |
0 |
unless defined $cvstashname and defined $cvname |
3966
|
0 |
0 |
if (my $found = $isa_cache{"${cvstashname}::$cvname"}) |
3975
|
0 |
0 |
if $debug{'cv'} |
3977
|
0 |
0 |
if $_ eq $cvstashname |
3978
|
0 |
0 |
if $debug{'cv'} |
3979
|
0 |
0 |
if (defined &{$_ . '::' . $cvname;}) { } |
3980
|
0 |
0 |
if (exists do {
$cvstashname . '::'
}->{'ISA'}) |
3988
|
0 |
0 |
if (&get_isa($_)) |
3990
|
0 |
0 |
if ($parent) |
3993
|
0 |
0 |
if $debug{'gv'} |
3994
|
0 |
0 |
if (exists do {
$parent . '::'
}->{'ISA'}) |
3995
|
0 |
0 |
if $debug{'pkg'} |
3998
|
0 |
0 |
if (exists do {
$_ . '::'
}->{'ISA'}) |
3999
|
0 |
0 |
if $debug{'pkg'} |
4011
|
0 |
0 |
if $savINC{'utf8_heavy.pl'} |
4036
|
0 |
0 |
unless defined $cvstashname and defined $cvname |
4037
|
0 |
0 |
if try_isa($cvstashname, $cvname) |
4040
|
0 |
0 |
if (defined *{'UNIVERSAL::' . $cvname;}{'CODE'}) |
4041
|
0 |
0 |
if $debug{'cv'} |
4046
|
0 |
0 |
if $debug{'cv'} |
4047
|
0 |
0 |
if ($fullname eq 'utf8::SWASHNEW') |
4057
|
0 |
0 |
if ($cvstashname =~ /^POSIX|Storable|DynaLoader|Net::SSLeay|Class::MethodMaker$/ or exists do {
$cvstashname . '::'
}->{'AUTOLOAD'} and grep(($_ eq 'AutoLoader'), @isa)) |
4063
|
0 |
0 |
if $debug{'cv'} |
4064
|
0 |
0 |
unless $INC{"auto/$dir/$cvname.al"} |
4065
|
0 |
0 |
unless ($@) |
4066
|
0 |
0 |
if $verbose |
4067
|
0 |
0 |
if defined &$fullname |
4075
|
0 |
0 |
if (exists do {
$cvstashname . '::'
}->{'AUTOLOAD'} and not $PERL510) |
4083
|
0 |
0 |
unless $DEBUGGING |
4085
|
0 |
0 |
unless $DEBUGGING |
4087
|
0 |
0 |
unless $DEBUGGING |
4088
|
0 |
0 |
if $debug{'cv'} |
4091
|
0 |
0 |
unless $DEBUGGING |
4093
|
0 |
0 |
unless ($@) |
4103
|
0 |
0 |
if $cvstashname and exists do {
$cvstashname . '::'
}->{'AUTOLOAD'} |
4105
|
0 |
0 |
if $cvstashname and exists do {
$cvstashname . '::'
}->{'CLONE'} |
4113
|
0 |
0 |
$PERL518 && (!$gv || ref $gv eq 'B::SPECIAL') && $cv->can('NAME_HEK') ? : |
4117
|
0 |
0 |
$_[0] =~ /^(BEGIN|INIT|UNITCHECK|CHECK|END)$/ ? : |
4123
|
0 |
0 |
if (defined $sym) |
4124
|
0 |
0 |
if $$cv and $debug{'cv'} |
4131
|
0 |
0 |
if ($gv and $$gv) { } |
|
0 |
0 |
elsif ($cv->is_lexsub($gv)) { } |
4137
|
0 |
0 |
if ($PERL522 and $cvname eq '__ANON__') |
4138
|
0 |
0 |
if ($origname) { } |
4140
|
0 |
0 |
if $debug{'cv'} |
4142
|
0 |
0 |
if $cvstashname |
4144
|
0 |
0 |
if ($cvname =~ / :pad\[.*$/) |
4146
|
0 |
0 |
if is_phase_name($cvname) |
4149
|
0 |
0 |
if $debug{'cv'} |
4153
|
0 |
0 |
if $debug{'cv'} |
4158
|
0 |
0 |
if $debug{'cv'} |
4161
|
0 |
0 |
if $all_bc_subs{$fullname} or skip_pkg($cvstashname) |
4162
|
0 |
0 |
if $PERL514 |
4163
|
0 |
0 |
unless $include_package{$cvstashname} |
4167
|
0 |
0 |
unless defined $fullname |
4169
|
0 |
0 |
if $debug{'cv'} |
4170
|
0 |
0 |
if ($fullname =~ /^(.*)::(.*?)$/) |
4175
|
0 |
0 |
unless defined $cvstashname |
4182
|
0 |
0 |
$PERL56 ? : |
4185
|
0 |
0 |
if (not $isconst and $cvxsub and $cvname ne 'INIT') |
4189
|
0 |
0 |
if ($cvname eq 'bootstrap' and not $xsub{$stashname}) { } |
4192
|
0 |
0 |
if $verbose |
4196
|
0 |
0 |
if (not $Config{'usedl'}) { } |
|
0 |
0 |
elsif (not UNIVERSAL::isa($stashname, 'DynaLoader') and $stashname ne 'attributes' || $] >= 5.011) { } |
4206
|
0 |
0 |
if ($file =~ /XSLoader\.pm$/) |
4209
|
0 |
0 |
unless ($file) |
4211
|
0 |
0 |
unless $laststash |
4214
|
0 |
0 |
if (m[^(.+/)$sofile$]) |
4232
|
0 |
0 |
if $debug{'sub'} |
4239
|
0 |
0 |
if (grep {$stashname eq $_;} @IO) |
4250
|
0 |
0 |
if $debug{'sub'} |
4251
|
0 |
0 |
if (not in_static_core($stashname, $cvname)) { } |
4254
|
0 |
0 |
if $debug{'cv'} |
4255
|
0 |
0 |
if $stashname |
4261
|
0 |
0 |
if $debug{'cv'} |
4265
|
0 |
0 |
if (not $isconst and $cvxsub and $cvname eq 'INIT') |
4267
|
0 |
0 |
if $debug{'sub'} |
4272
|
0 |
0 |
if ($isconst and $cvxsub and not is_phase_name($cvname) and $PERL522 && !($CvFLAGS & 262144) && !($CvFLAGS & 16) && !($fullname && $fullname =~ qr/^File::Glob::GLOB/ && $CvFLAGS & 131076) || !($PERL522 || $CvFLAGS & 128)) |
4288
|
0 |
0 |
if $debug{'cv'} |
4292
|
0 |
0 |
if ($] >= 5.016) |
4294
|
0 |
0 |
if (ref $sv eq 'B::IV' || ref $sv eq 'B::PVMG' and $sv->FLAGS & 2048) |
4296
|
0 |
0 |
if ($rv->FLAGS & 16640 and $rv->IVX > 65536) |
4304
|
0 |
0 |
if ($sv and ref $sv and ref($sv) =~ /^(SCALAR|ARRAY|HASH|CODE|REF)$/) { } |
|
0 |
0 |
elsif ($sv and ref($sv) =~ /^B::[ANRPI]/) { } |
4306
|
0 |
0 |
if $debug{'cv'} |
4320
|
0 |
0 |
if $verbose |
4329
|
0 |
0 |
if ($new_cv_fw) { } |
4333
|
0 |
0 |
if $debug{'flags'} |
4341
|
0 |
0 |
if $debug{'cv'} |
4342
|
0 |
0 |
if (not $$root and $] < 5.01) |
4346
|
0 |
0 |
if ($fullname eq 'utf8::SWASHNEW') |
4350
|
0 |
0 |
if ($fullname eq 'IO::Socket::SSL::SSL_Context::new') |
4351
|
0 |
0 |
if ($IO::Socket::SSL::VERSION ge '1.956' and $IO::Socket::SSL::VERSION lt '1.995') |
4359
|
0 |
0 |
unless ($$root or $cvxsub) |
4361
|
0 |
0 |
if ($cvstashname =~ /^(bytes|utf8)$/) { } |
|
0 |
0 |
elsif ($fullname eq 'Coro::State::_jit') { } |
4368
|
0 |
0 |
if ($pl) |
4375
|
0 |
0 |
if ($reloaded) |
4378
|
0 |
0 |
if $debug{'cv'} |
4384
|
0 |
0 |
unless ($$root or $cvxsub) |
4385
|
0 |
0 |
if (my $auto = try_autoload($cvstashname, $cvname)) |
4386
|
0 |
0 |
if (ref $auto eq 'B::CV') { } |
4389
|
0 |
0 |
if ($$auto) |
4394
|
0 |
0 |
if ($$gvnew) |
4395
|
0 |
0 |
if ($cvstashname ne $gvnew->STASH->NAME or $cvname ne $gvnew->NAME) |
4397
|
0 |
0 |
if $debug{'sub'} |
4398
|
0 |
0 |
unless ($new_cv_fw) |
4403
|
0 |
0 |
unless $PERL510 |
4407
|
0 |
0 |
defined objsym($cv) ? : |
4408
|
0 |
0 |
if (my $oldsym = objsym($gv)) |
4409
|
0 |
0 |
if $debug{'gv'} |
4419
|
0 |
0 |
if $verbose |
4426
|
0 |
0 |
if ($$gv) |
4427
|
0 |
0 |
if ($cvstashname ne $gv->STASH->NAME or $cvname ne $gv->NAME) |
4429
|
0 |
0 |
if $verbose |
4437
|
0 |
0 |
if ($$root or $cvxsub) |
4438
|
0 |
0 |
if $verbose and $debug{'cv'} |
4442
|
0 |
0 |
unless ($$root) |
4443
|
0 |
0 |
if ($fullname ne 'threads::tid' and $fullname ne 'main::main::' and ($PERL510 and not defined &{"${cvstashname}::AUTOLOAD";})) |
4449
|
0 |
0 |
if (exists &$fullname) { } |
|
0 |
0 |
elsif ($cv->is_lexsub($gv)) { } |
4450
|
0 |
0 |
if $debug{'sub'} |
4451
|
0 |
0 |
if $verbose or $debug{'sub'} |
4455
|
0 |
0 |
if $debug{'sub'} |
4457
|
0 |
0 |
if $debug{'sub'} |
4458
|
0 |
0 |
if $verbose or $debug{'sub'} |
4460
|
0 |
0 |
if ($sv_ix == $svsect->index and not $new_cv_fw) { } |
4462
|
0 |
0 |
if $debug{'cv'} |
4472
|
0 |
0 |
if $debug{'cv'} or $verbose |
4485
|
0 |
0 |
if ($$root) { } |
|
0 |
0 |
elsif ($cv->is_lexsub($gv)) { } |
|
0 |
0 |
elsif (not exists &$fullname) { } |
4488
|
0 |
0 |
if $debug{'cv'} and $debug{'gv'} |
4490
|
0 |
0 |
if ($cv->is_lexsub($gv)) { } |
|
0 |
0 |
elsif ($gv and $$gv) { } |
4491
|
0 |
0 |
$cv->can('NAME_HEK') ? : |
4500
|
0 |
0 |
${$gv->FORM;} == $$cv ? : |
4501
|
0 |
0 |
if ($gvname ne '__ANON__') |
4502
|
0 |
0 |
$stashname eq 'main' ? : |
4505
|
0 |
0 |
if ($gvname eq 'INIT') |
4511
|
0 |
0 |
unless ($ppname) |
4520
|
0 |
0 |
unless $startfield |
4521
|
0 |
0 |
unless $startfield |
4522
|
0 |
0 |
if ($$padlist) |
4526
|
0 |
0 |
if $debug{'cv'} and $debug{'gv'} |
4531
|
0 |
0 |
if $debug{'cv'} and $debug{'gv'} |
4536
|
0 |
0 |
if ($] > 5.017 and $dyn_padlist || $fullname =~ /^(main::END|main::INIT|Attribute::Handlers)/) { } |
4549
|
0 |
0 |
if $debug{'sub'} |
4555
|
0 |
0 |
if $debug{'sub'} |
4557
|
0 |
0 |
if $debug{'cv'} |
4558
|
0 |
0 |
if $verbose or $debug{'sub'} |
4563
|
0 |
0 |
unless ($new_cv_fw) |
4566
|
0 |
0 |
if $PERL514 |
4567
|
0 |
0 |
if $gv and $$gv and $PERL514 |
4568
|
0 |
0 |
$PERL510 ? : |
4575
|
0 |
0 |
if ($new_cv_fw) |
4577
|
0 |
0 |
unless ($cvforward{$sym}) |
4587
|
0 |
0 |
defined $pv ? : |
4589
|
0 |
0 |
defined $pv ? : |
4591
|
0 |
0 |
if IsCOW($cv) and not $cow |
4592
|
0 |
0 |
if $const_strings |
4594
|
0 |
0 |
$PERL510 ? : |
4597
|
0 |
0 |
if ($xcv_outside == ${main_cv();} and not $MULTI) { } |
|
0 |
0 |
elsif (ref $cv->OUTSIDE eq 'B::CV') { } |
4605
|
0 |
0 |
if ($PERL510) { } |
|
0 |
0 |
elsif ($PERL56) { } |
4609
|
0 |
0 |
$cur ? : |
4612
|
0 |
0 |
if ($PERL522) { } |
|
0 |
0 |
elsif ($PERL514) { } |
4614
|
0 |
0 |
if $CPERL52 |
4628
|
0 |
0 |
if $xpvc =~ /, \(CV\*\)iv\d/ |
4629
|
0 |
0 |
if (not $new_cv_fw) { } |
4638
|
0 |
0 |
$CPERL52 ? : |
4641
|
0 |
0 |
if $debug{'flags'} |
4660
|
0 |
0 |
if (not $new_cv_fw) { } |
4671
|
0 |
0 |
if $debug{'flags'} |
4675
|
0 |
0 |
ref $cv eq 'B::CV' ? : |
4676
|
0 |
0 |
ref $cv eq 'B::CV' ? : |
4695
|
0 |
0 |
if (not $new_cv_fw) { } |
4706
|
0 |
0 |
if $debug{'flags'} |
4709
|
0 |
0 |
if ($$cv) |
4710
|
0 |
0 |
if ($PERL518 and !$gv || ref $gv eq 'B::SPECIAL') { } |
4711
|
0 |
0 |
$cv->can('NAME_HEK') ? : |
4712
|
0 |
0 |
unless defined $lexsub |
4713
|
0 |
0 |
if $debug{'gv'} |
4715
|
0 |
0 |
if (not $PERL56 and $utf8) |
4728
|
0 |
0 |
if $gvstash and not $stash |
4731
|
0 |
0 |
if $gvstash and $debug{'cv'} and $debug{'gv'} |
4734
|
0 |
0 |
if ($cv->OUTSIDE_SEQ) |
4736
|
0 |
0 |
if $cop |
4746
|
0 |
0 |
if ($new_cv_fw) { } |
4752
|
0 |
0 |
if $debug{'flags'} |
4764
|
0 |
0 |
if ($new_cv_fw) { } |
4771
|
0 |
0 |
if $debug{'flags'} |
4777
|
0 |
0 |
if ($CPERL52 and $Config{'uselongdouble'}) |
4785
|
0 |
0 |
if ($xcv_outside == ${main_cv();} or ref $cv->OUTSIDE eq 'B::CV') { } |
|
0 |
0 |
elsif ($] >= 5.017005 and $xcv_outside and $$padlist) { } |
4787
|
0 |
0 |
if ($xcv_outside == ${main_cv();}) { } |
4790
|
0 |
0 |
if ($$padlist) |
4791
|
0 |
0 |
if ($PERL522) { } |
|
0 |
0 |
elsif ($] >= 5.017005) { } |
4807
|
0 |
0 |
if ($PERL522) { } |
4816
|
0 |
0 |
if ($gv and $$gv) |
4818
|
0 |
0 |
if $debug{'cv'} and $debug{'gv'} |
4820
|
0 |
0 |
if ($PERL514) { } |
4826
|
0 |
0 |
if ($CvFLAGS & 1024) |
4829
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
if $debug{'cv'} |
4831
|
0 |
0 |
$debug{'flags'} ? : |
4838
|
0 |
0 |
if $debug{'cv'} and $debug{'gv'} |
4840
|
0 |
0 |
unless ($optimize_cop) |
4842
|
0 |
0 |
if ($MULTI) { } |
|
0 |
0 |
elsif ($const_strings and length $file) { } |
4851
|
0 |
0 |
if ($$stash and ref $stash) |
4859
|
0 |
0 |
if $cvname eq 'DESTROY' and $] >= 5.017011 |
4861
|
0 |
0 |
if $debug{'cv'} and $debug{'gv'} |
4864
|
0 |
0 |
if ($magic and $$magic) |
4867
|
0 |
0 |
unless ($new_cv_fw) |
4868
|
0 |
0 |
$PERL510 ? : |
4874
|
0 |
0 |
if ($cur) |
4875
|
0 |
0 |
if $debug{'cv'} |
4878
|
0 |
0 |
if (defined $pv) |
4879
|
0 |
0 |
if ($PERL510 and $cur) { } |
|
0 |
0 |
elsif (not $const_strings) { } |
4889
|
0 |
0 |
if $xcv_outside |
4900
|
0 |
0 |
if (defined $sym) { } |
4901
|
0 |
0 |
if $debug{'gv'} |
4907
|
0 |
0 |
if $debug{'gv'} |
4911
|
0 |
0 |
if $debug{'gv'} and not $PERL56 |
4912
|
0 |
0 |
if ($PERL510 and $gv->FLAGS & 1073741824) |
4913
|
0 |
0 |
if $debug{'gv'} |
4919
|
0 |
0 |
if (ref $gv->STASH eq 'B::SPECIAL') { } |
4921
|
0 |
0 |
if $debug{'gv'} |
4925
|
0 |
0 |
if skip_pkg($package) |
4935
|
0 |
0 |
if ($filter and $filter =~ / :pad/) { } |
4942
|
0 |
0 |
if ($fullname =~ /^threads::(tid|AUTOLOAD)$/ and not $ITHREADS) |
4946
|
0 |
0 |
if ($PERL518 and $fullname =~ /^DynaLoader::dl_(
require_symbols|
modules|
shared_objects|
resolve_using|
librefs)/x) |
4963
|
0 |
0 |
if (not defined $gvname and $is_empty) |
4966
|
0 |
0 |
$package eq 'main' ? : |
4968
|
0 |
0 |
$] >= 5.008009 && $package eq 'main' ? : |
4969
|
0 |
0 |
if $debug{'gv'} |
4981
|
0 |
0 |
if ($fullname =~ /^(bytes|utf8)::AUTOLOAD$/) |
4985
|
0 |
0 |
unless ($is_empty) |
4987
|
0 |
0 |
unless (ref $egv eq 'B::SPECIAL' or ref $egv->STASH eq 'B::SPECIAL') |
4989
|
0 |
0 |
if ($$gv != $$egv) |
4992
|
0 |
0 |
if $debug{'gv'} |
5001
|
0 |
0 |
if ($fullname =~ /^main::STDOUT$/i and $PERL56) |
5018
|
0 |
0 |
if ($fullname eq 'main::' . $s) |
5025
|
0 |
0 |
if ($fullname =~ /^main::std(in|out|err)$/) { } |
|
0 |
0 |
elsif ($fullname eq 'main::0') { } |
|
0 |
0 |
elsif ($ro_inc and $fullname =~ /^main::([0-9])$/) { } |
5048
|
0 |
0 |
$notqual ? : |
5049
|
0 |
0 |
if ($PERL510 and $gv->isGV_with_GP and not $is_coresym) { } |
|
0 |
0 |
elsif (not $is_coresym) { } |
5052
|
0 |
0 |
if (defined $egvsym and not $egvsym =~ /Null/) { } |
|
0 |
0 |
elsif ($gp and exists $gptable{0 + $gp}) { } |
|
0 |
0 |
elsif ($gp and not $is_empty and $gvname =~ /::$/) { } |
|
0 |
0 |
elsif ($gp and not $is_empty) { } |
5055
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
if $debug{'gv'} |
5057
|
0 |
0 |
$package eq 'main' ? : |
5066
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
if $debug{'gv'} |
5075
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
if $debug{'gv'} |
5077
|
0 |
0 |
if 0 + $gp |
5083
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
if $debug{'gv'} |
5099
|
0 |
0 |
if ($gvflags > 256 and not $PERL510) |
5105
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
$debug{'flags'} ? : |
5106
|
0 |
0 |
$gv->LINE > 2147483647 ? : |
|
0 |
0 |
unless $is_empty |
5115
|
0 |
0 |
unless ($PERL510) |
5120
|
0 |
0 |
if ($gv->REFCNT > 1) |
5123
|
0 |
0 |
if $is_empty |
5126
|
0 |
0 |
if ($gvrefcnt > 1) |
5130
|
0 |
0 |
if $debug{'gv'} |
5133
|
0 |
0 |
if (not $gvname =~ /^([^A-Za-z]|STDIN|STDOUT|STDERR|ARGV|SIG|ENV)$/) { } |
|
0 |
0 |
elsif ($fullname eq 'main::!') { } |
|
0 |
0 |
elsif ($fullname eq 'main::ENV' or $fullname eq 'main::SIG') { } |
|
0 |
0 |
elsif ($fullname eq 'main::ARGV') { } |
|
0 |
0 |
elsif ($fullname =~ /^main::STD(IN|OUT|ERR)$/) { } |
5148
|
0 |
0 |
if $filter and not $filter =~ / :pad/ and $filter =~ /^\d+$/ and $filter > 0 and $filter < 64 |
5153
|
0 |
0 |
if (ref $gv eq 'B::STASHGV' and not $gvname =~ /::$/) |
5160
|
0 |
0 |
if ($fullname eq 'attributes::bootstrap') |
5161
|
0 |
0 |
unless (defined &{$package . '::bootstrap';}) |
5162
|
0 |
0 |
if $verbose |
5166
|
0 |
0 |
if ($] >= 5.011) { } |
5176
|
0 |
0 |
if ($PERL522 and $fullname =~ /^POSIX::M/) |
5180
|
0 |
0 |
if ($savefields) |
5182
|
0 |
0 |
if $debug{'gv'} |
5184
|
0 |
0 |
if ($$gvsv and $savefields & 4) |
5185
|
0 |
0 |
if $debug{'gv'} |
5192
|
0 |
0 |
if ($fullname eq 'main::' . $s) |
5196
|
0 |
0 |
if ($gvname eq 'VERSION' and $xsub{$package} and $gvsv->FLAGS & 2048 and not $PERL56) { } |
5197
|
0 |
0 |
if $debug{'gv'} |
5207
|
0 |
0 |
if (exists $core_svs->{$gvname}) |
5208
|
0 |
0 |
if ($gvname eq '\\') { } |
5211
|
0 |
0 |
if ref $gvsv eq 'B::PVMG' |
5217
|
0 |
0 |
if ($fullname eq 'main::$') |
5218
|
0 |
0 |
if $debug{'gv'} |
5221
|
0 |
0 |
if $debug{'gv'} |
5224
|
0 |
0 |
if ($$gvav and $savefields & 2) |
5225
|
0 |
0 |
if $debug{'gv'} |
5228
|
0 |
0 |
if ($fullname eq 'main::-') |
5234
|
0 |
0 |
if ($$gvhv and $savefields & 1) |
5235
|
0 |
0 |
if ($fullname ne 'main::ENV') |
5236
|
0 |
0 |
if $debug{'gv'} |
5237
|
0 |
0 |
if ($fullname eq 'main::!') { } |
|
0 |
0 |
elsif ($fullname eq 'main::+' or $fullname eq 'main::-') { } |
5244
|
0 |
0 |
if ($PERL514) |
5254
|
0 |
0 |
if ($] >= 5.02 and $fullname eq 'Encode::Encoding') { } |
|
0 |
0 |
elsif ($fullname ne 'main::INC') { } |
5255
|
0 |
0 |
if $debug{'gv'} |
5259
|
0 |
0 |
if exists $tmp_Encode_Encoding{$k} |
5274
|
0 |
0 |
if (not $$gvcv and $savefields & 8) |
5275
|
0 |
0 |
if $debug{'gv'} |
5281
|
0 |
0 |
if $package and exists do {
"${package}::"
}->{'AUTOLOAD'} |
5283
|
0 |
0 |
if $package and exists do {
"${package}::"
}->{'CLONE'} |
5286
|
0 |
0 |
if ($$gvcv and $savefields & 8 and ref $gvcv eq 'B::CV' and ref $gvcv->GV->EGV ne 'B::SPECIAL' and not skip_pkg($package)) |
5295
|
0 |
0 |
if ($gvcv->XSUB and $oname ne '__ANON__' and $fullname ne $origname) { } |
|
0 |
0 |
elsif (not $PERL510 or $gp) { } |
5297
|
0 |
0 |
if $debug{'pkg'} |
5302
|
0 |
0 |
if $package and defined &{"${package}::bootstrap";} |
5309
|
0 |
0 |
if (my $dep = $hack_xs_detect{$package}) |
5313
|
0 |
0 |
if $debug{'gv'} |
5320
|
0 |
0 |
if ($fullname eq 'Internals::V') |
5325
|
0 |
0 |
if $debug{'gv'} |
5328
|
0 |
0 |
if ($cvsym =~ /get_cv/) { } |
|
0 |
0 |
elsif ($cvsym =~ /^(cv|&sv_list)/) { } |
5329
|
0 |
0 |
if (not $xsub{$package} and in_static_core($package, $gvname)) { } |
|
0 |
0 |
elsif ($xsub{$package}) { } |
5332
|
0 |
0 |
if ($in_gv) |
5338
|
0 |
0 |
if (/^\Q$sym = $gv_get;\E/) |
5341
|
0 |
0 |
if $debug{'gv'} |
5348
|
0 |
0 |
if $debug{'gv'} |
5349
|
0 |
0 |
$oname ne '__ANON__' ? : |
5356
|
0 |
0 |
if ($gvcv->XSUBANY) |
5359
|
0 |
0 |
if ($package =~ /^DBI::(common|db|dr|st)/) { } |
|
0 |
0 |
elsif ($package eq 'Tie::Hash::NamedCapture') { } |
5365
|
0 |
0 |
if $verbose and $debug{'cv'} |
5373
|
0 |
0 |
if ($anyptr and $xsubany > 1000) { } |
|
0 |
0 |
elsif ($xsubany > 1048576 and $xsubany < 4294967040 || $xsubany > 4294967295) { } |
|
0 |
0 |
elsif ($package eq 'Fcntl') { } |
5379
|
0 |
0 |
if ($package eq 'POSIX' and $gvname =~ /^is/) { } |
|
0 |
0 |
elsif ($package eq 'List::MoreUtils' and $gvname =~ /_iterator$/) { } |
5387
|
0 |
0 |
if $verbose |
5403
|
0 |
0 |
if $debug{'gv'} or $verbose |
5407
|
0 |
0 |
if ($PERL514 and $cvsym and not $cvsym =~ /(get_cv|NULL|lexwarn)/ and $gv->MAGICAL) |
5410
|
0 |
0 |
if ($mg->TYPE eq '<') |
5413
|
0 |
0 |
unless ($mg->FLAGS & 2) |
5420
|
0 |
0 |
if (not $PERL510 or $gp) |
5421
|
0 |
0 |
if ($] > 5.009) { } |
5427
|
0 |
0 |
if ($stash and $fullname =~ /::$/) { } |
5432
|
0 |
0 |
if $file ne 'NULL' and not $optimize_cop |
5439
|
0 |
0 |
unless $optimize_cop |
5442
|
0 |
0 |
if $debug{'gv'} and not $ITHREADS |
5445
|
0 |
0 |
if ($$gvform and $savefields & 16) |
5446
|
0 |
0 |
if $debug{'gv'} |
5450
|
0 |
0 |
if $PERL510 |
5451
|
0 |
0 |
if $debug{'gv'} |
5454
|
0 |
0 |
if ($$gvio and $savefields & 32) |
5455
|
0 |
0 |
if $debug{'gv'} |
5456
|
0 |
0 |
if ($fullname =~ /::DATA$/ and $fullname eq 'main::DATA' || $save_data_fh) { } |
|
0 |
0 |
elsif ($fullname =~ /::DATA$/ and not $save_data_fh) { } |
5462
|
0 |
0 |
if $debug{'gv'} |
5465
|
0 |
0 |
if $fh->opened |
5474
|
0 |
0 |
if $debug{'gv'} |
5481
|
0 |
0 |
if $debug{'gv'} |
5488
|
0 |
0 |
if defined $sym |
5490
|
0 |
0 |
unless $fullname |
5494
|
0 |
0 |
if ($ispadnamelist or $ispadlist) { } |
5499
|
0 |
0 |
if $@ |
5502
|
0 |
0 |
$ispadlist ? : |
5503
|
0 |
0 |
if $ispadnamelist |
5505
|
0 |
0 |
if ($PERL522 and $ispadnamelist) { } |
|
0 |
0 |
elsif ($ispadlist and $] >= 5.021008) { } |
|
0 |
0 |
elsif ($ispadlist and $] >= 5.017006 and $] < 5.021008) { } |
|
0 |
0 |
elsif ($ispadlist and $] >= 5.017004) { } |
|
0 |
0 |
elsif ($CPERL52 and $av_init and $fill > -1 and &isAvSTATIC($av) || canAvSTATIC($av, $fullname)) { } |
|
0 |
0 |
elsif ($PERL514) { } |
|
0 |
0 |
elsif ($PERL510) { } |
5527
|
0 |
0 |
if ($cv and $cv->OUTSIDE and ref $cv->OUTSIDE ne 'B::SPECIAL' and $cv->OUTSIDE->PADLIST) |
5529
|
0 |
0 |
if $outid |
5537
|
0 |
0 |
if ($cv and $cv->OUTSIDE and ref $cv->OUTSIDE ne 'B::SPECIAL' and $cv->OUTSIDE->PADLIST) |
5539
|
0 |
0 |
if $outid |
5552
|
0 |
0 |
$flags & 134217728 || $fullname =~ /(::ISA|::INC|curpad_name)$/ ? : |
5556
|
0 |
0 |
if ($magic eq 'D') |
5560
|
0 |
0 |
$magic eq 'D' ? : |
5562
|
0 |
0 |
$av_cow ? : |
5564
|
0 |
0 |
if ($av_cow) { } |
5565
|
0 |
0 |
unless exists $avcowsect{$n} |
5568
|
0 |
0 |
unless exists $avcogsect{$n} |
5576
|
0 |
0 |
unless $_->save($fullname . '[' . $count++ . ']') |
5579
|
0 |
0 |
unless (is_constant($values[$i])) |
5585
|
0 |
0 |
if ($alloc and $n) { } |
5588
|
0 |
0 |
$av_cow ? : |
|
0 |
0 |
if $debug{'av'} |
5594
|
0 |
0 |
$C99 ? : |
5600
|
0 |
0 |
if $debug{'av'} |
5603
|
0 |
0 |
if $av_init or $av_init2 |
5613
|
0 |
0 |
if $av_init or $av_init2 |
5624
|
0 |
0 |
if $av_init or $av_init2 |
5625
|
0 |
0 |
if $PERL514 |
5636
|
0 |
0 |
if $av_init or $av_init2 |
5637
|
0 |
0 |
if $] < 5.009 |
5645
|
0 |
0 |
if $debug{'flags'} |
5646
|
0 |
0 |
unless ($ispadlist or $ispadnamelist) |
5652
|
0 |
0 |
if $PERL518 and $av->FLAGS & 1048576 |
5655
|
0 |
0 |
if ($debug{'av'}) |
5657
|
0 |
0 |
if $] < 5.009 |
5662
|
0 |
0 |
if ($fill > -1 and not $magic =~ /D/ and not $static_av) { } |
5664
|
0 |
0 |
if ($debug{'av'}) |
5669
|
0 |
0 |
if ($el->can('FLAGS')) |
5670
|
0 |
0 |
if $el->FLAGS & 256 |
5671
|
0 |
0 |
if $el->FLAGS & 1024 |
5696
|
0 |
0 |
if ($PERL510 and not $ispadlist) |
5697
|
0 |
0 |
if $av->FLAGS & 1073741824 |
|
0 |
0 |
if ($] < 5.016) { } |
5698
|
0 |
0 |
if $av->FLAGS & 1 |
5700
|
0 |
0 |
unless $_->save($fullname . '[' . $count++ . ']') |
5704
|
0 |
0 |
if ($fullname =~ /^(INIT|END)$/ and $values[$i] and ref $array[$i] eq 'B::CV') |
5705
|
0 |
0 |
if ($array[$i]->XSUB) |
5710
|
0 |
0 |
if ($use_svpop_speedup and defined $values[$i] and defined $values[$i + 1] and defined $values[$i + 2] and $values[$i] =~ /^\&sv_list\[(\d+)\]/ and $values[$i + 1] eq '&sv_list[' . ($1 + 1) . ']' and $values[$i + 2] eq '&sv_list[' . ($1 + 2) . ']') { } |
|
0 |
0 |
elsif ($use_av_undef_speedup and defined $values[$i] and defined $values[$i + 1] and defined $values[$i + 2] and $values[$i] =~ /^ptr_undef|&PL_sv_undef$/ and $values[$i + 1] =~ /^ptr_undef|&PL_sv_undef$/ and $values[$i + 2] =~ /^ptr_undef|&PL_sv_undef$/) { } |
5741
|
0 |
0 |
$values[$i] ? : |
5746
|
0 |
0 |
if ($ispadnamelist) { } |
|
0 |
0 |
elsif ($ispadlist) { } |
|
0 |
0 |
elsif ($av_init2) { } |
|
0 |
0 |
elsif ($av_init) { } |
5749
|
0 |
0 |
if $count |
5761
|
0 |
0 |
if $count |
5775
|
0 |
0 |
if $count |
5776
|
0 |
0 |
if ($fill > -1) |
5777
|
0 |
0 |
if ($PERL510) { } |
5799
|
0 |
0 |
if $count |
5800
|
0 |
0 |
$fill < 3 ? : |
5801
|
0 |
0 |
if ($fill > -1) |
5802
|
0 |
0 |
if $fullname eq 'END' |
5804
|
0 |
0 |
if ($MYMALLOC) { } |
5817
|
0 |
0 |
if ($PERL510) { } |
5828
|
0 |
0 |
$fill < 3 ? : |
5830
|
0 |
0 |
if $count |
5847
|
0 |
0 |
if $max > -1 and not $static_av |
5850
|
0 |
0 |
if $av_cow |
5856
|
0 |
0 |
unless $fullname |
5858
|
0 |
0 |
if defined $sym |
5862
|
0 |
0 |
if ($name) |
5865
|
0 |
0 |
if $debug{'hv'} |
5874
|
0 |
0 |
if ($adpmroot) |
5878
|
0 |
0 |
if ($PERL518 and $hv->FLAGS & 268435456 and length $name) |
5880
|
0 |
0 |
if ($hv->Gv_AMG) |
5886
|
0 |
0 |
$PERL514 ? : |
5887
|
0 |
0 |
if (@enames > 1) |
5888
|
0 |
0 |
if $debug{'hv'} |
5912
|
0 |
0 |
$utf8 ? : |
5925
|
0 |
0 |
unless ($stash) |
5927
|
0 |
0 |
if ($PERL510 and (is_using_mro() and mro::get_mro($name) eq 'c3')) |
5930
|
0 |
0 |
if ($magic and $magic =~ /c/) |
5931
|
0 |
0 |
if $debug{'mg'} |
5937
|
0 |
0 |
if skip_pkg($name) or $name eq 'main' |
5939
|
0 |
0 |
if $debug{'hv'} |
5945
|
0 |
0 |
if ($PERL510) { } |
5947
|
0 |
0 |
if $PERL522 |
5948
|
0 |
0 |
if ($PERL514) { } |
5960
|
0 |
0 |
if (not $is_stash and ($] >= 5.01 and $hv->FLAGS & SVf_OOK())) |
5982
|
0 |
0 |
if $debug{'flags'} |
5985
|
0 |
0 |
if $debug{'hv'} |
5988
|
0 |
0 |
$PERL510 && $hv->can('ARRAY_utf8') ? : |
5992
|
0 |
0 |
unless $is_stash |
5993
|
0 |
0 |
if $PERL518 and $hv->FLAGS & 1048576 |
5995
|
0 |
0 |
if (@contents) { } |
|
0 |
0 |
elsif ($PERL514) { } |
6006
|
0 |
0 |
if ref $sv eq 'B::RV' and defined objsym($sv) and $debug{'hv'} |
6007
|
0 |
0 |
if ($is_stash) { } |
6008
|
0 |
0 |
if (ref $sv eq 'B::GV' and $sv->NAME =~ /::$/) { } |
6010
|
0 |
0 |
if $debug{'hv'} |
6013
|
0 |
0 |
if $debug{'hv'} |
6019
|
0 |
0 |
if $debug{'hv'} |
6027
|
0 |
0 |
if ($length) |
6029
|
0 |
0 |
$sym =~ /^hv|\(HV/ ? : |
6033
|
0 |
0 |
if ($value) |
6034
|
0 |
0 |
if not $value =~ /^&sv_list/ or $PERL510 and $] < 5.012 |
6038
|
0 |
0 |
if $utf8 |
6041
|
0 |
0 |
if $debug{'hv'} |
6042
|
0 |
0 |
if (not $swash_ToCf and $fullname =~ /^utf8::SWASHNEW/ and $cstring eq '"utf8\\034unicore/To/Cf.pl\\0340"' and $cur == 23) |
6046
|
0 |
0 |
if $verbose |
6052
|
0 |
0 |
unless $PERL56 |
6059
|
0 |
0 |
if $hv->FLAGS & 134217728 |
6060
|
0 |
0 |
if ($magic =~ /c/) |
6065
|
0 |
0 |
if ($PERL510 and $name and is_using_mro() and mro::get_mro($name) eq 'c3') |
6076
|
0 |
0 |
if $verbose |
6079
|
0 |
0 |
if ($PERL56) { } |
6087
|
0 |
0 |
unless $savINC{'PerlIO.pm'} |
6088
|
0 |
0 |
unless $savINC{'PerlIO/scalar.pm'} |
6100
|
0 |
0 |
if defined $sym |
6102
|
0 |
0 |
unless defined $pv |
6104
|
0 |
0 |
if ($pv) { } |
6111
|
0 |
0 |
if ($cur) { } |
6113
|
0 |
0 |
if IsCOW($io) and not $cow |
6118
|
0 |
0 |
if $debug{'sv'} and $] > 5.008 |
6119
|
0 |
0 |
if ($PERL514) { } |
|
0 |
0 |
elsif ($] > 5.011) { } |
|
0 |
0 |
elsif ($PERL510) { } |
6123
|
0 |
0 |
unless $verbose |
6124
|
0 |
0 |
unless $verbose |
6135
|
0 |
0 |
$pv_copy_on_grow ? : |
6142
|
0 |
0 |
unless $verbose |
6143
|
0 |
0 |
unless $verbose |
6154
|
0 |
0 |
$pv_copy_on_grow ? : |
6161
|
0 |
0 |
unless $verbose |
6162
|
0 |
0 |
unless $verbose |
6174
|
0 |
0 |
$pv_copy_on_grow ? : |
6194
|
0 |
0 |
if $debug{'flags'} |
6197
|
0 |
0 |
if ($PERL510 and not $pv_copy_on_grow and $cur) |
6203
|
0 |
0 |
if ($$fsym) |
6210
|
0 |
0 |
if $fsym |
6214
|
0 |
0 |
unless ($PERL56 or $is_DATA) |
6226
|
0 |
0 |
if ($io->IsSTD($_) or defined $fd and $fd == -$i) |
6231
|
0 |
0 |
if ($perlio_func) { } |
6252
|
0 |
0 |
if ($iotype eq "\000" or $iotype eq ' ') { } |
|
0 |
0 |
elsif ($iotype =~ /[a>]/) { } |
|
0 |
0 |
elsif ($iotype =~ /[<#\+]/) { } |
6255
|
0 |
0 |
if $debug{'gv'} |
6258
|
0 |
0 |
if $fd >= 3 or $verbose |
6260
|
0 |
0 |
$iotype eq '>' ? : |
6263
|
0 |
0 |
$fd < 3 ? : |
|
0 |
0 |
$fd < 3 ? : |
6268
|
0 |
0 |
if $fd >= 3 or $verbose |
6273
|
0 |
0 |
if ($io->can('tell') and $tell = $io->tell) |
6287
|
0 |
0 |
if ($PERL518) |
6289
|
0 |
0 |
if ($stash and $$stash) |
6296
|
0 |
0 |
if $debug{'gv'} |
6308
|
0 |
0 |
unless $$sv |
6315
|
0 |
0 |
if $check |
6326
|
0 |
0 |
if ($PERL522) |
6332
|
0 |
0 |
if ($CPERL52) |
6340
|
0 |
0 |
if $symsect->comment and $verbose |
6347
|
0 |
0 |
if ($lines) |
6351
|
0 |
0 |
if ($typename eq 'SV*' and $name =~ /^(?:avco[gw])_(\d+)$/) { } |
6353
|
0 |
0 |
if $name =~ /^avcow_/ |
6365
|
0 |
0 |
if ($MULTI) { } |
6368
|
0 |
0 |
if ($] > 5.01903) { } |
6373
|
0 |
0 |
if ($PERL510) |
6379
|
0 |
0 |
if ($] < 5.008008) |
6389
|
0 |
0 |
if ($] < 5.008009) |
6399
|
0 |
0 |
if ($] < 5.013007) |
6406
|
0 |
0 |
if ($] < 5.01301) |
6416
|
0 |
0 |
if ($] >= 5.021005 and $] < 5.023) |
6434
|
0 |
0 |
if (%init2_remap and not $HAVE_DLFCN_DLOPEN) |
6440
|
0 |
0 |
if $decl->comment and $verbose |
6446
|
0 |
0 |
if ($lines) |
6450
|
0 |
0 |
if ($typename eq 'SV*' and $name =~ /^(?:avco[wg])_(\d+)$/) { } |
6452
|
0 |
0 |
if $name =~ /^avcow_/ |
6457
|
0 |
0 |
if $section->comment and $verbose |
6466
|
0 |
0 |
if @{$init0->[-1]{'values'};} |
6470
|
0 |
0 |
if $init->comment and $verbose |
6472
|
0 |
0 |
if $verbose |
6473
|
0 |
0 |
if $init1->comment and $verbose |
6476
|
0 |
0 |
if $verbose |
6477
|
0 |
0 |
if $init2->comment and $verbose |
6480
|
0 |
0 |
if (exists $xsub{$pkg}) |
6487
|
0 |
0 |
if ($remap) |
6491
|
0 |
0 |
if ($HAVE_DLFCN_DLOPEN) { } |
6500
|
0 |
0 |
if (exists $xsub{$pkg}) |
6501
|
0 |
0 |
if ($HAVE_DLFCN_DLOPEN) { } |
6503
|
0 |
0 |
if $^O =~ /bsd/i |
6517
|
0 |
0 |
if $verbose |
6519
|
0 |
0 |
if ($HAVE_DLFCN_DLOPEN) { } |
6540
|
0 |
0 |
if ($verbose) |
6542
|
0 |
0 |
$caller eq 'B::CC' ? : |
6562
|
0 |
0 |
if ($PERL510 and &IS_MSVC()) |
6570
|
0 |
0 |
if ($PERL510) |
6598
|
0 |
0 |
if ($PERL522) |
6626
|
0 |
0 |
if ($padnamesect{$s}->index >= 0) |
6639
|
0 |
0 |
if ($PERL510 and not $PERL514) |
6649
|
0 |
0 |
if ($B::C::Config::have_HEK_STATIC) |
6659
|
0 |
0 |
if ($PERL510 and $] < 5.012 and not $C99) |
6690
|
0 |
0 |
if ($PERL512) { } |
|
0 |
0 |
elsif ($PERL510) { } |
6699
|
0 |
0 |
if ($] == 5.01) |
6704
|
0 |
0 |
if ($] >= 5.021001 and not $CPERL52) |
6708
|
0 |
0 |
if $gv_index |
6713
|
0 |
0 |
if $B::C::REVISION |
6717
|
0 |
0 |
if $debug{'flags'} and $DEBUG_LEAKING_SCALARS |
6718
|
0 |
0 |
if ($B::C::Config::have_independent_comalloc) |
6778
|
0 |
0 |
if ($] < 5.008008) |
6794
|
0 |
0 |
if $CPERL51 and $^O ne 'MSWin32' |
6798
|
0 |
0 |
if ($av_init2 and $B::C::Config::use_declare_independent_comalloc) |
6801
|
0 |
0 |
if ($av_init2) |
6804
|
0 |
0 |
if ($last) |
6810
|
0 |
0 |
if ($xpvav_sizes[$_] > 0) { } |
6815
|
0 |
0 |
if $_ != $last |
6816
|
0 |
0 |
unless ($_ + 1) % 30 |
6823
|
0 |
0 |
if (not $destruct) { } |
6843
|
0 |
0 |
if ($] < 5.008009) |
6867
|
0 |
0 |
if ($PERL510) |
6879
|
0 |
0 |
if ($PERL510) |
6891
|
0 |
0 |
if ($] < 5.008009) |
6905
|
0 |
0 |
if (not $destruct) { } |
7061
|
0 |
0 |
if ($s =~ /\(OP\*\)&unopaux_list/) |
7196
|
0 |
0 |
if ($s =~ /^sv_list\[\d+\]\./) { } |
|
0 |
0 |
elsif ($s =~ /^sv_list/) { } |
|
0 |
0 |
elsif ($s =~ /^&sv_list/) { } |
|
0 |
0 |
elsif ($s =~ /^\(HV\*\)&sv_list/) { } |
|
0 |
0 |
elsif ($s =~ /^\(AV\*\)&sv_list/) { } |
|
0 |
0 |
elsif ($s =~ /^&padnamelist_list/) { } |
|
0 |
0 |
elsif ($s =~ /^&padname(_\d+)?_list/) { } |
|
0 |
0 |
elsif ($s =~ /^cop_list/) { } |
|
0 |
0 |
elsif ($s =~ /\(OP\*\)&unopaux_list/) { } |
|
0 |
0 |
elsif ($s ne 'ptr_undef') { } |
7218
|
0 |
0 |
if ($ITHREADS or not $MULTI) |
7221
|
0 |
0 |
if ($] >= 5.017) { } |
|
0 |
0 |
elsif ($] < 5.016 and $ITHREADS) { } |
|
0 |
0 |
elsif ($] < 5.016 and not $ITHREADS) { } |
7242
|
0 |
0 |
if ($CPERL51) |
7243
|
0 |
0 |
$CPERL55 ? : |
7246
|
0 |
0 |
if ($CPERL51) |
7247
|
0 |
0 |
$CPERL55 ? : |
7317
|
0 |
0 |
if ($CPERL51 and $debug{'cv'}) |
7338
|
0 |
0 |
if $verbose |
7345
|
0 |
0 |
if $verbose |
7349
|
0 |
0 |
if ($CPERL51 and $^O ne 'MSWin32') |
7357
|
0 |
0 |
unless (exists $curINC{$incpack}) |
7358
|
0 |
0 |
if $debug{'pkg'} |
7360
|
0 |
0 |
unless $static_ext{$stashname} |
7363
|
0 |
0 |
unless ($xsub{$stashname} =~ /^Dynamic/ or $static_ext{$stashname}) |
7365
|
0 |
0 |
if $verbose |
7380
|
0 |
0 |
if $ENV{'PERLMODS'} |
7383
|
0 |
0 |
unless grep {$_ ne $perlmod;} @dl_modules |
7387
|
0 |
0 |
unless ($xsub{$c} or $include_package{$c}) |
7389
|
0 |
0 |
if $verbose and not $skip_package{$c} |
7396
|
0 |
0 |
if $verbose and $xsub{$c} |
7402
|
0 |
0 |
if $verbose |
7410
|
0 |
0 |
if ($stashname eq 'attributes' and $] > 5.011) |
7414
|
0 |
0 |
if (not exists $xsub{$stashname} and $include_package{$stashname}) |
7417
|
0 |
0 |
unless $INC{$incpack} |
7418
|
0 |
0 |
unless ($savINC{$incpack}) |
7422
|
0 |
0 |
if $verbose |
7424
|
0 |
0 |
if (exists $xsub{$stashname} and $xsub{$stashname} =~ /^Dynamic/) |
7427
|
0 |
0 |
if $xsub{$stashname} ne 'Dynamic' |
7432
|
0 |
0 |
if (exists $xsub{$stashname} and $xsub{$stashname} =~ /^Dynamic-/ and $PERL522 || $staticxs) |
7437
|
0 |
0 |
if $verbose and $debug{'cv'} |
7439
|
0 |
0 |
if ($dl and not $curINC{'DynaLoader.pm'}) { } |
|
0 |
0 |
elsif ($xs and not $curINC{'XSLoader.pm'}) { } |
7452
|
0 |
0 |
if ($dl) |
7456
|
0 |
0 |
if (grep {$_ eq $front;} @dl_modules) |
7461
|
0 |
0 |
unless open XS, '>', $outfile . '.lst' |
|
0 |
0 |
if ($staticxs) |
7465
|
0 |
0 |
if $xs |
7466
|
0 |
0 |
if $xs |
7468
|
0 |
0 |
if $] < 5.008008 |
7470
|
0 |
0 |
if (exists $xsub{'Coro::State'} and grep {$_ eq 'Coro::State';} @dl_modules) |
7482
|
0 |
0 |
if (exists $xsub{'EV'} and grep {$_ eq 'EV';} @dl_modules) |
7492
|
0 |
0 |
if (exists $xsub{$stashname} and $xsub{$stashname} =~ /^Dynamic/) { } |
7496
|
0 |
0 |
$] < 5.008008 ? : |
7498
|
0 |
0 |
if ($xsub{$stashname} eq 'Dynamic') { } |
7500
|
0 |
0 |
if $verbose |
7510
|
0 |
0 |
if ($] >= 5.015003 and $stashfile) |
7511
|
0 |
0 |
if ($CPERL51) |
7521
|
0 |
0 |
if (/$needle/) |
7526
|
0 |
0 |
unless ($sofile) |
7529
|
0 |
0 |
if ($stashname eq 'Cwd' and not $stashfile =~ /Cwd/) |
7544
|
0 |
0 |
if $verbose |
7547
|
0 |
0 |
if ($] >= 5.015003) { } |
7549
|
0 |
0 |
unless (grep /^DynaLoader$/, &get_isa($stashname)) |
7553
|
0 |
0 |
if $debug{'gv'} |
7557
|
0 |
0 |
if $stashfile |
7563
|
0 |
0 |
if ($staticxs) |
7567
|
0 |
0 |
if $path |
7568
|
0 |
0 |
unless $laststash |
7573
|
0 |
0 |
if (m[^(.+/)$sofile$]) |
7575
|
0 |
0 |
if $verbose |
7580
|
0 |
0 |
if $sofile |
7581
|
0 |
0 |
if $sofile and $verbose |
7587
|
0 |
0 |
if ($PERL522 or $staticxs) { } |
7590
|
0 |
0 |
if ($PERL522 and $staticxs) { } |
7608
|
0 |
0 |
!$xsub{$stashname} ? : |
|
0 |
0 |
if $verbose |
7617
|
0 |
0 |
if $xs |
7620
|
0 |
0 |
if $staticxs |
7626
|
0 |
0 |
if (not defined $module) |
7656
|
0 |
0 |
if ($ITHREADS and $] > 5.007) |
7679
|
0 |
0 |
unless $PERL56 |
7680
|
0 |
0 |
if ($] >= 5.008009) |
7687
|
0 |
0 |
unless ($PERL510) |
7711
|
0 |
0 |
if (not $PERL56 and ${^TAINT}) |
7735
|
0 |
0 |
if ($use_perl_script_name) { } |
7746
|
0 |
0 |
if $^H |
7747
|
0 |
0 |
if ${^UNICODE} |
7753
|
0 |
0 |
if $; ne "\034" |
7754
|
0 |
0 |
if $" ne ' ' |
7756
|
0 |
0 |
if ($PERL56) { } |
7757
|
0 |
0 |
if $, |
7758
|
0 |
0 |
if $\ |
7760
|
0 |
0 |
if $, |
7761
|
0 |
0 |
if $\ |
7763
|
0 |
0 |
if $/ ne "\n" |
7764
|
0 |
0 |
if $| |
7766
|
0 |
0 |
if $^A |
7767
|
0 |
0 |
if $^L ne "\f" |
7768
|
0 |
0 |
if $main::: ne " \n-" |
7769
|
0 |
0 |
if $^ ne 'STDOUT_TOP' |
7771
|
0 |
0 |
if $~ ne 'STDOUT' |
7773
|
0 |
0 |
if $% |
7774
|
0 |
0 |
unless $- == 0 or $- == 60 |
7775
|
0 |
0 |
if $= != 60 |
7778
|
0 |
0 |
if $[ |
7779
|
0 |
0 |
if ($] < 5.01) |
7802
|
0 |
0 |
if $init1->index >= 0 |
7803
|
0 |
0 |
unless defined $module |
7804
|
0 |
0 |
if $init2->index >= 0 |
7810
|
0 |
0 |
if (not $destruct) { } |
7811
|
0 |
0 |
if $verbose |
7871
|
0 |
0 |
if $debug{'gv'} and $verbose |
7876
|
0 |
0 |
if $package ne 'main' and not $include_package{$package} |
7877
|
0 |
0 |
if $package eq 'main' and $name =~ /^([^\w].*|_\<.*|INC|ARGV|SIG|ENV|BEGIN|main::|!)$/ |
7880
|
0 |
0 |
if $debug{'gv'} |
7881
|
0 |
0 |
unless $$cv or $$av or $$sv or $$hv or $gv->IO or $gv->FORM |
7882
|
0 |
0 |
if ($$cv and $name eq 'bootstrap' and $cv->XSUB) |
7884
|
0 |
0 |
if $debug{'gv'} |
7887
|
0 |
0 |
if ($$cv and in_static_core($package, $name) and ref $cv eq 'B::CV' and $cv->XSUB) |
7889
|
0 |
0 |
if $debug{'gv'} |
7891
|
0 |
0 |
unless ($dumped_package{$package}) |
7897
|
0 |
0 |
if ($package eq 'B::C') |
7898
|
0 |
0 |
if $debug{'gv'} |
7901
|
0 |
0 |
if ($fullname =~ /^(bytes|utf8)::AUTOLOAD$/) |
7905
|
0 |
0 |
if $fullname eq 'B::walksymtable' or $fullname eq 'B::C::walksymtable' |
7908
|
0 |
0 |
if ($name eq 'Config') |
7909
|
0 |
0 |
unless $include_package{'Config'} |
7911
|
0 |
0 |
unless exists $dumped_package{$package} or $package =~ /::$/ |
7912
|
0 |
0 |
if $debug{'gv'} |
7924
|
0 |
0 |
unless defined $prefix |
7929
|
0 |
0 |
if $prefix eq 'utf8::' and defined $symref->{'SWASHNEW'} |
7936
|
0 |
0 |
if $a eq $v |
7937
|
0 |
0 |
if $b eq $v |
7947
|
0 |
0 |
if ($sym =~ /::$/) { } |
7949
|
0 |
0 |
if (svref_2object(\*$sym)->NAME ne 'main::' and $sym ne '::' and &$recurse($sym)) |
7961
|
0 |
0 |
if $dumped_package{$package} |
7962
|
0 |
0 |
if $debug{'pkg'} and $verbose |
7972
|
0 |
0 |
unless defined $prefix |
7974
|
0 |
0 |
if ($sym =~ /::$/) |
7977
|
0 |
0 |
if ($sym ne 'main::' and $sym ne '::') |
7993
|
0 |
0 |
if $] < 5.01 |
7994
|
0 |
0 |
if skip_pkg($package) |
7995
|
0 |
0 |
if (not $include_package{$package} or $force) |
7997
|
0 |
0 |
if $verbose and $debug{'pkg'} |
7999
|
0 |
0 |
if grep {$package eq $_;} @IO |
8000
|
0 |
0 |
if $package eq 'XSLoader' |
8001
|
0 |
0 |
if $package =~ /^B|Carp$/ |
8003
|
0 |
0 |
if (exists $include_package{$package} and not $include_package{$package} and $savINC{inc_packname($package)}) { } |
8007
|
0 |
0 |
$force ? : |
|
0 |
0 |
if $verbose |
8014
|
0 |
0 |
$force ? : |
|
0 |
0 |
if not $include_package{$package} and $verbose and $debug{'pkg'} |
8016
|
0 |
0 |
if $] < 5.01 |
8017
|
0 |
0 |
unless $walkall |
8020
|
0 |
0 |
if (@isa) |
8024
|
0 |
0 |
if $isa eq $package |
8025
|
0 |
0 |
if ($isa eq 'DynaLoader') |
8026
|
0 |
0 |
unless (defined &{$package . '::bootstrap';}) |
8027
|
0 |
0 |
if $verbose |
8031
|
0 |
0 |
unless ($include_package{$isa} or $skip_package{$isa}) |
8033
|
0 |
0 |
if $verbose |
8035
|
0 |
0 |
if (exists $include_package{$isa}) { } |
8036
|
0 |
0 |
if $verbose |
8054
|
0 |
0 |
if ($stashname eq 'UNIVERSAL') |
8057
|
0 |
0 |
unless %static_core_pkg |
8059
|
0 |
0 |
if $static_core_pkg{$stashname} |
8060
|
0 |
0 |
if ($stashname eq 'mro') |
8063
|
0 |
0 |
if ($stashname eq 're') |
8066
|
0 |
0 |
if ($stashname eq 'PerlIO') |
8069
|
0 |
0 |
if ($stashname eq 'PerlIO::Layer') |
8080
|
0 |
0 |
if $CPERL51 |
8081
|
0 |
0 |
if $] < 5.011 |
8082
|
0 |
0 |
if $] >= 5.01 |
8083
|
0 |
0 |
unless $PERL514 |
8087
|
0 |
0 |
if $^O eq 'cygwin' |
8088
|
0 |
0 |
if $^O eq 'NetWare' |
8089
|
0 |
0 |
if $^O eq 'os2' |
8090
|
0 |
0 |
if $^O eq 'VMS' |
8098
|
0 |
0 |
if ($package =~ /^(main::)?(Internals|O)::/ or $package =~ /^B::C::/ or $package eq '__ANON__' or index($package, ' ') != -1 or index($package, '(') != -1 or index($package, ')') != -1 or exists $skip_package{$package} or $DB::deep and $package =~ /^(DB|Term::ReadLine)/) |
8116
|
0 |
0 |
if (exists $all_bc_deps{$pkg} and $can_delete_pkg) |
8124
|
0 |
0 |
if (skip_pkg($package)) |
8125
|
0 |
0 |
if can_delete($package) |
8128
|
0 |
0 |
if $package =~ /::::/ |
8130
|
0 |
0 |
if $debug{'pkg'} |
8131
|
0 |
0 |
if index($package, ' ') != -1 |
8132
|
0 |
0 |
if index($package, '(') != -1 |
8133
|
0 |
0 |
if index($package, ')') != -1 |
8135
|
0 |
0 |
if ($package eq 'mro') |
8137
|
0 |
0 |
if (not is_using_mro()) { } |
8138
|
0 |
0 |
if $debug{'pkg'} |
8141
|
0 |
0 |
if $debug{'pkg'} |
8146
|
0 |
0 |
if ($package eq 'attributes' and $] > 5.011 and grep {$_ eq 'attributes';} @DynaLoader::dl_modules) |
8152
|
0 |
0 |
if (exists $all_bc_deps{$package}) |
8159
|
0 |
0 |
if $u =~ /^$p\:\:/ and $include_package{$package} |
8164
|
0 |
0 |
if ($] > 5.015001 and exists $all_bc_deps{$package} and not exists $curINC{$incpack} and $savINC{$incpack}) |
8167
|
0 |
0 |
if $debug{'pkg'} |
8171
|
0 |
0 |
if ($package =~ /^DynaLoader|XSLoader$/ and $use_xsloader or not exists $all_bc_deps{$package}) |
8176
|
0 |
0 |
if ($mainfile) |
8180
|
0 |
0 |
if (defined &{$package . '::' . $sym;}) |
8183
|
0 |
0 |
if ($cv and $cv->can('FILE') and $cv->FILE) |
8184
|
0 |
0 |
if $mainfile eq $cv->FILE |
8191
|
0 |
0 |
if ($savINC{'overload.pm'} and exists do {
$package . '::'
}->{'OVERLOAD'} and exists do {
$package . '::'
}->{'()'}) |
8199
|
0 |
0 |
if (exists $include_package{$package}) |
8200
|
0 |
0 |
if (not exists $all_bc_deps{$package}) { } |
|
0 |
0 |
elsif (not $include_package{$package}) { } |
8203
|
0 |
0 |
if $debug{'pkg'} |
8206
|
0 |
0 |
if can_delete($package) |
8207
|
0 |
0 |
if $debug{'pkg'} |
8209
|
0 |
0 |
if $debug{'pkg'} |
8215
|
0 |
0 |
unless ($all_bc_deps{$package}) |
8220
|
0 |
0 |
if (UNIVERSAL::can($package, $m) and not $package =~ /^(B::C|version|Regexp|utf8|SelectSaver)$/) |
8221
|
0 |
0 |
if $package eq 'utf8' and $m eq 'DESTROY' |
8224
|
0 |
0 |
if $package =~ /^(Errno|Tie::Hash::NamedCapture)$/ and $m eq 'TIEHASH' |
8226
|
0 |
0 |
if $package eq 'Config' and $m =~ /DESTROY|TIEHASH/ |
8228
|
0 |
0 |
if $package =~ /^(FileHandle|IO::File|IO::Handle)/ and $m eq 'new' |
8229
|
0 |
0 |
if $debug{'pkg'} |
8234
|
0 |
0 |
if (not $package =~ /^PerlIO/ and can_delete($package)) |
8237
|
0 |
0 |
if (can_delete($package)) { } |
|
0 |
0 |
elsif (not exists $all_bc_deps{$package}) { } |
8238
|
0 |
0 |
if $debug{'pkg'} |
8241
|
0 |
0 |
if $debug{'pkg'} |
8260
|
0 |
0 |
if ($package =~ /^(Config_git\.pl|Config_heavy.pl)$/) |
8263
|
0 |
0 |
if ($package eq 'utf8_heavy.pl') |
8274
|
0 |
225 |
if $dumped_package{$package} |
8276
|
0 |
0 |
if $package =~ /^DynaLoader|XSLoader$/ and defined $use_xsloader and $use_xsloader == 0 |
8279
|
0 |
225 |
if $^O eq 'MSWin32' and $package =~ /^Carp|File::Basename$/ |
8281
|
0 |
225 |
if ($curINC{$incpack}) |
8283
|
0 |
0 |
unless $savINC{$incpack} |
8293
|
0 |
0 |
unless ($curINC{$incpack}) |
8294
|
0 |
0 |
if ($savINC{$incpack}) { } |
8295
|
0 |
0 |
if $debug{'pkg'} |
8298
|
0 |
0 |
if $package =~ /^DynaLoader|XSLoader$/ |
8300
|
0 |
0 |
if $debug{'pkg'} |
8303
|
0 |
0 |
if (-e $p) |
8305
|
0 |
0 |
unless $curINC{$incpack} |
8313
|
0 |
0 |
unless defined $prefix |
8315
|
0 |
0 |
if $savINC{inc_packname(substr($prefix, 0, -2))} |
8318
|
0 |
0 |
unless $ref |
8321
|
0 |
0 |
if ($sym =~ /::$/) |
8323
|
0 |
0 |
if $debug{'pkg'} and $debug{'walk'} |
8326
|
0 |
0 |
if ($sym ne 'main::' and $sym ne '::' and &$recurse($sym)) |
8336
|
0 |
0 |
if ($debug{'unused'}) |
8340
|
0 |
0 |
$module ? : |
8348
|
0 |
0 |
if ($verbose) |
8349
|
0 |
0 |
$sav_debug{'unused'} ? : |
8355
|
0 |
0 |
$main eq 'main::' ? : |
8356
|
0 |
0 |
$sav_debug{'unused'} ? : |
|
0 |
0 |
if $verbose |
8360
|
0 |
0 |
if $dumped_package{$_} |
8361
|
0 |
0 |
if $verbose |
8363
|
0 |
0 |
if (not $walkall) { } |
8370
|
0 |
0 |
if $dumped_package{$_} |
8372
|
0 |
0 |
if $walkall_cnt++ > 3 |
8376
|
0 |
0 |
if ($sav_debug{'unused'}) |
8383
|
0 |
0 |
if (exists $INC{'unicore/To/Title.pl'} or exists $INC{'unicore/To/Tc.pl'} or exists $INC{'unicore/Heavy.pl'} or $savINC{'utf8_heavy.pl'} and $fold || exists $savINC{'utf8.pm'}) |
8387
|
0 |
0 |
unless $savINC{'utf8.pm'} |
8395
|
0 |
0 |
if ($] >= 5.013005 and ($warnings and exists $dumped_package{'Carp'})) |
8401
|
0 |
0 |
if ($xsub{'EV'} and $dumped_package{'EV'} and $EV::VERSION le '4.21') |
8408
|
0 |
0 |
if ($use_xsloader) |
8419
|
0 |
0 |
if ($CPERL51) |
8427
|
0 |
0 |
if ($package =~ /^(Config_git\.pl|Config_heavy.pl)$/ and not $dumped_package{'Config'}) { } |
|
0 |
0 |
elsif ($package eq 'utf8_heavy.pl' and not $include_package{'utf8'}) { } |
|
0 |
0 |
elsif (not $walkall || exists $dumped_package{$pkg}) { } |
8439
|
0 |
0 |
unless (exists $curINC{$p}) |
8444
|
0 |
0 |
if ($debug{'pkg'} and $verbose) |
8450
|
0 |
0 |
if ($walkall) |
8452
|
0 |
0 |
if $again and $rec_cnt < 2 |
8457
|
0 |
0 |
unless exists $dumped_package{$pkg} |
8459
|
0 |
0 |
if (not exists $curINC{$p} and exists $INC{$p}) |
8464
|
0 |
0 |
if ($debug{'pkg'} and $verbose) |
8465
|
0 |
0 |
if @deleted_inc |
8473
|
0 |
0 |
if $verbose or $debug{'pkg'} |
8478
|
0 |
0 |
if ($include_package{$p} and not exists $dumped_package{$p} and not $static_core_pkg{$p} and not $p =~ /^(threads|main|__ANON__|PerlIO)$/) |
8483
|
0 |
0 |
if ($p eq 'warnings::register' and not $warnings) |
8488
|
0 |
0 |
if $verbose or $debug{'pkg'} |
8502
|
0 |
0 |
unless my $package = shift() |
8504
|
0 |
0 |
if grep {$_ eq $package;} @made_c3 |
8513
|
0 |
0 |
if $verbose or $debug{'pkg'} |
8528
|
0 |
0 |
if $verbose |
8530
|
0 |
0 |
if $save_sig |
8534
|
0 |
0 |
if ($^{'TAINT'}) |
8538
|
0 |
0 |
$^{'TAINT'} < 0 ? : |
8541
|
0 |
0 |
if ($PERL510) |
8543
|
0 |
0 |
if (is_using_mro() and mro::get_mro('main') eq 'c3') |
8564
|
0 |
0 |
if (defined objsym(svref_2object(\*{'main::!';}))) { } |
8566
|
0 |
0 |
unless ($include_package{'Errno'}) |
8584
|
0 |
0 |
if $verbose |
8586
|
0 |
0 |
if $verbose |
8592
|
0 |
0 |
if $ro_inc |
8593
|
0 |
0 |
if $verbose |
8605
|
0 |
0 |
if ($include_package{$p} and exists do {
$p . '::'
}->{'ISA'} and do {
$p . '::'
}->{'ISA'}) |
8608
|
0 |
0 |
if ($PERL510 and (is_using_mro() and mro::get_mro($p) eq 'c3')) |
8613
|
0 |
0 |
if @saved_isa and $verbose || $debug{'pkg'} |
8621
|
0 |
0 |
if ($] < 5.017005) { } |
|
0 |
0 |
elsif ($] < 5.019003) { } |
|
0 |
0 |
elsif ($] < 5.022) { } |
8639
|
0 |
0 |
if ($] < 5.017) |
8641
|
0 |
0 |
if $verbose |
8654
|
0 |
0 |
unless skip_pkg($p) or $all_bc_deps{$p} or $pack =~ /(autosplit\.ix|\.al)$/ |
8656
|
0 |
0 |
if ($debug{'pkg'} and $verbose) |
8661
|
0 |
0 |
unless skip_pkg($pack) |
8664
|
0 |
0 |
if $debug{'pkg'} |
8669
|
0 |
0 |
if $verbose |
8670
|
0 |
0 |
if $verbose |
8672
|
0 |
0 |
if $PERL512 |
8675
|
0 |
0 |
unless $PERL56 |
8677
|
0 |
0 |
$verbose ? : |
8690
|
0 |
0 |
if not $symbol =~ /^[0-9A-Z_]+$/ or $symbol =~ /(?:^ISA$|^EXPORT|^DESTROY|^TIE|^VERSION|^AUTOLOAD|^BEGIN|^INIT|^__|^DELETE|^CLEAR|^STORE|^NEXTKEY|^FIRSTKEY|^FETCH|^EXISTS)/ |
8691
|
0 |
0 |
if ref $symtab->{$symbol} |
8695
|
0 |
0 |
if ($@ =~ /vendor has not defined/) |
8708
|
0 |
0 |
if ($optimize_ppaddr) |
8712
|
0 |
0 |
unless $num >= 0 |
8724
|
0 |
0 |
unless ref $SIG{$k} |
8726
|
0 |
0 |
if ref $cvref eq 'B::CV' and $cvref->FILE =~ m[B/C\.pm$] |
8729
|
0 |
0 |
unless (@save_sig) |
8730
|
0 |
0 |
if $verbose |
8731
|
0 |
0 |
if $verbose |
8734
|
0 |
0 |
if $verbose |
8735
|
0 |
0 |
if $verbose |
8753
|
0 |
0 |
if ($] < 5.015003) { } |
|
0 |
0 |
elsif ($CPERL51) { } |
8771
|
0 |
0 |
if $] < 5.015003 |
8781
|
0 |
0 |
if $verbose or $debug{'cv'} |
8788
|
0 |
0 |
if $debug{'av'} |
8795
|
0 |
0 |
if $debug{'av'} |
8800
|
0 |
0 |
unless (defined $module) |
8806
|
0 |
0 |
index($init_av, '(AV*)') >= 0 ? : |
8809
|
0 |
0 |
index($end_av, '(AV*)') >= 0 ? : |
8813
|
0 |
0 |
unless defined $module |
8816
|
0 |
0 |
if $use_xsloader |
8818
|
0 |
0 |
if $check |
8819
|
0 |
0 |
if $verbose |
8824
|
0 |
0 |
if $stashname =~ /^\s*$/ |
8835
|
0 |
0 |
if (defined $module) { } |
8836
|
0 |
0 |
$module ? : |
8840
|
0 |
0 |
if $verbose |
8910
|
0 |
0 |
if ($PERL522) |
8917
|
0 |
0 |
if ($PERL522) |
8938
|
225 |
0 |
unless $include_package{$_} |
8945
|
0 |
0 |
if defined &DB::DB |
8953
|
0 |
0 |
if $] >= 5.013009 |
8954
|
0 |
0 |
if $] >= 5.013005 |
8955
|
0 |
0 |
if $^O ne 'MSWin32' or not $Config{'cc'} =~ /^cl/i |
8956
|
0 |
0 |
if $] >= 5.017 |
8965
|
0 |
0 |
if ($option =~ /^-(.)(.*)/) { } |
8973
|
0 |
0 |
if ($opt eq '-' and $arg eq '-') |
8977
|
0 |
0 |
if ($opt eq 'w') |
8980
|
0 |
0 |
if ($opt eq 'c') { } |
|
0 |
0 |
elsif ($opt eq 'D') { } |
|
0 |
0 |
elsif ($opt eq 'o') { } |
|
0 |
0 |
elsif ($opt eq 's' and $arg eq 'taticxs') { } |
|
0 |
0 |
elsif ($opt eq 'n') { } |
|
0 |
0 |
elsif ($opt eq 'm') { } |
|
0 |
0 |
elsif ($opt eq 'v') { } |
|
0 |
0 |
elsif ($opt eq 'u') { } |
|
0 |
0 |
elsif ($opt eq 'U') { } |
|
0 |
0 |
elsif ($opt eq 'f') { } |
|
0 |
0 |
elsif ($opt eq 'O') { } |
|
0 |
0 |
elsif ($opt eq 'e') { } |
|
0 |
0 |
elsif ($opt eq 'l') { } |
8985
|
0 |
0 |
if ($arg eq 'full') { } |
|
0 |
0 |
elsif ($arg eq 'ufull') { } |
8994
|
0 |
0 |
if (exists $debug_map{$arg}) { } |
|
0 |
0 |
elsif ($arg eq 'o') { } |
|
0 |
0 |
elsif ($arg eq 'F') { } |
|
0 |
0 |
elsif ($arg eq 'r') { } |
9002
|
0 |
0 |
if $] > 5.008 and eval 'require B::Flags;' |
9012
|
0 |
0 |
if $init |
9023
|
0 |
0 |
if ($check) { } |
9026
|
0 |
0 |
unless open STDOUT, '>', $arg |
9030
|
0 |
0 |
unless $outfile |
9047
|
0 |
0 |
if ($arg =~ /\.p[lm]$/) { } |
9062
|
0 |
0 |
$no ? : |
9063
|
0 |
0 |
if (exists $option_map{$arg}) { } |
9071
|
0 |
0 |
if $arg eq '' |
9075
|
0 |
0 |
if exists $optimization_map{$i} |
9078
|
0 |
0 |
if $verbose |
9087
|
0 |
0 |
if (not $B::C::Config::have_independent_comalloc) { } |
|
0 |
0 |
elsif ($av_init2 and $av_init) { } |
9088
|
0 |
0 |
if ($av_init2) { } |
|
0 |
0 |
elsif ($av_init) { } |
9097
|
0 |
0 |
if $] >= 5.008 and $] < 5.009004 || $MULTI |
9098
|
0 |
0 |
if $] < 5.008 or $^O eq 'MSWin32' |
9104
|
0 |
0 |
if (@options) { } |