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 |
246
|
0 |
0 |
exists $sym->{$1} ? : |
249
|
0 |
0 |
if (@{$section->[-1]{'evals'};}) |
251
|
0 |
0 |
if ($section->name ne 'init2') { } |
269
|
0 |
0 |
if ($section->name eq 'init') |
310
|
0 |
0 |
if $] >= 5.01 |
315
|
0 |
0 |
keys %main::mro:: > 10 ? : |
319
|
55 |
0 |
if ($] >= 5.008) { } |
341
|
55 |
0 |
if ($] >= 5.008001) { } |
347
|
55 |
0 |
if ($] >= 5.01) { } |
353
|
55 |
0 |
if ($] >= 5.018) { } |
|
0 |
0 |
elsif ($] >= 5.014) { } |
|
0 |
0 |
elsif ($] >= 5.012) { } |
363
|
55 |
0 |
if ($] > 5.021006) { } |
379
|
0 |
55 |
if ($] < 5.018) { } |
394
|
55 |
0 |
if ($] > 5.021005) |
398
|
0 |
55 |
if ($Config{'usecperl'} and $] >= 5.022002) |
551
|
0 |
0 |
if $^O eq 'MSWin32' |
559
|
55 |
0 |
unless $CPERL51 |
564
|
0 |
0 |
unless my $module = shift() |
566
|
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 (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 |
$PERL5257 ? : |
2582
|
0 |
0 |
if ($] < 5.008008 and $ITHREADS and $$op < 256) |
2586
|
0 |
0 |
unless $level |
2592
|
0 |
0 |
if ref $replroot |
2593
|
0 |
0 |
if ($ITHREADS and $op->name eq $pushre) { } |
|
0 |
0 |
elsif (ref $replroot and $$replroot) { } |
2594
|
0 |
0 |
if $debug{'gv'} |
2601
|
0 |
0 |
if ($op->name eq $pushre) { } |
2602
|
0 |
0 |
if $debug{'gv'} |
2605
|
0 |
0 |
if $replstart |
2608
|
0 |
0 |
if $replstart |
2617
|
0 |
0 |
if ($PERL510) { } |
|
0 |
0 |
elsif ($PERL56) { } |
2624
|
0 |
0 |
$ITHREADS ? : |
2627
|
0 |
0 |
if ($] >= 5.017) |
2629
|
0 |
0 |
if ($code_list and $$code_list) |
2631
|
0 |
0 |
if $debug{'gv'} |
2633
|
0 |
0 |
if $code_op |
2636
|
0 |
0 |
if $debug{'gv'} |
2660
|
0 |
0 |
$ITHREADS ? : |
|
0 |
0 |
$MULTI ? : |
2665
|
0 |
0 |
if (not $MULTI and $op->pmstash) |
2670
|
0 |
0 |
if $debug{'flags'} |
2672
|
0 |
0 |
unless $optimize_ppaddr |
2675
|
0 |
0 |
if (defined $re) |
2678
|
0 |
0 |
if ($PERL510) { } |
|
0 |
0 |
elsif ($PERL56) { } |
2684
|
0 |
0 |
if $debug{'pv'} or $debug{'gv'} |
2686
|
0 |
0 |
if ($] >= 5.013009 and $pmflags & 4) |
2689
|
0 |
0 |
if ($PERL518 and not $swash_init and $swash_ToCf) |
2697
|
0 |
0 |
if ($utf8 and $] >= 5.013009 and $pmflags & 1 or re_does_swash($qre, $pmflags)) { } |
2701
|
0 |
0 |
if $debug{'sv'} |
2703
|
0 |
0 |
if $debug{'sv'} |
2705
|
0 |
0 |
if ($PERL518 and $op->reflags & 131072) |
2712
|
0 |
0 |
if ($] > 5.008008) { } |
2722
|
0 |
0 |
if $utf8 |
2724
|
0 |
0 |
if ($] >= 5.018 and $op->reflags & 131072) |
2731
|
0 |
0 |
if ($PERL510 and $op->pmflags & 65536) |
2732
|
0 |
0 |
ref $op->pmstash eq 'B::HV' ? : |
|
0 |
0 |
$MULTI ? : |
2750
|
0 |
0 |
if ($gvsym) |
2751
|
0 |
0 |
if ($PERL510) { } |
2765
|
0 |
0 |
unless @B::C::specialsv_name |
2768
|
0 |
0 |
unless (defined $sym) |
2779
|
0 |
0 |
if defined $sym |
2782
|
0 |
0 |
if ($$sv == 0) |
2783
|
0 |
0 |
if $verbose |
2788
|
0 |
0 |
if $debug{'sv'} |
2789
|
0 |
0 |
$PERL510 ? : |
2792
|
0 |
0 |
if ($debug{'flags'} and !$ITHREADS || $PERL514 and $DEBUG_LEAKING_SCALARS) |
2803
|
0 |
0 |
if defined $sym |
2809
|
0 |
0 |
if $uvx > 2147483647 |
2811
|
0 |
0 |
if ($PERL524) { } |
|
0 |
0 |
elsif ($PERL514) { } |
|
0 |
0 |
elsif ($PERL510) { } |
2824
|
0 |
0 |
if ($PERL524) { } |
2825
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$PERL510 ? : |
2829
|
0 |
0 |
if ($Config{'ptrsize'} == 4 and not &IS_MSVC()) { } |
2836
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$PERL510 ? : |
2840
|
0 |
0 |
if $debug{'flags'} |
2843
|
0 |
0 |
if $debug{'sv'} |
2850
|
0 |
0 |
if defined $sym |
2853
|
0 |
0 |
if ($PERL512 and $svflags & 2048) |
2856
|
0 |
0 |
if ($svflags & 2147483648) |
2861
|
0 |
0 |
if ($svflags & 255 and not $svflags & 4352) |
2862
|
0 |
0 |
unless ($PERL510 and $svflags & 65536 or not $PERL510 and $svflags & 256 or $] > 5.015002 and $svflags & 393218) |
2868
|
0 |
0 |
if ($PERL524) { } |
|
0 |
0 |
elsif ($PERL514) { } |
|
0 |
0 |
elsif ($PERL510) { } |
2880
|
0 |
0 |
if ($PERL524) { } |
2881
|
0 |
0 |
$C99 ? : |
2884
|
0 |
0 |
if ($Config{'ptrsize'} == 4 and not &IS_MSVC()) { } |
2891
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$PERL510 ? : |
2894
|
0 |
0 |
if $debug{'flags'} |
2897
|
0 |
0 |
if $debug{'sv'} |
2904
|
0 |
0 |
if defined $sym |
2906
|
0 |
0 |
if $nv =~ /^-?\d+$/ |
2908
|
0 |
0 |
$sv->FLAGS & 256 ? : |
2909
|
0 |
0 |
if &IS_MSVC() and not $nv |
2910
|
0 |
0 |
if ($PERL514) { } |
|
0 |
0 |
elsif ($PERL510) { } |
2921
|
0 |
0 |
$PERL510 ? : |
2924
|
0 |
0 |
if $debug{'flags'} |
2927
|
0 |
0 |
if $debug{'sv'} |
2936
|
0 |
0 |
if defined $pv |
2937
|
0 |
0 |
if (defined $max_string_len and length $pv > $max_string_len) { } |
2949
|
0 |
0 |
if $debug{'sv'} or $debug{'pv'} |
2954
|
0 |
0 |
if ($PERL510 and $sv and ($sv->FLAGS & 150994944) == 150994944) { } |
2955
|
0 |
0 |
if $debug{'sv'} |
2957
|
0 |
0 |
unless $hek eq 'NULL' |
2958
|
0 |
0 |
if ($DEBUGGING) |
2963
|
0 |
0 |
if (not $cstr and $cstr == 0) |
2966
|
0 |
0 |
if ($sv and IsCOW($sv)) |
2968
|
0 |
0 |
unless ($cstr =~ /\\000\\00\d"$/) |
2972
|
0 |
0 |
if $debug{'sv'} |
2976
|
0 |
0 |
if $debug{'sv'} |
2986
|
0 |
0 |
if (defined $sym) |
2987
|
0 |
0 |
if ($in_endav) |
2988
|
0 |
0 |
if $debug{'av'} |
2996
|
0 |
0 |
if ($PERL514) { } |
|
0 |
0 |
elsif ($PERL510) { } |
3002
|
0 |
0 |
if $tmp_pvsym =~ /^hek/ and $static |
3011
|
0 |
0 |
$C99 ? : |
3023
|
0 |
0 |
if $debug{'flags'} |
3025
|
0 |
0 |
if (not $static) { } |
|
0 |
0 |
elsif ($tmp_pvsym eq 'NULL' and $pvsym =~ /^hek/) { } |
3026
|
0 |
0 |
if ($PERL510) { } |
3042
|
0 |
0 |
if (defined $sym) |
3043
|
0 |
0 |
if ($in_endav) |
3044
|
0 |
0 |
if $debug{'av'} |
3051
|
0 |
0 |
if ($PERL514) { } |
|
0 |
0 |
elsif ($PERL510) { } |
3054
|
0 |
0 |
if $tmp_pvsym =~ /^hek/ and $static |
3064
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$PERL510 ? : |
3068
|
0 |
0 |
if $debug{'flags'} |
3070
|
0 |
0 |
if (defined $pv) |
3071
|
0 |
0 |
if (not $static) { } |
|
0 |
0 |
elsif ($tmp_pvsym eq 'NULL' and $pvsym =~ /^hek/) { } |
3072
|
0 |
0 |
if ($PERL510) { } |
3087
|
0 |
0 |
if (defined $sym) |
3088
|
0 |
0 |
if ($in_endav) |
3089
|
0 |
0 |
if $debug{'av'} |
3098
|
0 |
0 |
if ($flags & 8704) { } |
3102
|
0 |
0 |
if ($PERL510 and $C99 and not $PERL522) { } |
|
0 |
0 |
elsif (not $PERL522) { } |
3110
|
0 |
0 |
if ($PERL510) { } |
3112
|
0 |
0 |
if ($PERL514) { } |
3113
|
0 |
0 |
if $tmp_pvsym =~ /^hek/ and $static |
3120
|
0 |
0 |
unless ($sv->FLAGS & 8704 or $PERL522) |
3121
|
0 |
0 |
if $debug{'sv'} |
3134
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$PERL510 ? : |
3138
|
0 |
0 |
if $debug{'flags'} |
3140
|
0 |
0 |
if (defined $pv) |
3141
|
0 |
0 |
if (not $static) { } |
|
0 |
0 |
elsif ($tmp_pvsym eq 'NULL' and $pvsym =~ /^hek/) { } |
3142
|
0 |
0 |
if ($PERL510) { } |
3152
|
0 |
0 |
if $PERL518 and $sv->FLAGS & 1048576 |
3159
|
0 |
0 |
if not $PERL510 and defined $sym |
3160
|
0 |
0 |
if $PERL510 |
3165
|
0 |
0 |
if ($PERL510) { } |
3166
|
0 |
0 |
if $debug{'gv'} |
3180
|
0 |
0 |
defined $pv && $static ? : |
3188
|
0 |
0 |
if $debug{'flags'} |
3190
|
0 |
0 |
if (not $static) { } |
3193
|
0 |
0 |
if defined $pv and not $in_endav |
3199
|
0 |
0 |
if ($PERL510) { } |
3202
|
0 |
0 |
if ($] == 5.008009) |
3214
|
0 |
0 |
if (defined $sym) |
3215
|
0 |
0 |
if ($in_endav) |
3216
|
0 |
0 |
if $debug{'av'} |
3223
|
0 |
0 |
$PERL510 ? : |
3224
|
0 |
0 |
if (not $shared_hek and IsCOW_hek($sv) || $len == 0 && $flags & 268435456) |
3233
|
0 |
0 |
if ($PERL518 and ($fullname and $fullname eq 'svop const')) |
3234
|
0 |
0 |
$DEBUGGING ? : |
3241
|
0 |
0 |
if ($PERL510) { } |
3243
|
0 |
0 |
if ($const_strings and not $shared_hek and $flags & 134217728 and not $len) |
3246
|
0 |
0 |
if $debug{'pv'} |
3248
|
0 |
0 |
if $tmp_pvsym =~ /^hek/ and $static |
3249
|
0 |
0 |
$PERL514 ? : |
3250
|
0 |
0 |
$PERL514 ? : |
3252
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$tmp_pvsym eq 'NULL' ? : |
3257
|
0 |
0 |
if (defined $pv and not $static) { } |
|
0 |
0 |
elsif ($shared_hek and $static and $pvsym =~ /^hek/) { } |
3258
|
0 |
0 |
if ($shared_hek) { } |
3260
|
0 |
0 |
unless $hek eq 'NULL' |
3268
|
0 |
0 |
if ($debug{'flags'} and !$ITHREADS || $PERL514 and $DEBUG_LEAKING_SCALARS) |
3269
|
0 |
0 |
cstring($pv) eq '0' ? : |
3281
|
0 |
0 |
if (defined $pv and not $static) |
3286
|
0 |
0 |
if $debug{'flags'} |
3287
|
0 |
0 |
if $PERL518 and $flags & 1048576 |
3295
|
0 |
0 |
if (defined $sym) |
3296
|
0 |
0 |
if ($in_endav) |
3297
|
0 |
0 |
if $debug{'av'} |
3310
|
0 |
0 |
if $refcnt < 1000 |
3317
|
0 |
0 |
unless ($pnsect) |
3319
|
0 |
0 |
if $verbose |
3329
|
0 |
0 |
if (&IS_MSVC()) |
3332
|
0 |
0 |
$ix || $len ? : |
|
0 |
0 |
is_constant($sn) ? : |
|
0 |
0 |
is_constant($tn) ? : |
|
0 |
0 |
$refcnt >= 1000 ? : |
3346
|
0 |
0 |
if $debug{'flags'} |
3347
|
0 |
0 |
unless is_constant($sn) |
3348
|
0 |
0 |
unless is_constant($tn) |
3355
|
0 |
0 |
if ($lexwarnsym{$pv}) { } |
3361
|
0 |
0 |
if ($] < 5.009) { } |
3366
|
0 |
0 |
$Config{'longsize'} == 8 ? : |
3368
|
0 |
0 |
if ($iv >= 0 and $iv <= 2) { } |
3385
|
0 |
0 |
$] >= 5.008009 ? : |
3393
|
0 |
0 |
if defined $sym |
3401
|
0 |
0 |
$PERL514 ? : |
3402
|
0 |
0 |
$] > 5.017006 ? : |
3405
|
0 |
0 |
if $debug{'rx'} or $debug{'sv'} |
3406
|
0 |
0 |
if ($] > 5.011) |
3407
|
0 |
0 |
$PERL522 ? : |
3408
|
0 |
0 |
re_does_swash($cstr, $pmflags) ? : |
3409
|
0 |
0 |
if ($PERL518 and $sv->EXTFLAGS & 131072) |
3415
|
0 |
0 |
if ($PERL518 and $sv->EXTFLAGS & 131072) |
3419
|
0 |
0 |
if ($] < 5.017006) { } |
3426
|
0 |
0 |
if $debug{'flags'} |
3436
|
0 |
0 |
if $verbose |
3438
|
0 |
0 |
unless $init2_remap{$key}{'MG'} |
3445
|
0 |
0 |
if (ref $sv eq 'B::PVMG') |
3447
|
0 |
0 |
$stash->can('NAME') ? : |
3449
|
0 |
0 |
$sv->FLAGS & 16384 ? : |
3454
|
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') { } |
3456
|
0 |
0 |
if $pkg eq 'Encode::XS' |
3457
|
0 |
0 |
if $fullname eq '(unknown)' and $ITHREADS |
3458
|
0 |
0 |
if $verbose |
3462
|
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}') { } |
3475
|
0 |
0 |
if ($name and $name =~ /^(ascii|ascii_ctrl|iso8859_1|null)/ and $Encode::VERSION gt '2.58') { } |
3477
|
0 |
0 |
unless $name =~ /_encoding$/ |
3479
|
0 |
0 |
if $verbose |
3481
|
0 |
0 |
if ($pkg ne 'Encode') |
3489
|
0 |
0 |
if ($enc and ref $enc ne 'Encode::XS') |
3494
|
0 |
0 |
if ($enc and ref $enc eq 'Encode::XS' and $sv->IVX == $$enc) |
3497
|
0 |
0 |
unless $name =~ /_encoding$/ |
3499
|
0 |
0 |
if ($pkg ne 'Encode') |
3506
|
0 |
0 |
if ($name) { } |
3507
|
0 |
0 |
if $verbose |
3516
|
0 |
0 |
if ref $enc ne 'Encode::XS' |
3519
|
0 |
0 |
unless $pkg |
3520
|
0 |
0 |
if $verbose |
3525
|
0 |
0 |
if ($fullname eq 'svop const') |
3527
|
0 |
0 |
unless $pkg |
3536
|
0 |
0 |
if ($pkg and $name and $name =~ /^[a-zA-Z_0-9-]+$/) { } |
3537
|
0 |
0 |
if $verbose |
3540
|
0 |
0 |
if $fullname =~ /^(svop const|padop)/ |
3551
|
0 |
0 |
if (defined $sym) |
3552
|
0 |
0 |
if ($in_endav) |
3553
|
0 |
0 |
if $debug{'av'} |
3563
|
0 |
0 |
if ($] >= 5.011 and ref $sv eq 'B::REGEXP') { } |
3576
|
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') |
3588
|
0 |
0 |
if ($PERL510) { } |
3589
|
0 |
0 |
if ($sv->FLAGS & 2048) |
3590
|
0 |
0 |
if $pvsym ne '' |
3595
|
0 |
0 |
if ($PERL514) { } |
3596
|
0 |
0 |
if $tmp_pvsym =~ /^hek/ and $static |
3605
|
0 |
0 |
$C99 ? : |
|
0 |
0 |
$tmp_pvsym eq 'NULL' ? : |
3611
|
0 |
0 |
if ($pvsym =~ /PL_sv_undef/ and $ITHREADS) |
3619
|
0 |
0 |
if $debug{'flags'} |
3621
|
0 |
0 |
if (not $static) { } |
|
0 |
0 |
elsif ($tmp_pvsym eq 'NULL' and $pvsym =~ /^hek/) { } |
3623
|
0 |
0 |
if ($PERL510) { } |
3639
|
0 |
0 |
if ($INC{'threads.pm'}) { } |
3644
|
0 |
0 |
if $debug{'mg'} |
3646
|
0 |
0 |
if $debug{'mg'} |
3648
|
0 |
0 |
if ($INC{'threads/shared.pm'}) { } |
3654
|
0 |
0 |
if $debug{'mg'} |
3656
|
0 |
0 |
if $debug{'mg'} |
3664
|
0 |
0 |
if $fullname and $fullname eq '%B::C::' |
3665
|
0 |
0 |
if ($debug{'mg'}) |
3667
|
0 |
0 |
unless $fullname |
3668
|
0 |
0 |
if $debug{'flags'} and $PERL510 and not $sv->MAGICAL |
3671
|
0 |
0 |
$debug{'flags'} ? : |
3677
|
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)::$/) { } |
3678
|
0 |
0 |
if $verbose |
3682
|
0 |
0 |
if $verbose |
3687
|
0 |
0 |
if ($pkg and $$pkg) |
3688
|
0 |
0 |
$pkg->can('NAME') ? : |
3690
|
0 |
0 |
if $debug{'mg'} or $debug{'gv'} |
3693
|
0 |
0 |
unless ($fullname eq 'main::STDOUT' and $] >= 5.018) |
3694
|
0 |
0 |
if (ref $pkg eq 'B::HV') { } |
3695
|
0 |
0 |
if (not $fullname =~ /::$/ or $stash) { } |
3705
|
0 |
0 |
if $debug{'mg'} or $debug{'gv'} |
3709
|
0 |
0 |
if (ref $pkg eq 'B::HV') |
3712
|
0 |
0 |
unless ref $sv eq 'B::IO' |
3719
|
0 |
0 |
if $sv_flags & 134217728 and ref $sv ne 'B::HV' |
3723
|
0 |
0 |
if ($PERL510 and not $sv->MAGICAL || $sv_flags & 268435456) |
3726
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
if $debug{'mg'} |
3750
|
0 |
0 |
if ($debug{'mg'}) |
3759
|
0 |
0 |
unless ($type =~ /^[rDn]$/) |
3764
|
0 |
0 |
unless $PERL510 and ref $obj eq 'SCALAR' |
3766
|
0 |
0 |
if $type eq 'P' |
3769
|
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 ':') { } |
3772
|
0 |
0 |
if (ref $ptr eq 'SCALAR') { } |
|
0 |
0 |
elsif ($ptr and ref $ptr) { } |
3779
|
0 |
0 |
if $debug{'mg'} |
3782
|
0 |
0 |
unless ($mg->FLAGS & 2) |
3788
|
0 |
0 |
$PERL56 ? : |
3791
|
0 |
0 |
if (not $pmop) { } |
3795
|
0 |
0 |
if ($PERL56) { } |
3797
|
0 |
0 |
unless $relen |
3802
|
0 |
0 |
if ($PERL510) { } |
3826
|
0 |
0 |
$fullname eq 'main::-' ? : |
3844
|
0 |
0 |
if defined $pmop_ptr |
3845
|
0 |
0 |
$pmop ? : |
3847
|
0 |
0 |
if not $pmop and $verbose |
3849
|
0 |
0 |
defined $pmop_ptr ? : |
|
0 |
0 |
$pmop ? : |
3863
|
0 |
0 |
unless ($mg->FLAGS & 2) |
3868
|
0 |
0 |
if $sv_flags & 134217728 and ref $sv ne 'B::HV' |
3877
|
0 |
0 |
if defined $sym |
3880
|
0 |
0 |
if $debug{'sv'} |
3883
|
0 |
0 |
unless $rv |
3884
|
0 |
0 |
if ($PERL510) { } |
3888
|
0 |
0 |
if $flags & 9 and $PERL522 |
3891
|
0 |
0 |
$C99 && is_constant($rv) ? : |
3893
|
0 |
0 |
if $debug{'flags'} |
3896
|
0 |
0 |
if $] > 5.019 or $ITHREADS |
3898
|
0 |
0 |
unless ($C99 and is_constant($rv)) |
3899
|
0 |
0 |
if ($rv =~ /get_cv/) { } |
3909
|
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/) { } |
3936
|
0 |
0 |
if $debug{'flags'} |
3944
|
0 |
0 |
if ($PERL510) { } |
3945
|
0 |
0 |
if (is_using_mro()) { } |
3953
|
0 |
0 |
if (exists do {
$s
}->{'ISA'}) |
3954
|
0 |
0 |
if (exists do {
$s
}->{'ISA'}{'ARRAY'}) |
3966
|
0 |
0 |
unless defined $cvstashname and defined $cvname |
3967
|
0 |
0 |
if (my $found = $isa_cache{"${cvstashname}::$cvname"}) |
3976
|
0 |
0 |
if $debug{'cv'} |
3978
|
0 |
0 |
if $_ eq $cvstashname |
3979
|
0 |
0 |
if $debug{'cv'} |
3980
|
0 |
0 |
if (defined &{$_ . '::' . $cvname;}) { } |
3981
|
0 |
0 |
if (exists do {
$cvstashname . '::'
}->{'ISA'}) |
3989
|
0 |
0 |
if (&get_isa($_)) |
3991
|
0 |
0 |
if ($parent) |
3994
|
0 |
0 |
if $debug{'gv'} |
3995
|
0 |
0 |
if (exists do {
$parent . '::'
}->{'ISA'}) |
3996
|
0 |
0 |
if $debug{'pkg'} |
3999
|
0 |
0 |
if (exists do {
$_ . '::'
}->{'ISA'}) |
4000
|
0 |
0 |
if $debug{'pkg'} |
4012
|
0 |
0 |
if $savINC{'utf8_heavy.pl'} |
4037
|
0 |
0 |
unless defined $cvstashname and defined $cvname |
4038
|
0 |
0 |
if try_isa($cvstashname, $cvname) |
4041
|
0 |
0 |
if (defined *{'UNIVERSAL::' . $cvname;}{'CODE'}) |
4042
|
0 |
0 |
if $debug{'cv'} |
4047
|
0 |
0 |
if $debug{'cv'} |
4048
|
0 |
0 |
if ($fullname eq 'utf8::SWASHNEW') |
4058
|
0 |
0 |
if ($cvstashname =~ /^POSIX|Storable|DynaLoader|Net::SSLeay|Class::MethodMaker$/ or exists do {
$cvstashname . '::'
}->{'AUTOLOAD'} and grep(($_ eq 'AutoLoader'), @isa)) |
4064
|
0 |
0 |
if $debug{'cv'} |
4065
|
0 |
0 |
unless $INC{"auto/$dir/$cvname.al"} |
4066
|
0 |
0 |
unless ($@) |
4067
|
0 |
0 |
if $verbose |
4068
|
0 |
0 |
if defined &$fullname |
4076
|
0 |
0 |
if (exists do {
$cvstashname . '::'
}->{'AUTOLOAD'} and not $PERL510) |
4084
|
0 |
0 |
unless $DEBUGGING |
4086
|
0 |
0 |
unless $DEBUGGING |
4088
|
0 |
0 |
unless $DEBUGGING |
4089
|
0 |
0 |
if $debug{'cv'} |
4092
|
0 |
0 |
unless $DEBUGGING |
4094
|
0 |
0 |
unless ($@) |
4104
|
0 |
0 |
if $cvstashname and exists do {
$cvstashname . '::'
}->{'AUTOLOAD'} |
4106
|
0 |
0 |
if $cvstashname and exists do {
$cvstashname . '::'
}->{'CLONE'} |
4115
|
0 |
0 |
unless $PERL518 |
4116
|
0 |
0 |
if $cv->can('NAME_HEK') |
4123
|
0 |
0 |
$_[0] =~ /^(BEGIN|INIT|UNITCHECK|CHECK|END)$/ ? : |
4129
|
0 |
0 |
if (defined $sym) |
4130
|
0 |
0 |
if $$cv and $debug{'cv'} |
4133
|
0 |
0 |
$cv->is_named ? : |
4137
|
0 |
0 |
if (not $gv and $cv->is_named) { } |
|
0 |
0 |
elsif ($gv and $$gv) { } |
4139
|
0 |
0 |
unless defined $fullname |
4141
|
0 |
0 |
if $debug{'cv'} |
4142
|
0 |
0 |
if ($fullname =~ /^(.*)::(.*?)$/) |
4153
|
0 |
0 |
if ($PERL522 and $cvname eq '__ANON__') |
4154
|
0 |
0 |
if ($origname) { } |
4156
|
0 |
0 |
if $debug{'cv'} |
4158
|
0 |
0 |
if $cvstashname |
4160
|
0 |
0 |
if ($cvname =~ / :pad\[.*$/) |
4162
|
0 |
0 |
if is_phase_name($cvname) |
4165
|
0 |
0 |
if $debug{'cv'} |
4169
|
0 |
0 |
if $debug{'cv'} |
4174
|
0 |
0 |
if $debug{'cv'} |
4177
|
0 |
0 |
if $all_bc_subs{$fullname} or skip_pkg($cvstashname) |
4178
|
0 |
0 |
if $PERL514 |
4179
|
0 |
0 |
unless $include_package{$cvstashname} |
4181
|
0 |
0 |
unless defined $cvstashname |
4188
|
0 |
0 |
$PERL56 ? : |
4191
|
0 |
0 |
if (not $isconst and $cvxsub and $cvname ne 'INIT') |
4195
|
0 |
0 |
if ($cvname eq 'bootstrap' and not $xsub{$stashname}) { } |
4198
|
0 |
0 |
if $verbose |
4202
|
0 |
0 |
if (not $Config{'usedl'}) { } |
|
0 |
0 |
elsif (not UNIVERSAL::isa($stashname, 'DynaLoader') and $stashname ne 'attributes' || $] >= 5.011) { } |
4212
|
0 |
0 |
if ($file =~ /XSLoader\.pm$/) |
4215
|
0 |
0 |
unless ($file) |
4217
|
0 |
0 |
unless $laststash |
4220
|
0 |
0 |
if (m[^(.+/)$sofile$]) |
4238
|
0 |
0 |
if $debug{'sub'} |
4245
|
0 |
0 |
if (grep {$stashname eq $_;} @IO) |
4256
|
0 |
0 |
if $debug{'sub'} |
4257
|
0 |
0 |
if (in_static_core($stashname, $cvname)) { } |
4260
|
0 |
0 |
if $debug{'cv'} |
4261
|
0 |
0 |
if $stashname |
4267
|
0 |
0 |
if $debug{'cv'} |
4271
|
0 |
0 |
if (not $isconst and $cvxsub and $cvname eq 'INIT') |
4273
|
0 |
0 |
if $debug{'sub'} |
4278
|
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)) |
4294
|
0 |
0 |
if $debug{'cv'} |
4298
|
0 |
0 |
if ($] >= 5.016) |
4300
|
0 |
0 |
if (ref $sv eq 'B::IV' || ref $sv eq 'B::PVMG' and $sv->FLAGS & 2048) |
4302
|
0 |
0 |
if ($rv->FLAGS & 16640 and $rv->IVX > 65536) |
4310
|
0 |
0 |
if ($sv and ref $sv and ref($sv) =~ /^(SCALAR|ARRAY|HASH|CODE|REF)$/) { } |
|
0 |
0 |
elsif ($sv and ref($sv) =~ /^B::[ANRPI]/) { } |
4312
|
0 |
0 |
if $debug{'cv'} |
4326
|
0 |
0 |
if $verbose |
4335
|
0 |
0 |
if ($new_cv_fw) { } |
4339
|
0 |
0 |
if $debug{'flags'} |
4347
|
0 |
0 |
if $debug{'cv'} |
4348
|
0 |
0 |
if (not $$root and $] < 5.01) |
4352
|
0 |
0 |
if ($fullname eq 'utf8::SWASHNEW') |
4356
|
0 |
0 |
if ($fullname eq 'IO::Socket::SSL::SSL_Context::new') |
4357
|
0 |
0 |
if ($IO::Socket::SSL::VERSION ge '1.956' and $IO::Socket::SSL::VERSION lt '1.995') |
4365
|
0 |
0 |
unless ($$root or $cvxsub) |
4367
|
0 |
0 |
if ($cvstashname =~ /^(bytes|utf8)$/) { } |
|
0 |
0 |
elsif ($fullname eq 'Coro::State::_jit') { } |
4374
|
0 |
0 |
if ($pl) |
4381
|
0 |
0 |
if ($reloaded) |
4382
|
0 |
0 |
if (not $cv->is_named) { } |
4385
|
0 |
0 |
if $debug{'cv'} |
4388
|
0 |
0 |
unless defined $fullname |
4389
|
0 |
0 |
if ($fullname =~ /^(.*)::(.*?)$/) |
4394
|
0 |
0 |
if $debug{'cv'} |
4401
|
0 |
0 |
unless ($$root or $cvxsub) |
4402
|
0 |
0 |
if (my $auto = try_autoload($cvstashname, $cvname)) |
4403
|
0 |
0 |
if (ref $auto eq 'B::CV') { } |
4406
|
0 |
0 |
if ($$auto) |
4411
|
0 |
0 |
if ($$gvnew) |
4412
|
0 |
0 |
if ($cvstashname ne $gvnew->STASH->NAME or $cvname ne $gvnew->NAME) |
4414
|
0 |
0 |
if $debug{'sub'} |
4415
|
0 |
0 |
unless ($new_cv_fw) |
4420
|
0 |
0 |
unless $PERL510 |
4424
|
0 |
0 |
defined objsym($cv) ? : |
4425
|
0 |
0 |
if (my $oldsym = objsym($gv)) |
4426
|
0 |
0 |
if $debug{'gv'} |
4436
|
0 |
0 |
if $verbose |
4443
|
0 |
0 |
if ($$gv) |
4444
|
0 |
0 |
if ($cvstashname ne $gv->STASH->NAME or $cvname ne $gv->NAME) |
4446
|
0 |
0 |
if $verbose |
4454
|
0 |
0 |
if ($$root or $cvxsub) |
4455
|
0 |
0 |
if $verbose and $debug{'cv'} |
4459
|
0 |
0 |
unless ($$root) |
4460
|
0 |
0 |
if ($fullname ne 'threads::tid' and $fullname ne 'main::main::' and ($PERL510 and not defined &{$cvstashname . '::AUTOLOAD';})) |
4466
|
0 |
0 |
if (exists &$fullname) { } |
|
0 |
0 |
elsif ($cv->is_named) { } |
4467
|
0 |
0 |
if $debug{'sub'} |
4468
|
0 |
0 |
if $verbose or $debug{'sub'} |
4472
|
0 |
0 |
if $debug{'sub'} |
4474
|
0 |
0 |
if $debug{'sub'} |
4475
|
0 |
0 |
if $verbose or $debug{'sub'} |
4477
|
0 |
0 |
if ($sv_ix == $svsect->index and not $new_cv_fw) { } |
4479
|
0 |
0 |
if $debug{'cv'} |
4489
|
0 |
0 |
if $debug{'cv'} or $verbose |
4502
|
0 |
0 |
if ($$root) { } |
|
0 |
0 |
elsif ($cv->is_named) { } |
|
0 |
0 |
elsif (not exists &$fullname) { } |
4505
|
0 |
0 |
if $debug{'cv'} and $debug{'gv'} |
4507
|
0 |
0 |
if ($cv->is_named) { } |
|
0 |
0 |
elsif ($gv and $$gv) { } |
4508
|
0 |
0 |
$cv->can('NAME_HEK') ? : |
4517
|
0 |
0 |
${$gv->FORM;} == $$cv ? : |
4518
|
0 |
0 |
if ($gvname ne '__ANON__') |
4519
|
0 |
0 |
$stashname eq 'main' ? : |
4522
|
0 |
0 |
if ($gvname eq 'INIT') |
4528
|
0 |
0 |
unless ($ppname) |
4537
|
0 |
0 |
unless $startfield |
4538
|
0 |
0 |
unless $startfield |
4539
|
0 |
0 |
if ($$padlist) |
4543
|
0 |
0 |
if $debug{'cv'} and $debug{'gv'} |
4548
|
0 |
0 |
if $debug{'cv'} and $debug{'gv'} |
4553
|
0 |
0 |
if ($] > 5.017 and $dyn_padlist || $fullname =~ /^(main::END|main::INIT|Attribute::Handlers)/) { } |
4566
|
0 |
0 |
if $debug{'sub'} |
4572
|
0 |
0 |
if $debug{'sub'} |
4574
|
0 |
0 |
if $debug{'cv'} |
4575
|
0 |
0 |
if $verbose or $debug{'sub'} |
4580
|
0 |
0 |
unless ($new_cv_fw) |
4583
|
0 |
0 |
if $PERL514 |
4584
|
0 |
0 |
if $gv and $$gv and $PERL514 |
4585
|
0 |
0 |
$PERL510 ? : |
4592
|
0 |
0 |
if ($new_cv_fw) |
4594
|
0 |
0 |
unless ($cvforward{$sym}) |
4604
|
0 |
0 |
defined $pv ? : |
4606
|
0 |
0 |
defined $pv ? : |
4608
|
0 |
0 |
if IsCOW($cv) and not $cow |
4609
|
0 |
0 |
if $const_strings |
4611
|
0 |
0 |
$PERL510 ? : |
4614
|
0 |
0 |
if ($xcv_outside == ${main_cv();} and not $MULTI) { } |
|
0 |
0 |
elsif (ref $cv->OUTSIDE eq 'B::CV') { } |
4622
|
0 |
0 |
if ($PERL510) { } |
|
0 |
0 |
elsif ($PERL56) { } |
4626
|
0 |
0 |
$cur ? : |
4629
|
0 |
0 |
if ($PERL522) { } |
|
0 |
0 |
elsif ($PERL514) { } |
4631
|
0 |
0 |
if $CPERL52 |
4645
|
0 |
0 |
if $xpvc =~ /, \(CV\*\)iv\d/ |
4646
|
0 |
0 |
if (not $new_cv_fw) { } |
4655
|
0 |
0 |
$CPERL52 ? : |
4658
|
0 |
0 |
if $debug{'flags'} |
4677
|
0 |
0 |
if (not $new_cv_fw) { } |
4688
|
0 |
0 |
if $debug{'flags'} |
4692
|
0 |
0 |
ref $cv eq 'B::CV' ? : |
4693
|
0 |
0 |
ref $cv eq 'B::CV' ? : |
4712
|
0 |
0 |
if (not $new_cv_fw) { } |
4723
|
0 |
0 |
if $debug{'flags'} |
4726
|
0 |
0 |
if ($$cv) |
4727
|
0 |
0 |
if ($PERL518 and !$gv || ref $gv eq 'B::SPECIAL') { } |
4728
|
0 |
0 |
$cv->can('NAME_HEK') ? : |
4729
|
0 |
0 |
unless defined $lexsub |
4730
|
0 |
0 |
if $debug{'gv'} |
4732
|
0 |
0 |
if (not $PERL56 and $utf8) |
4745
|
0 |
0 |
if $gvstash and not $stash |
4748
|
0 |
0 |
if $gvstash and $debug{'cv'} and $debug{'gv'} |
4751
|
0 |
0 |
if ($cv->OUTSIDE_SEQ) |
4753
|
0 |
0 |
if $cop |
4763
|
0 |
0 |
if ($new_cv_fw) { } |
4769
|
0 |
0 |
if $debug{'flags'} |
4781
|
0 |
0 |
if ($new_cv_fw) { } |
4788
|
0 |
0 |
if $debug{'flags'} |
4794
|
0 |
0 |
if ($CPERL52 and $Config{'uselongdouble'}) |
4802
|
0 |
0 |
if ($xcv_outside == ${main_cv();} or ref $cv->OUTSIDE eq 'B::CV') { } |
|
0 |
0 |
elsif ($] >= 5.017005 and $xcv_outside and $$padlist) { } |
4804
|
0 |
0 |
if ($xcv_outside == ${main_cv();}) { } |
4807
|
0 |
0 |
if ($$padlist) |
4808
|
0 |
0 |
if ($PERL522) { } |
|
0 |
0 |
elsif ($] >= 5.017005) { } |
4824
|
0 |
0 |
if ($PERL522) { } |
4833
|
0 |
0 |
if ($gv and $$gv) |
4835
|
0 |
0 |
if $debug{'cv'} and $debug{'gv'} |
4837
|
0 |
0 |
if ($PERL514) { } |
4843
|
0 |
0 |
if ($CvFLAGS & 1024) |
4846
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
if $debug{'cv'} |
4848
|
0 |
0 |
$debug{'flags'} ? : |
4855
|
0 |
0 |
if $debug{'cv'} and $debug{'gv'} |
4857
|
0 |
0 |
unless ($optimize_cop) |
4859
|
0 |
0 |
if ($MULTI) { } |
|
0 |
0 |
elsif ($const_strings and length $file) { } |
4868
|
0 |
0 |
if ($$stash and ref $stash) |
4876
|
0 |
0 |
if $cvname eq 'DESTROY' and $] >= 5.017011 |
4878
|
0 |
0 |
if $debug{'cv'} and $debug{'gv'} |
4881
|
0 |
0 |
if ($magic and $$magic) |
4884
|
0 |
0 |
unless ($new_cv_fw) |
4885
|
0 |
0 |
$PERL510 ? : |
4891
|
0 |
0 |
if ($cur) |
4892
|
0 |
0 |
if $debug{'cv'} |
4895
|
0 |
0 |
if (defined $pv) |
4896
|
0 |
0 |
if ($PERL510 and $cur) { } |
|
0 |
0 |
elsif (not $const_strings) { } |
4906
|
0 |
0 |
if $xcv_outside |
4917
|
0 |
0 |
if (defined $sym) { } |
4918
|
0 |
0 |
if $debug{'gv'} |
4924
|
0 |
0 |
if $debug{'gv'} |
4928
|
0 |
0 |
if $debug{'gv'} and not $PERL56 |
4929
|
0 |
0 |
if ($PERL510 and not $PERL5257 and $gv->FLAGS & 1073741824) |
4930
|
0 |
0 |
if $debug{'gv'} |
4937
|
0 |
0 |
if (ref $gv->STASH eq 'B::SPECIAL') { } |
4939
|
0 |
0 |
if $debug{'gv'} |
4943
|
0 |
0 |
if skip_pkg($package) |
4954
|
0 |
0 |
if ($filter and $filter =~ / :pad/) { } |
4961
|
0 |
0 |
if ($fullname =~ /^threads::(tid|AUTOLOAD)$/ and not $ITHREADS) |
4965
|
0 |
0 |
if ($PERL518 and $fullname =~ /^DynaLoader::dl_(
require_symbols|
modules|
shared_objects|
resolve_using|
librefs)/x) |
4982
|
0 |
0 |
if (not defined $gvname and $is_empty) |
4985
|
0 |
0 |
$package eq 'main' ? : |
4987
|
0 |
0 |
$] >= 5.008009 && $package eq 'main' ? : |
4988
|
0 |
0 |
if $debug{'gv'} |
5000
|
0 |
0 |
if ($fullname =~ /^(bytes|utf8)::AUTOLOAD$/) |
5004
|
0 |
0 |
unless ($is_empty) |
5006
|
0 |
0 |
unless (ref $egv eq 'B::SPECIAL' or ref $egv->STASH eq 'B::SPECIAL') |
5008
|
0 |
0 |
if ($$gv != $$egv) |
5011
|
0 |
0 |
if $debug{'gv'} |
5020
|
0 |
0 |
if ($fullname =~ /^main::STDOUT$/i and $PERL56) |
5037
|
0 |
0 |
if ($fullname eq 'main::' . $s) |
5044
|
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])$/) { } |
5069
|
0 |
0 |
$notqual ? : |
5070
|
0 |
0 |
if ($PERL510 and $gv->isGV_with_GP and not $is_coresym) { } |
|
0 |
0 |
elsif (not $is_coresym) { } |
5073
|
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) { } |
5076
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
if $debug{'gv'} |
5078
|
0 |
0 |
$package eq 'main' ? : |
5087
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
if $debug{'gv'} |
5096
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
if $debug{'gv'} |
5098
|
0 |
0 |
if 0 + $gp |
5104
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
if $debug{'gv'} |
5117
|
0 |
0 |
if ($gvflags > 256 and not $PERL510) |
5123
|
0 |
0 |
$debug{'flags'} ? : |
|
0 |
0 |
$debug{'flags'} ? : |
5124
|
0 |
0 |
$gv->LINE > 2147483647 ? : |
|
0 |
0 |
unless $is_empty |
5133
|
0 |
0 |
unless ($PERL510) |
5138
|
0 |
0 |
if ($gv->REFCNT > 1) |
5141
|
0 |
0 |
if $is_empty |
5144
|
0 |
0 |
if ($gvrefcnt > 1) |
5148
|
0 |
0 |
if $debug{'gv'} |
5151
|
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)$/) { } |
5166
|
0 |
0 |
if $filter and not $filter =~ / :pad/ and $filter =~ /^\d+$/ and $filter > 0 and $filter < 64 |
5171
|
0 |
0 |
if (ref $gv eq 'B::STASHGV' and not $gvname =~ /::$/) |
5178
|
0 |
0 |
if ($fullname eq 'attributes::bootstrap') |
5179
|
0 |
0 |
unless (defined &{$package . '::bootstrap';}) |
5180
|
0 |
0 |
if $verbose |
5184
|
0 |
0 |
if ($] >= 5.011) { } |
5194
|
0 |
0 |
if ($PERL522 and $fullname =~ /^POSIX::M/) |
5198
|
0 |
0 |
if ($savefields) |
5200
|
0 |
0 |
if $debug{'gv'} |
5202
|
0 |
0 |
if ($$gvsv and $savefields & 4) |
5203
|
0 |
0 |
if $debug{'gv'} |
5210
|
0 |
0 |
if ($fullname eq 'main::' . $s) |
5214
|
0 |
0 |
if ($PERL5257 and $gvsv->MAGICAL) |
5217
|
0 |
0 |
if ($mg->TYPE eq 'B') |
5218
|
0 |
0 |
if $debug{'gv'} |
5223
|
0 |
0 |
if ($gvname eq 'VERSION' and $xsub{$package} and $gvsv->FLAGS & 2048 and not $PERL56) { } |
5224
|
0 |
0 |
if $debug{'gv'} |
5234
|
0 |
0 |
if (exists $core_svs->{$gvname}) |
5235
|
0 |
0 |
if ($gvname eq '\\') { } |
5238
|
0 |
0 |
if ref $gvsv eq 'B::PVMG' |
5244
|
0 |
0 |
if ($fullname eq 'main::$') |
5245
|
0 |
0 |
if $debug{'gv'} |
5248
|
0 |
0 |
if $debug{'gv'} |
5251
|
0 |
0 |
if ($$gvav and $savefields & 2) |
5252
|
0 |
0 |
if $debug{'gv'} |
5255
|
0 |
0 |
if ($fullname eq 'main::-') |
5261
|
0 |
0 |
if ($$gvhv and $savefields & 1) |
5262
|
0 |
0 |
if ($fullname ne 'main::ENV') |
5263
|
0 |
0 |
if $debug{'gv'} |
5264
|
0 |
0 |
if ($fullname eq 'main::!') { } |
|
0 |
0 |
elsif ($fullname eq 'main::+' or $fullname eq 'main::-') { } |
5271
|
0 |
0 |
if ($PERL514) |
5281
|
0 |
0 |
if ($] >= 5.02 and $fullname eq 'Encode::Encoding') { } |
|
0 |
0 |
elsif ($fullname ne 'main::INC') { } |
5282
|
0 |
0 |
if $debug{'gv'} |
5286
|
0 |
0 |
if exists $tmp_Encode_Encoding{$k} |
5301
|
0 |
0 |
if (not $$gvcv and $savefields & 8) |
5302
|
0 |
0 |
if $debug{'gv'} |
5308
|
0 |
0 |
if $package and exists do {
"${package}::"
}->{'AUTOLOAD'} |
5310
|
0 |
0 |
if $package and exists do {
"${package}::"
}->{'CLONE'} |
5314
|
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)) |
5324
|
0 |
0 |
if ($gvcv->XSUB and $oname ne '__ANON__' and $fullname ne $origname) { } |
|
0 |
0 |
elsif (not $PERL510 or $gp) { } |
5326
|
0 |
0 |
if $debug{'pkg'} |
5331
|
0 |
0 |
if $package and defined &{"${package}::bootstrap";} |
5338
|
0 |
0 |
if (my $dep = $hack_xs_detect{$package}) |
5342
|
0 |
0 |
if $debug{'gv'} |
5349
|
0 |
0 |
if ($fullname eq 'Internals::V') |
5354
|
0 |
0 |
if $debug{'gv'} |
5357
|
0 |
0 |
if ($cvsym =~ /get_cv/) { } |
|
0 |
0 |
elsif ($cvsym =~ /^(cv|&sv_list)/) { } |
5358
|
0 |
0 |
if (not $xsub{$package} and in_static_core($package, $gvname)) { } |
|
0 |
0 |
elsif ($xsub{$package}) { } |
5361
|
0 |
0 |
if ($in_gv) |
5367
|
0 |
0 |
if (/^\Q$sym = $gv_get;\E/) |
5370
|
0 |
0 |
if $debug{'gv'} |
5377
|
0 |
0 |
if $debug{'gv'} |
5378
|
0 |
0 |
$oname ne '__ANON__' ? : |
5385
|
0 |
0 |
if ($gvcv->XSUBANY) |
5388
|
0 |
0 |
if ($package =~ /^DBI::(common|db|dr|st)/) { } |
|
0 |
0 |
elsif ($package eq 'Tie::Hash::NamedCapture') { } |
5394
|
0 |
0 |
if $verbose and $debug{'cv'} |
5402
|
0 |
0 |
if ($anyptr and $xsubany > 1000) { } |
|
0 |
0 |
elsif ($xsubany > 1048576 and $xsubany < 4294967040 || $xsubany > 4294967295) { } |
|
0 |
0 |
elsif ($package eq 'Fcntl') { } |
5408
|
0 |
0 |
if ($package eq 'POSIX' and $gvname =~ /^is/) { } |
|
0 |
0 |
elsif ($package eq 'List::MoreUtils' and $gvname =~ /_iterator$/) { } |
5416
|
0 |
0 |
if $verbose |
5432
|
0 |
0 |
if $debug{'gv'} or $verbose |
5436
|
0 |
0 |
if ($PERL514 and $cvsym and not $cvsym =~ /(get_cv|NULL|lexwarn)/ and $gv->MAGICAL) |
5439
|
0 |
0 |
if ($mg->TYPE eq '<') |
5442
|
0 |
0 |
unless ($mg->FLAGS & 2) |
5449
|
0 |
0 |
if (not $PERL510 or $gp) |
5450
|
0 |
0 |
if ($] > 5.009) { } |
5456
|
0 |
0 |
if ($stash and $fullname =~ /::$/) { } |
5461
|
0 |
0 |
if $file ne 'NULL' and not $optimize_cop |
5468
|
0 |
0 |
unless $optimize_cop |
5471
|
0 |
0 |
if $debug{'gv'} and not $ITHREADS |
5474
|
0 |
0 |
if ($$gvform and $savefields & 16) |
5475
|
0 |
0 |
if $debug{'gv'} |
5479
|
0 |
0 |
if $PERL510 |
5480
|
0 |
0 |
if $debug{'gv'} |
5483
|
0 |
0 |
if ($$gvio and $savefields & 32) |
5484
|
0 |
0 |
if $debug{'gv'} |
5485
|
0 |
0 |
if ($fullname =~ /::DATA$/ and $fullname eq 'main::DATA' || $save_data_fh) { } |
|
0 |
0 |
elsif ($fullname =~ /::DATA$/ and not $save_data_fh) { } |
5491
|
0 |
0 |
if $debug{'gv'} |
5494
|
0 |
0 |
if $fh->opened |
5503
|
0 |
0 |
if $debug{'gv'} |
5510
|
0 |
0 |
if $debug{'gv'} |
5517
|
0 |
0 |
if defined $sym |
5519
|
0 |
0 |
unless $fullname |
5523
|
0 |
0 |
if ($ispadnamelist or $ispadlist) { } |
5528
|
0 |
0 |
if $@ |
5531
|
0 |
0 |
$ispadlist ? : |
5532
|
0 |
0 |
if $ispadnamelist |
5534
|
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) { } |
5556
|
0 |
0 |
if ($cv and $cv->OUTSIDE and ref $cv->OUTSIDE ne 'B::SPECIAL' and $cv->OUTSIDE->PADLIST) |
5558
|
0 |
0 |
if $outid |
5566
|
0 |
0 |
if ($cv and $cv->OUTSIDE and ref $cv->OUTSIDE ne 'B::SPECIAL' and $cv->OUTSIDE->PADLIST) |
5568
|
0 |
0 |
if $outid |
5581
|
0 |
0 |
$flags & 134217728 || $fullname =~ /(::ISA|::INC|curpad_name)$/ ? : |
5585
|
0 |
0 |
if ($magic eq 'D') |
5589
|
0 |
0 |
$magic eq 'D' ? : |
5591
|
0 |
0 |
$av_cow ? : |
5593
|
0 |
0 |
if ($av_cow) { } |
5594
|
0 |
0 |
unless exists $avcowsect{$n} |
5597
|
0 |
0 |
unless exists $avcogsect{$n} |
5605
|
0 |
0 |
unless $_->save($fullname . '[' . $count++ . ']') |
5608
|
0 |
0 |
unless (is_constant($values[$i])) |
5614
|
0 |
0 |
if ($alloc and $n) { } |
5617
|
0 |
0 |
$av_cow ? : |
|
0 |
0 |
if $debug{'av'} |
5623
|
0 |
0 |
$C99 ? : |
5629
|
0 |
0 |
if $debug{'av'} |
5632
|
0 |
0 |
if $av_init or $av_init2 |
5642
|
0 |
0 |
if $av_init or $av_init2 |
5653
|
0 |
0 |
if $av_init or $av_init2 |
5654
|
0 |
0 |
if $PERL514 |
5665
|
0 |
0 |
if $av_init or $av_init2 |
5666
|
0 |
0 |
if $] < 5.009 |
5674
|
0 |
0 |
if $debug{'flags'} |
5675
|
0 |
0 |
unless ($ispadlist or $ispadnamelist) |
5681
|
0 |
0 |
if $PERL518 and $av->FLAGS & 1048576 |
5684
|
0 |
0 |
if ($debug{'av'}) |
5686
|
0 |
0 |
if $] < 5.009 |
5691
|
0 |
0 |
if ($fill > -1 and not $magic =~ /D/ and not $static_av) { } |
5693
|
0 |
0 |
if ($debug{'av'}) |
5698
|
0 |
0 |
if ($el->can('FLAGS')) |
5699
|
0 |
0 |
if $el->FLAGS & 256 |
5700
|
0 |
0 |
if $el->FLAGS & 1024 |
5725
|
0 |
0 |
if ($PERL510 and not $ispadlist) |
5726
|
0 |
0 |
if $av->FLAGS & 1073741824 |
|
0 |
0 |
if ($] < 5.016) { } |
5727
|
0 |
0 |
if $av->FLAGS & 1 |
5729
|
0 |
0 |
unless $_->save($fullname . '[' . $count++ . ']') |
5733
|
0 |
0 |
if ($fullname =~ /^(INIT|END)$/ and $values[$i] and ref $array[$i] eq 'B::CV') |
5734
|
0 |
0 |
if ($array[$i]->XSUB) |
5739
|
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$/) { } |
5770
|
0 |
0 |
$values[$i] ? : |
5775
|
0 |
0 |
if ($ispadnamelist) { } |
|
0 |
0 |
elsif ($ispadlist) { } |
|
0 |
0 |
elsif ($av_init2) { } |
|
0 |
0 |
elsif ($av_init) { } |
5778
|
0 |
0 |
if $count |
5790
|
0 |
0 |
if $count |
5804
|
0 |
0 |
if $count |
5805
|
0 |
0 |
if ($fill > -1) |
5806
|
0 |
0 |
if ($PERL510) { } |
5828
|
0 |
0 |
if $count |
5829
|
0 |
0 |
$fill < 3 ? : |
5830
|
0 |
0 |
if ($fill > -1) |
5831
|
0 |
0 |
if $fullname eq 'END' |
5833
|
0 |
0 |
if ($MYMALLOC) { } |
5846
|
0 |
0 |
if ($PERL510) { } |
5857
|
0 |
0 |
$fill < 3 ? : |
5859
|
0 |
0 |
if $count |
5876
|
0 |
0 |
if $max > -1 and not $static_av |
5879
|
0 |
0 |
if $av_cow |
5885
|
0 |
0 |
unless $fullname |
5887
|
0 |
0 |
if defined $sym |
5891
|
0 |
0 |
if ($name) |
5894
|
0 |
0 |
if $debug{'hv'} |
5903
|
0 |
0 |
if ($adpmroot) |
5907
|
0 |
0 |
if ($PERL518 and $hv->FLAGS & 268435456 and length $name) |
5909
|
0 |
0 |
if ($hv->Gv_AMG) |
5915
|
0 |
0 |
$PERL514 ? : |
5916
|
0 |
0 |
if (@enames > 1) |
5917
|
0 |
0 |
if $debug{'hv'} |
5941
|
0 |
0 |
$utf8 ? : |
5954
|
0 |
0 |
unless ($stash) |
5956
|
0 |
0 |
if ($PERL510 and (is_using_mro() and &mro::get_mro($name) eq 'c3')) |
5959
|
0 |
0 |
if ($magic and $magic =~ /c/) |
5960
|
0 |
0 |
if $debug{'mg'} |
5966
|
0 |
0 |
if skip_pkg($name) or $name eq 'main' |
5968
|
0 |
0 |
if $debug{'hv'} |
5974
|
0 |
0 |
if ($PERL510) { } |
5976
|
0 |
0 |
if $PERL522 |
5977
|
0 |
0 |
if ($PERL514) { } |
5989
|
0 |
0 |
if (not $is_stash and ($] >= 5.01 and $hv->FLAGS & SVf_OOK())) |
6011
|
0 |
0 |
if $debug{'flags'} |
6014
|
0 |
0 |
if $debug{'hv'} |
6017
|
0 |
0 |
$PERL510 && $hv->can('ARRAY_utf8') ? : |
6021
|
0 |
0 |
unless $is_stash |
6022
|
0 |
0 |
if $PERL518 and $hv->FLAGS & 1048576 |
6024
|
0 |
0 |
if (@contents) { } |
|
0 |
0 |
elsif ($PERL514) { } |
6035
|
0 |
0 |
if ref $sv eq 'B::RV' and defined objsym($sv) and $debug{'hv'} |
6036
|
0 |
0 |
if ($is_stash) { } |
6037
|
0 |
0 |
if (ref $sv eq 'B::GV' and $sv->NAME =~ /::$/) { } |
6039
|
0 |
0 |
if $debug{'hv'} |
6042
|
0 |
0 |
if $debug{'hv'} |
6048
|
0 |
0 |
if $debug{'hv'} |
6056
|
0 |
0 |
if ($length) |
6058
|
0 |
0 |
$sym =~ /^hv|\(HV/ ? : |
6062
|
0 |
0 |
if ($value) |
6063
|
0 |
0 |
if not $value =~ /^&sv_list/ or $PERL510 and $] < 5.012 |
6067
|
0 |
0 |
if $utf8 |
6070
|
0 |
0 |
if $debug{'hv'} |
6071
|
0 |
0 |
if (not $swash_ToCf and $fullname =~ /^utf8::SWASHNEW/ and $cstring eq '"utf8\\034unicore/To/Cf.pl\\0340"' and $cur == 23) |
6075
|
0 |
0 |
if $verbose |
6081
|
0 |
0 |
unless $PERL56 |
6088
|
0 |
0 |
if $hv->FLAGS & 134217728 |
6089
|
0 |
0 |
if ($magic =~ /c/) |
6094
|
0 |
0 |
if ($PERL510 and $name and is_using_mro() and &mro::get_mro($name) eq 'c3') |
6105
|
0 |
0 |
if $verbose |
6108
|
0 |
0 |
if ($PERL56) { } |
6116
|
0 |
0 |
unless $savINC{'PerlIO.pm'} |
6117
|
0 |
0 |
unless $savINC{'PerlIO/scalar.pm'} |
6129
|
0 |
0 |
if defined $sym |
6131
|
0 |
0 |
unless defined $pv |
6133
|
0 |
0 |
if ($pv) { } |
6140
|
0 |
0 |
if ($cur) { } |
6142
|
0 |
0 |
if IsCOW($io) and not $cow |
6147
|
0 |
0 |
if $debug{'sv'} and $] > 5.008 |
6148
|
0 |
0 |
if ($PERL514) { } |
|
0 |
0 |
elsif ($] > 5.011) { } |
|
0 |
0 |
elsif ($PERL510) { } |
6152
|
0 |
0 |
unless $verbose |
6153
|
0 |
0 |
unless $verbose |
6164
|
0 |
0 |
$pv_copy_on_grow ? : |
6171
|
0 |
0 |
unless $verbose |
6172
|
0 |
0 |
unless $verbose |
6183
|
0 |
0 |
$pv_copy_on_grow ? : |
6190
|
0 |
0 |
unless $verbose |
6191
|
0 |
0 |
unless $verbose |
6203
|
0 |
0 |
$pv_copy_on_grow ? : |
6223
|
0 |
0 |
if $debug{'flags'} |
6226
|
0 |
0 |
if ($PERL510 and not $pv_copy_on_grow and $cur) |
6232
|
0 |
0 |
if ($$fsym) |
6239
|
0 |
0 |
if $fsym |
6243
|
0 |
0 |
unless ($PERL56 or $is_DATA) |
6255
|
0 |
0 |
if ($io->IsSTD($_) or defined $fd and $fd == -$i) |
6260
|
0 |
0 |
if ($perlio_func) { } |
6281
|
0 |
0 |
if ($iotype eq "\000" or $iotype eq ' ') { } |
|
0 |
0 |
elsif ($iotype =~ /[a>]/) { } |
|
0 |
0 |
elsif ($iotype =~ /[<#\+]/) { } |
6284
|
0 |
0 |
if $debug{'gv'} |
6287
|
0 |
0 |
if $fd >= 3 or $verbose |
6289
|
0 |
0 |
$iotype eq '>' ? : |
6292
|
0 |
0 |
$fd < 3 ? : |
|
0 |
0 |
$fd < 3 ? : |
6297
|
0 |
0 |
if $fd >= 3 or $verbose |
6302
|
0 |
0 |
if ($io->can('tell') and $tell = $io->tell) |
6316
|
0 |
0 |
if ($PERL518) |
6318
|
0 |
0 |
if ($stash and $$stash) |
6325
|
0 |
0 |
if $debug{'gv'} |
6337
|
0 |
0 |
unless $$sv |
6344
|
0 |
0 |
if $check |
6355
|
0 |
0 |
if ($PERL522) |
6361
|
0 |
0 |
if ($CPERL52) |
6369
|
0 |
0 |
if $symsect->comment and $verbose |
6376
|
0 |
0 |
if ($lines) |
6380
|
0 |
0 |
if ($typename eq 'SV*' and $name =~ /^(?:avco[gw])_(\d+)$/) { } |
6382
|
0 |
0 |
if $name =~ /^avcow_/ |
6394
|
0 |
0 |
if ($MULTI) { } |
6397
|
0 |
0 |
if ($] > 5.01903) { } |
6402
|
0 |
0 |
if ($PERL510) |
6408
|
0 |
0 |
if ($] < 5.008008) |
6418
|
0 |
0 |
if ($] < 5.008009) |
6428
|
0 |
0 |
if ($] < 5.013007) |
6435
|
0 |
0 |
if ($] < 5.01301) |
6445
|
0 |
0 |
if ($] >= 5.021005 and $] < 5.023) |
6463
|
0 |
0 |
if (%init2_remap and not $HAVE_DLFCN_DLOPEN) |
6469
|
0 |
0 |
if $decl->comment and $verbose |
6475
|
0 |
0 |
if ($lines) |
6479
|
0 |
0 |
if ($typename eq 'SV*' and $name =~ /^(?:avco[wg])_(\d+)$/) { } |
6481
|
0 |
0 |
if $name =~ /^avcow_/ |
6486
|
0 |
0 |
if $section->comment and $verbose |
6495
|
0 |
0 |
if @{$init0->[-1]{'values'};} |
6499
|
0 |
0 |
if $init->comment and $verbose |
6501
|
0 |
0 |
if $verbose |
6502
|
0 |
0 |
if $init1->comment and $verbose |
6505
|
0 |
0 |
if $verbose |
6506
|
0 |
0 |
if $init2->comment and $verbose |
6509
|
0 |
0 |
if (exists $xsub{$pkg}) |
6512
|
0 |
0 |
if ($stashfile) |
6518
|
0 |
0 |
if ($remap) |
6522
|
0 |
0 |
if ($HAVE_DLFCN_DLOPEN) { } |
6531
|
0 |
0 |
if (exists $xsub{$pkg}) |
6532
|
0 |
0 |
if ($HAVE_DLFCN_DLOPEN) { } |
6534
|
0 |
0 |
if $^O =~ /bsd/i |
6548
|
0 |
0 |
if $verbose |
6550
|
0 |
0 |
if ($HAVE_DLFCN_DLOPEN) { } |
6571
|
0 |
0 |
if ($verbose) |
6573
|
0 |
0 |
$caller eq 'B::CC' ? : |
6593
|
0 |
0 |
if ($PERL510 and &IS_MSVC()) |
6601
|
0 |
0 |
if ($PERL510) |
6629
|
0 |
0 |
if ($PERL522) |
6657
|
0 |
0 |
if ($padnamesect{$s}->index >= 0) |
6670
|
0 |
0 |
if ($PERL510 and not $PERL514) |
6680
|
0 |
0 |
if ($B::C::Config::have_HEK_STATIC) |
6690
|
0 |
0 |
if ($PERL510 and $] < 5.012 and not $C99) |
6721
|
0 |
0 |
if ($PERL512) { } |
|
0 |
0 |
elsif ($PERL510) { } |
6730
|
0 |
0 |
if ($] == 5.01) |
6735
|
0 |
0 |
if ($] >= 5.021001 and not $CPERL52) |
6739
|
0 |
0 |
if $gv_index |
6744
|
0 |
0 |
if $B::C::REVISION |
6748
|
0 |
0 |
if $debug{'flags'} and $DEBUG_LEAKING_SCALARS |
6749
|
0 |
0 |
if ($B::C::Config::have_independent_comalloc) |
6809
|
0 |
0 |
if ($] < 5.008008) |
6825
|
0 |
0 |
if $CPERL51 and $^O ne 'MSWin32' |
6829
|
0 |
0 |
if ($av_init2 and $B::C::Config::use_declare_independent_comalloc) |
6832
|
0 |
0 |
if ($av_init2) |
6835
|
0 |
0 |
if ($last) |
6841
|
0 |
0 |
if ($xpvav_sizes[$_] > 0) { } |
6846
|
0 |
0 |
if $_ != $last |
6847
|
0 |
0 |
unless ($_ + 1) % 30 |
6854
|
0 |
0 |
if (not $destruct) { } |
6874
|
0 |
0 |
if ($] < 5.008009) |
6898
|
0 |
0 |
if ($PERL510) |
6910
|
0 |
0 |
if ($PERL510) |
6922
|
0 |
0 |
if ($] < 5.008009) |
6936
|
0 |
0 |
if (not $destruct) { } |
7092
|
0 |
0 |
if ($s =~ /\(OP\*\)&unopaux_list/) |
7227
|
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') { } |
7249
|
0 |
0 |
if ($ITHREADS or not $MULTI) |
7252
|
0 |
0 |
if ($] >= 5.017) { } |
|
0 |
0 |
elsif ($] < 5.016 and $ITHREADS) { } |
|
0 |
0 |
elsif ($] < 5.016 and not $ITHREADS) { } |
7273
|
0 |
0 |
if ($CPERL51) |
7274
|
0 |
0 |
$CPERL55 ? : |
7277
|
0 |
0 |
if ($CPERL51) |
7278
|
0 |
0 |
$CPERL55 ? : |
7348
|
0 |
0 |
if ($CPERL51 and $debug{'cv'}) |
7369
|
0 |
0 |
if $verbose |
7376
|
0 |
0 |
if $verbose |
7380
|
0 |
0 |
if ($CPERL51 and $^O ne 'MSWin32') |
7388
|
0 |
0 |
unless (exists $curINC{$incpack}) |
7389
|
0 |
0 |
if $debug{'pkg'} |
7391
|
0 |
0 |
unless $static_ext{$stashname} |
7394
|
0 |
0 |
unless ($xsub{$stashname} =~ /^Dynamic/ or $static_ext{$stashname}) |
7396
|
0 |
0 |
if $verbose |
7411
|
0 |
0 |
if $ENV{'PERLMODS'} |
7414
|
0 |
0 |
unless grep {$_ ne $perlmod;} @dl_modules |
7418
|
0 |
0 |
unless ($xsub{$c} or $include_package{$c}) |
7420
|
0 |
0 |
if $verbose and not $skip_package{$c} |
7427
|
0 |
0 |
if $verbose and $xsub{$c} |
7433
|
0 |
0 |
if $verbose |
7441
|
0 |
0 |
if ($stashname eq 'attributes' and $] > 5.011) |
7445
|
0 |
0 |
if (not exists $xsub{$stashname} and $include_package{$stashname}) |
7448
|
0 |
0 |
unless $INC{$incpack} |
7449
|
0 |
0 |
unless ($savINC{$incpack}) |
7453
|
0 |
0 |
if $verbose |
7455
|
0 |
0 |
if (exists $xsub{$stashname} and $xsub{$stashname} =~ /^Dynamic/) |
7458
|
0 |
0 |
if $xsub{$stashname} ne 'Dynamic' |
7463
|
0 |
0 |
if (exists $xsub{$stashname} and $xsub{$stashname} =~ /^Dynamic-/ and $PERL522 || $staticxs) |
7468
|
0 |
0 |
if $verbose and $debug{'cv'} |
7470
|
0 |
0 |
if ($dl and not $curINC{'DynaLoader.pm'}) { } |
|
0 |
0 |
elsif ($xs and not $curINC{'XSLoader.pm'}) { } |
7483
|
0 |
0 |
if ($dl) |
7487
|
0 |
0 |
if (grep {$_ eq $front;} @dl_modules) |
7492
|
0 |
0 |
unless open XS, '>', $outfile . '.lst' |
|
0 |
0 |
if ($staticxs) |
7496
|
0 |
0 |
if $xs |
7497
|
0 |
0 |
if $xs |
7499
|
0 |
0 |
if $] < 5.008008 |
7501
|
0 |
0 |
if (exists $xsub{'Coro::State'} and grep {$_ eq 'Coro::State';} @dl_modules) |
7513
|
0 |
0 |
if (exists $xsub{'EV'} and grep {$_ eq 'EV';} @dl_modules) |
7523
|
0 |
0 |
if (exists $xsub{$stashname} and $xsub{$stashname} =~ /^Dynamic/) { } |
7527
|
0 |
0 |
$] < 5.008008 ? : |
7529
|
0 |
0 |
if ($xsub{$stashname} eq 'Dynamic') { } |
7531
|
0 |
0 |
if $verbose |
7541
|
0 |
0 |
if ($] >= 5.015003 and $stashfile) |
7542
|
0 |
0 |
if ($CPERL51) |
7552
|
0 |
0 |
if (/$needle/) |
7557
|
0 |
0 |
unless ($sofile) |
7560
|
0 |
0 |
if ($stashname eq 'Cwd' and not $stashfile =~ /Cwd/) |
7575
|
0 |
0 |
if $verbose |
7578
|
0 |
0 |
if ($] >= 5.015003) { } |
7580
|
0 |
0 |
unless (grep /^DynaLoader$/, &get_isa($stashname)) |
7584
|
0 |
0 |
if $debug{'gv'} |
7588
|
0 |
0 |
if $stashfile |
7594
|
0 |
0 |
if ($staticxs) |
7598
|
0 |
0 |
if $path |
7599
|
0 |
0 |
unless $laststash |
7604
|
0 |
0 |
if (m[^(.+/)$sofile$]) |
7606
|
0 |
0 |
if $verbose |
7611
|
0 |
0 |
if $sofile |
7612
|
0 |
0 |
if $sofile and $verbose |
7618
|
0 |
0 |
if ($PERL522 or $staticxs) { } |
7621
|
0 |
0 |
if ($PERL522 and $staticxs) { } |
7639
|
0 |
0 |
!$xsub{$stashname} ? : |
|
0 |
0 |
if $verbose |
7648
|
0 |
0 |
if $xs |
7651
|
0 |
0 |
if $staticxs |
7657
|
0 |
0 |
if (not defined $module) |
7687
|
0 |
0 |
if ($ITHREADS and $] > 5.007) |
7710
|
0 |
0 |
unless $PERL56 |
7711
|
0 |
0 |
if ($] >= 5.008009) |
7718
|
0 |
0 |
unless ($PERL510) |
7742
|
0 |
0 |
if (not $PERL56 and ${^TAINT}) |
7766
|
0 |
0 |
if ($use_perl_script_name) { } |
7777
|
0 |
0 |
if $^H |
7778
|
0 |
0 |
if ${^UNICODE} |
7784
|
0 |
0 |
if $; ne "\034" |
7785
|
0 |
0 |
if $" ne ' ' |
7787
|
0 |
0 |
if ($PERL56) { } |
7788
|
0 |
0 |
if $, |
7789
|
0 |
0 |
if $\ |
7791
|
0 |
0 |
if $, |
7792
|
0 |
0 |
if $\ |
7794
|
0 |
0 |
if $/ ne "\n" |
7795
|
0 |
0 |
if $| |
7797
|
0 |
0 |
if $^A |
7798
|
0 |
0 |
if $^L ne "\f" |
7799
|
0 |
0 |
if $main::: ne " \n-" |
7800
|
0 |
0 |
if $^ ne 'STDOUT_TOP' |
7802
|
0 |
0 |
if $~ ne 'STDOUT' |
7804
|
0 |
0 |
if $% |
7805
|
0 |
0 |
unless $- == 0 or $- == 60 |
7806
|
0 |
0 |
if $= != 60 |
7809
|
0 |
0 |
if $[ |
7810
|
0 |
0 |
if ($] < 5.01) |
7833
|
0 |
0 |
if $init1->index >= 0 |
7834
|
0 |
0 |
unless defined $module |
7835
|
0 |
0 |
if $init2->index >= 0 |
7841
|
0 |
0 |
if (not $destruct) { } |
7842
|
0 |
0 |
if $verbose |
7902
|
0 |
0 |
if $debug{'gv'} and $verbose |
7907
|
0 |
0 |
if $package ne 'main' and not $include_package{$package} |
7908
|
0 |
0 |
if $package eq 'main' and $name =~ /^([^\w].*|_\<.*|INC|ARGV|SIG|ENV|BEGIN|main::|!)$/ |
7911
|
0 |
0 |
if $debug{'gv'} |
7912
|
0 |
0 |
unless $$cv or $$av or $$sv or $$hv or $gv->IO or $gv->FORM |
7913
|
0 |
0 |
if ($$cv and $name eq 'bootstrap' and $cv->XSUB) |
7915
|
0 |
0 |
if $debug{'gv'} |
7918
|
0 |
0 |
if ($$cv and in_static_core($package, $name) and ref $cv eq 'B::CV' and $cv->XSUB) |
7920
|
0 |
0 |
if $debug{'gv'} |
7922
|
0 |
0 |
unless ($dumped_package{$package}) |
7928
|
0 |
0 |
if ($package eq 'B::C') |
7929
|
0 |
0 |
if $debug{'gv'} |
7932
|
0 |
0 |
if ($fullname =~ /^(bytes|utf8)::AUTOLOAD$/) |
7936
|
0 |
0 |
if $fullname eq 'B::walksymtable' or $fullname eq 'B::C::walksymtable' |
7939
|
0 |
0 |
if ($name eq 'Config') |
7940
|
0 |
0 |
unless $include_package{'Config'} |
7942
|
0 |
0 |
unless exists $dumped_package{$package} or $package =~ /::$/ |
7943
|
0 |
0 |
if $debug{'gv'} |
7955
|
0 |
0 |
unless defined $prefix |
7960
|
0 |
0 |
if $prefix eq 'utf8::' and defined $symref->{'SWASHNEW'} |
7967
|
0 |
0 |
if $a eq $v |
7968
|
0 |
0 |
if $b eq $v |
7978
|
0 |
0 |
if ($sym =~ /::$/) { } |
7980
|
0 |
0 |
if (svref_2object(\*$sym)->NAME ne 'main::' and $sym ne '::' and &$recurse($sym)) |
7992
|
0 |
0 |
if $dumped_package{$package} |
7993
|
0 |
0 |
if $debug{'pkg'} and $verbose |
8003
|
0 |
0 |
unless defined $prefix |
8005
|
0 |
0 |
if ($sym =~ /::$/) |
8008
|
0 |
0 |
if ($sym ne 'main::' and $sym ne '::') |
8024
|
0 |
0 |
if $] < 5.01 |
8025
|
0 |
0 |
if skip_pkg($package) |
8026
|
0 |
0 |
if (not $include_package{$package} or $force) |
8028
|
0 |
0 |
if $verbose and $debug{'pkg'} |
8030
|
0 |
0 |
if grep {$package eq $_;} @IO |
8031
|
0 |
0 |
if $package eq 'XSLoader' |
8032
|
0 |
0 |
if $package =~ /^B|Carp$/ |
8034
|
0 |
0 |
if (exists $include_package{$package} and not $include_package{$package} and $savINC{inc_packname($package)}) { } |
8038
|
0 |
0 |
$force ? : |
|
0 |
0 |
if $verbose |
8045
|
0 |
0 |
$force ? : |
|
0 |
0 |
if not $include_package{$package} and $verbose and $debug{'pkg'} |
8047
|
0 |
0 |
if $] < 5.01 |
8048
|
0 |
0 |
unless $walkall |
8051
|
0 |
0 |
if (@isa) |
8055
|
0 |
0 |
if $isa eq $package |
8056
|
0 |
0 |
if ($isa eq 'DynaLoader') |
8057
|
0 |
0 |
unless (defined &{$package . '::bootstrap';}) |
8058
|
0 |
0 |
if $verbose |
8062
|
0 |
0 |
unless ($include_package{$isa} or $skip_package{$isa}) |
8064
|
0 |
0 |
if $verbose |
8066
|
0 |
0 |
if (exists $include_package{$isa}) { } |
8067
|
0 |
0 |
if $verbose |
8085
|
0 |
0 |
if ($stashname eq 'UNIVERSAL') |
8088
|
0 |
0 |
unless %static_core_pkg |
8090
|
0 |
0 |
if $static_core_pkg{$stashname} |
8091
|
0 |
0 |
if ($stashname eq 'mro') |
8094
|
0 |
0 |
if ($stashname eq 're') |
8097
|
0 |
0 |
if ($stashname eq 'PerlIO') |
8100
|
0 |
0 |
if ($stashname eq 'PerlIO::Layer') |
8111
|
0 |
0 |
if $CPERL51 |
8112
|
0 |
0 |
if $] < 5.011 |
8113
|
0 |
0 |
if $] >= 5.01 |
8114
|
0 |
0 |
unless $PERL514 |
8118
|
0 |
0 |
if $^O eq 'cygwin' |
8119
|
0 |
0 |
if $^O eq 'NetWare' |
8120
|
0 |
0 |
if $^O eq 'os2' |
8121
|
0 |
0 |
if $^O eq 'VMS' |
8129
|
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)/) |
8147
|
0 |
0 |
if (exists $all_bc_deps{$pkg} and $can_delete_pkg) |
8155
|
0 |
0 |
if (skip_pkg($package)) |
8156
|
0 |
0 |
if can_delete($package) |
8159
|
0 |
0 |
if $package =~ /::::/ |
8161
|
0 |
0 |
if $debug{'pkg'} |
8162
|
0 |
0 |
if index($package, ' ') != -1 |
8163
|
0 |
0 |
if index($package, '(') != -1 |
8164
|
0 |
0 |
if index($package, ')') != -1 |
8166
|
0 |
0 |
if ($package eq 'mro') |
8168
|
0 |
0 |
if (not is_using_mro()) { } |
8169
|
0 |
0 |
if $debug{'pkg'} |
8172
|
0 |
0 |
if $debug{'pkg'} |
8177
|
0 |
0 |
if ($package eq 'attributes' and $] > 5.011 and grep {$_ eq 'attributes';} @DynaLoader::dl_modules) |
8183
|
0 |
0 |
if (exists $all_bc_deps{$package}) |
8190
|
0 |
0 |
if $u =~ /^$p\:\:/ and $include_package{$package} |
8195
|
0 |
0 |
if ($] > 5.015001 and exists $all_bc_deps{$package} and not exists $curINC{$incpack} and $savINC{$incpack}) |
8198
|
0 |
0 |
if $debug{'pkg'} |
8202
|
0 |
0 |
if ($package =~ /^DynaLoader|XSLoader$/ and $use_xsloader or not exists $all_bc_deps{$package}) |
8207
|
0 |
0 |
if ($mainfile) |
8211
|
0 |
0 |
if (defined &{$package . '::' . $sym;}) |
8214
|
0 |
0 |
if ($cv and $cv->can('FILE') and $cv->FILE) |
8215
|
0 |
0 |
if $mainfile eq $cv->FILE |
8222
|
0 |
0 |
if ($savINC{'overload.pm'} and exists do {
$package . '::'
}->{'OVERLOAD'} and exists do {
$package . '::'
}->{'()'}) |
8230
|
0 |
0 |
if (exists $include_package{$package}) |
8231
|
0 |
0 |
if (not exists $all_bc_deps{$package}) { } |
|
0 |
0 |
elsif (not $include_package{$package}) { } |
8234
|
0 |
0 |
if $debug{'pkg'} |
8237
|
0 |
0 |
if can_delete($package) |
8238
|
0 |
0 |
if $debug{'pkg'} |
8240
|
0 |
0 |
if $debug{'pkg'} |
8246
|
0 |
0 |
unless ($all_bc_deps{$package}) |
8251
|
0 |
0 |
if (UNIVERSAL::can($package, $m) and not $package =~ /^(B::C|version|Regexp|utf8|SelectSaver)$/) |
8252
|
0 |
0 |
if $package eq 'utf8' and $m eq 'DESTROY' |
8255
|
0 |
0 |
if $package =~ /^(Errno|Tie::Hash::NamedCapture)$/ and $m eq 'TIEHASH' |
8257
|
0 |
0 |
if $package eq 'Config' and $m =~ /DESTROY|TIEHASH/ |
8259
|
0 |
0 |
if $package =~ /^(FileHandle|IO::File|IO::Handle)/ and $m eq 'new' |
8260
|
0 |
0 |
if $debug{'pkg'} |
8265
|
0 |
0 |
if (not $package =~ /^PerlIO/ and can_delete($package)) |
8268
|
0 |
0 |
if (can_delete($package)) { } |
|
0 |
0 |
elsif (not exists $all_bc_deps{$package}) { } |
8269
|
0 |
0 |
if $debug{'pkg'} |
8272
|
0 |
0 |
if $debug{'pkg'} |
8291
|
0 |
0 |
if ($package =~ /^(Config_git\.pl|Config_heavy.pl)$/) |
8294
|
0 |
0 |
if ($package eq 'utf8_heavy.pl') |
8305
|
0 |
225 |
if $dumped_package{$package} |
8307
|
0 |
0 |
if $package =~ /^DynaLoader|XSLoader$/ and defined $use_xsloader and $use_xsloader == 0 |
8310
|
0 |
225 |
if $^O eq 'MSWin32' and $package =~ /^Carp|File::Basename$/ |
8312
|
0 |
225 |
if ($curINC{$incpack}) |
8314
|
0 |
0 |
unless $savINC{$incpack} |
8324
|
0 |
0 |
unless ($curINC{$incpack}) |
8325
|
0 |
0 |
if ($savINC{$incpack}) { } |
8326
|
0 |
0 |
if $debug{'pkg'} |
8329
|
0 |
0 |
if $package =~ /^DynaLoader|XSLoader$/ |
8331
|
0 |
0 |
if $debug{'pkg'} |
8334
|
0 |
0 |
if (-e $p) |
8336
|
0 |
0 |
unless $curINC{$incpack} |
8344
|
0 |
0 |
unless defined $prefix |
8346
|
0 |
0 |
if $savINC{inc_packname(substr($prefix, 0, -2))} |
8349
|
0 |
0 |
unless $ref |
8352
|
0 |
0 |
if ($sym =~ /::$/) |
8354
|
0 |
0 |
if $debug{'pkg'} and $debug{'walk'} |
8357
|
0 |
0 |
if ($sym ne 'main::' and $sym ne '::' and &$recurse($sym)) |
8367
|
0 |
0 |
if ($debug{'unused'}) |
8371
|
0 |
0 |
$module ? : |
8379
|
0 |
0 |
if ($verbose) |
8380
|
0 |
0 |
$sav_debug{'unused'} ? : |
8386
|
0 |
0 |
$main eq 'main::' ? : |
8387
|
0 |
0 |
$sav_debug{'unused'} ? : |
|
0 |
0 |
if $verbose |
8391
|
0 |
0 |
if $dumped_package{$_} |
8392
|
0 |
0 |
if $verbose |
8394
|
0 |
0 |
if (not $walkall) { } |
8401
|
0 |
0 |
if $dumped_package{$_} |
8403
|
0 |
0 |
if $walkall_cnt++ > 3 |
8407
|
0 |
0 |
if ($sav_debug{'unused'}) |
8414
|
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'}) |
8418
|
0 |
0 |
unless $savINC{'utf8.pm'} |
8426
|
0 |
0 |
if ($] >= 5.013005 and ($warnings and exists $dumped_package{'Carp'})) |
8432
|
0 |
0 |
if ($xsub{'EV'} and $dumped_package{'EV'} and $EV::VERSION le '4.21') |
8439
|
0 |
0 |
if ($use_xsloader) |
8450
|
0 |
0 |
if ($CPERL51) |
8458
|
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}) { } |
8470
|
0 |
0 |
unless (exists $curINC{$p}) |
8475
|
0 |
0 |
if ($debug{'pkg'} and $verbose) |
8481
|
0 |
0 |
if ($walkall) |
8483
|
0 |
0 |
if $again and $rec_cnt < 2 |
8488
|
0 |
0 |
unless exists $dumped_package{$pkg} |
8490
|
0 |
0 |
if (not exists $curINC{$p} and exists $INC{$p}) |
8495
|
0 |
0 |
if ($debug{'pkg'} and $verbose) |
8496
|
0 |
0 |
if @deleted_inc |
8504
|
0 |
0 |
if $verbose or $debug{'pkg'} |
8509
|
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)$/) |
8514
|
0 |
0 |
if ($p eq 'warnings::register' and not $warnings) |
8519
|
0 |
0 |
if $verbose or $debug{'pkg'} |
8533
|
0 |
0 |
unless my $package = shift() |
8535
|
0 |
0 |
if grep {$_ eq $package;} @made_c3 |
8544
|
0 |
0 |
if $verbose or $debug{'pkg'} |
8559
|
0 |
0 |
if $verbose |
8561
|
0 |
0 |
if $save_sig |
8565
|
0 |
0 |
if ($^{'TAINT'}) |
8569
|
0 |
0 |
$^{'TAINT'} < 0 ? : |
8572
|
0 |
0 |
if ($PERL510) |
8574
|
0 |
0 |
if (is_using_mro() and &mro::get_mro('main') eq 'c3') |
8595
|
0 |
0 |
if (defined objsym(svref_2object(\*{'main::!';}))) { } |
8597
|
0 |
0 |
unless ($include_package{'Errno'}) |
8615
|
0 |
0 |
if $verbose |
8617
|
0 |
0 |
if $verbose |
8623
|
0 |
0 |
if $ro_inc |
8624
|
0 |
0 |
if $verbose |
8636
|
0 |
0 |
if ($include_package{$p} and exists do {
$p . '::'
}->{'ISA'} and do {
$p . '::'
}->{'ISA'}) |
8639
|
0 |
0 |
if ($PERL510 and (is_using_mro() and &mro::get_mro($p) eq 'c3')) |
8644
|
0 |
0 |
if @saved_isa and $verbose || $debug{'pkg'} |
8652
|
0 |
0 |
if ($] < 5.017005) { } |
|
0 |
0 |
elsif ($] < 5.019003) { } |
|
0 |
0 |
elsif ($] < 5.022) { } |
8670
|
0 |
0 |
if ($] < 5.017) |
8672
|
0 |
0 |
if $verbose |
8685
|
0 |
0 |
unless skip_pkg($p) or $all_bc_deps{$p} or $pack =~ /(autosplit\.ix|\.al)$/ |
8687
|
0 |
0 |
if ($debug{'pkg'} and $verbose) |
8692
|
0 |
0 |
unless skip_pkg($pack) |
8695
|
0 |
0 |
if $debug{'pkg'} |
8700
|
0 |
0 |
if $verbose |
8701
|
0 |
0 |
if $verbose |
8703
|
0 |
0 |
if $PERL512 |
8706
|
0 |
0 |
unless $PERL56 |
8708
|
0 |
0 |
$verbose ? : |
8721
|
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)/ |
8722
|
0 |
0 |
if ref $symtab->{$symbol} |
8726
|
0 |
0 |
if ($@ =~ /vendor has not defined/) |
8739
|
0 |
0 |
if ($optimize_ppaddr) |
8743
|
0 |
0 |
unless $num >= 0 |
8755
|
0 |
0 |
unless ref $SIG{$k} |
8757
|
0 |
0 |
if ref $cvref eq 'B::CV' and $cvref->FILE =~ m[B/C\.pm$] |
8760
|
0 |
0 |
unless (@save_sig) |
8761
|
0 |
0 |
if $verbose |
8762
|
0 |
0 |
if $verbose |
8765
|
0 |
0 |
if $verbose |
8766
|
0 |
0 |
if $verbose |
8784
|
0 |
0 |
if ($] < 5.015003) { } |
|
0 |
0 |
elsif ($CPERL51) { } |
8802
|
0 |
0 |
if $] < 5.015003 |
8812
|
0 |
0 |
if $verbose or $debug{'cv'} |
8819
|
0 |
0 |
if $debug{'av'} |
8826
|
0 |
0 |
if $debug{'av'} |
8831
|
0 |
0 |
unless (defined $module) |
8837
|
0 |
0 |
index($init_av, '(AV*)') >= 0 ? : |
8840
|
0 |
0 |
index($end_av, '(AV*)') >= 0 ? : |
8844
|
0 |
0 |
unless defined $module |
8847
|
0 |
0 |
if $use_xsloader |
8849
|
0 |
0 |
if $check |
8850
|
0 |
0 |
if $verbose |
8855
|
0 |
0 |
if $stashname =~ /^\s*$/ |
8866
|
0 |
0 |
if (defined $module) { } |
8867
|
0 |
0 |
$module ? : |
8871
|
0 |
0 |
if $verbose |
8941
|
0 |
0 |
if ($PERL522) |
8948
|
0 |
0 |
if ($PERL522) |
8969
|
225 |
0 |
unless $include_package{$_} |
8976
|
0 |
0 |
if defined &DB::DB |
8984
|
0 |
0 |
if $] >= 5.013009 |
8985
|
0 |
0 |
if $] >= 5.013005 |
8986
|
0 |
0 |
if $^O ne 'MSWin32' or not $Config{'cc'} =~ /^cl/i |
8987
|
0 |
0 |
if $] >= 5.017 |
8996
|
0 |
0 |
if ($option =~ /^-(.)(.*)/) { } |
9004
|
0 |
0 |
if ($opt eq '-' and $arg eq '-') |
9008
|
0 |
0 |
if ($opt eq 'w') |
9011
|
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') { } |
9016
|
0 |
0 |
if ($arg eq 'full') { } |
|
0 |
0 |
elsif ($arg eq 'ufull') { } |
9025
|
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') { } |
9033
|
0 |
0 |
if $] > 5.008 and eval 'require B::Flags;' |
9043
|
0 |
0 |
if $init |
9054
|
0 |
0 |
if ($check) { } |
9057
|
0 |
0 |
unless open STDOUT, '>', $arg |
9061
|
0 |
0 |
unless $outfile |
9078
|
0 |
0 |
if ($arg =~ /\.p[lm]$/) { } |
9093
|
0 |
0 |
$no ? : |
9094
|
0 |
0 |
if (exists $option_map{$arg}) { } |
9102
|
0 |
0 |
if $arg eq '' |
9106
|
0 |
0 |
if exists $optimization_map{$i} |
9109
|
0 |
0 |
if $verbose |
9118
|
0 |
0 |
if (not $B::C::Config::have_independent_comalloc) { } |
|
0 |
0 |
elsif ($av_init2 and $av_init) { } |
9119
|
0 |
0 |
if ($av_init2) { } |
|
0 |
0 |
elsif ($av_init) { } |
9128
|
0 |
0 |
if $] >= 5.008 and $] < 5.009004 || $MULTI |
9129
|
0 |
0 |
if $] < 5.008 or $^O eq 'MSWin32' |
9135
|
0 |
0 |
if (@options) { } |