Branch Coverage

blib/lib/B/C.pm
Criterion Covered Total %
branch 15 3654 0.4


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)
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 (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 $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'}
4114 0 0 $PERL518 && (!$gv || ref $gv eq 'B::SPECIAL') && $cv->can('NAME_HEK') ? :
4118 0 0 $_[0] =~ /^(BEGIN|INIT|UNITCHECK|CHECK|END)$/ ? :
4124 0 0 if (defined $sym)
4125 0 0 if $$cv and $debug{'cv'}
4132 0 0 if ($gv and $$gv) { }
0 0 elsif ($cv->is_lexsub($gv)) { }
4138 0 0 if ($PERL522 and $cvname eq '__ANON__')
4139 0 0 if ($origname) { }
4141 0 0 if $debug{'cv'}
4143 0 0 if $cvstashname
4145 0 0 if ($cvname =~ / :pad\[.*$/)
4147 0 0 if is_phase_name($cvname)
4150 0 0 if $debug{'cv'}
4154 0 0 if $debug{'cv'}
4159 0 0 if $debug{'cv'}
4162 0 0 if $all_bc_subs{$fullname} or skip_pkg($cvstashname)
4163 0 0 if $PERL514
4164 0 0 unless $include_package{$cvstashname}
4168 0 0 unless defined $fullname
4170 0 0 if $debug{'cv'}
4171 0 0 if ($fullname =~ /^(.*)::(.*?)$/)
4176 0 0 unless defined $cvstashname
4183 0 0 $PERL56 ? :
4186 0 0 if (not $isconst and $cvxsub and $cvname ne 'INIT')
4190 0 0 if ($cvname eq 'bootstrap' and not $xsub{$stashname}) { }
4193 0 0 if $verbose
4197 0 0 if (not $Config{'usedl'}) { }
0 0 elsif (not UNIVERSAL::isa($stashname, 'DynaLoader') and $stashname ne 'attributes' || $] >= 5.011) { }
4207 0 0 if ($file =~ /XSLoader\.pm$/)
4210 0 0 unless ($file)
4212 0 0 unless $laststash
4215 0 0 if (m[^(.+/)$sofile$])
4233 0 0 if $debug{'sub'}
4240 0 0 if (grep {$stashname eq $_;} @IO)
4251 0 0 if $debug{'sub'}
4252 0 0 if (not in_static_core($stashname, $cvname)) { }
4255 0 0 if $debug{'cv'}
4256 0 0 if $stashname
4262 0 0 if $debug{'cv'}
4266 0 0 if (not $isconst and $cvxsub and $cvname eq 'INIT')
4268 0 0 if $debug{'sub'}
4273 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))
4289 0 0 if $debug{'cv'}
4293 0 0 if ($] >= 5.016)
4295 0 0 if (ref $sv eq 'B::IV' || ref $sv eq 'B::PVMG' and $sv->FLAGS & 2048)
4297 0 0 if ($rv->FLAGS & 16640 and $rv->IVX > 65536)
4305 0 0 if ($sv and ref $sv and ref($sv) =~ /^(SCALAR|ARRAY|HASH|CODE|REF)$/) { }
0 0 elsif ($sv and ref($sv) =~ /^B::[ANRPI]/) { }
4307 0 0 if $debug{'cv'}
4321 0 0 if $verbose
4330 0 0 if ($new_cv_fw) { }
4334 0 0 if $debug{'flags'}
4342 0 0 if $debug{'cv'}
4343 0 0 if (not $$root and $] < 5.01)
4347 0 0 if ($fullname eq 'utf8::SWASHNEW')
4351 0 0 if ($fullname eq 'IO::Socket::SSL::SSL_Context::new')
4352 0 0 if ($IO::Socket::SSL::VERSION ge '1.956' and $IO::Socket::SSL::VERSION lt '1.995')
4360 0 0 unless ($$root or $cvxsub)
4362 0 0 if ($cvstashname =~ /^(bytes|utf8)$/) { }
0 0 elsif ($fullname eq 'Coro::State::_jit') { }
4369 0 0 if ($pl)
4376 0 0 if ($reloaded)
4379 0 0 if $debug{'cv'}
4385 0 0 unless ($$root or $cvxsub)
4386 0 0 if (my $auto = try_autoload($cvstashname, $cvname))
4387 0 0 if (ref $auto eq 'B::CV') { }
4390 0 0 if ($$auto)
4395 0 0 if ($$gvnew)
4396 0 0 if ($cvstashname ne $gvnew->STASH->NAME or $cvname ne $gvnew->NAME)
4398 0 0 if $debug{'sub'}
4399 0 0 unless ($new_cv_fw)
4404 0 0 unless $PERL510
4408 0 0 defined objsym($cv) ? :
4409 0 0 if (my $oldsym = objsym($gv))
4410 0 0 if $debug{'gv'}
4420 0 0 if $verbose
4427 0 0 if ($$gv)
4428 0 0 if ($cvstashname ne $gv->STASH->NAME or $cvname ne $gv->NAME)
4430 0 0 if $verbose
4438 0 0 if ($$root or $cvxsub)
4439 0 0 if $verbose and $debug{'cv'}
4443 0 0 unless ($$root)
4444 0 0 if ($fullname ne 'threads::tid' and $fullname ne 'main::main::' and ($PERL510 and not defined &{"${cvstashname}::AUTOLOAD";}))
4450 0 0 if (exists &$fullname) { }
0 0 elsif ($cv->is_lexsub($gv)) { }
4451 0 0 if $debug{'sub'}
4452 0 0 if $verbose or $debug{'sub'}
4456 0 0 if $debug{'sub'}
4458 0 0 if $debug{'sub'}
4459 0 0 if $verbose or $debug{'sub'}
4461 0 0 if ($sv_ix == $svsect->index and not $new_cv_fw) { }
4463 0 0 if $debug{'cv'}
4473 0 0 if $debug{'cv'} or $verbose
4486 0 0 if ($$root) { }
0 0 elsif ($cv->is_lexsub($gv)) { }
0 0 elsif (not exists &$fullname) { }
4489 0 0 if $debug{'cv'} and $debug{'gv'}
4491 0 0 if ($cv->is_lexsub($gv)) { }
0 0 elsif ($gv and $$gv) { }
4492 0 0 $cv->can('NAME_HEK') ? :
4501 0 0 ${$gv->FORM;} == $$cv ? :
4502 0 0 if ($gvname ne '__ANON__')
4503 0 0 $stashname eq 'main' ? :
4506 0 0 if ($gvname eq 'INIT')
4512 0 0 unless ($ppname)
4521 0 0 unless $startfield
4522 0 0 unless $startfield
4523 0 0 if ($$padlist)
4527 0 0 if $debug{'cv'} and $debug{'gv'}
4532 0 0 if $debug{'cv'} and $debug{'gv'}
4537 0 0 if ($] > 5.017 and $dyn_padlist || $fullname =~ /^(main::END|main::INIT|Attribute::Handlers)/) { }
4550 0 0 if $debug{'sub'}
4556 0 0 if $debug{'sub'}
4558 0 0 if $debug{'cv'}
4559 0 0 if $verbose or $debug{'sub'}
4564 0 0 unless ($new_cv_fw)
4567 0 0 if $PERL514
4568 0 0 if $gv and $$gv and $PERL514
4569 0 0 $PERL510 ? :
4576 0 0 if ($new_cv_fw)
4578 0 0 unless ($cvforward{$sym})
4588 0 0 defined $pv ? :
4590 0 0 defined $pv ? :
4592 0 0 if IsCOW($cv) and not $cow
4593 0 0 if $const_strings
4595 0 0 $PERL510 ? :
4598 0 0 if ($xcv_outside == ${main_cv();} and not $MULTI) { }
0 0 elsif (ref $cv->OUTSIDE eq 'B::CV') { }
4606 0 0 if ($PERL510) { }
0 0 elsif ($PERL56) { }
4610 0 0 $cur ? :
4613 0 0 if ($PERL522) { }
0 0 elsif ($PERL514) { }
4615 0 0 if $CPERL52
4629 0 0 if $xpvc =~ /, \(CV\*\)iv\d/
4630 0 0 if (not $new_cv_fw) { }
4639 0 0 $CPERL52 ? :
4642 0 0 if $debug{'flags'}
4661 0 0 if (not $new_cv_fw) { }
4672 0 0 if $debug{'flags'}
4676 0 0 ref $cv eq 'B::CV' ? :
4677 0 0 ref $cv eq 'B::CV' ? :
4696 0 0 if (not $new_cv_fw) { }
4707 0 0 if $debug{'flags'}
4710 0 0 if ($$cv)
4711 0 0 if ($PERL518 and !$gv || ref $gv eq 'B::SPECIAL') { }
4712 0 0 $cv->can('NAME_HEK') ? :
4713 0 0 unless defined $lexsub
4714 0 0 if $debug{'gv'}
4716 0 0 if (not $PERL56 and $utf8)
4729 0 0 if $gvstash and not $stash
4732 0 0 if $gvstash and $debug{'cv'} and $debug{'gv'}
4735 0 0 if ($cv->OUTSIDE_SEQ)
4737 0 0 if $cop
4747 0 0 if ($new_cv_fw) { }
4753 0 0 if $debug{'flags'}
4765 0 0 if ($new_cv_fw) { }
4772 0 0 if $debug{'flags'}
4778 0 0 if ($CPERL52 and $Config{'uselongdouble'})
4786 0 0 if ($xcv_outside == ${main_cv();} or ref $cv->OUTSIDE eq 'B::CV') { }
0 0 elsif ($] >= 5.017005 and $xcv_outside and $$padlist) { }
4788 0 0 if ($xcv_outside == ${main_cv();}) { }
4791 0 0 if ($$padlist)
4792 0 0 if ($PERL522) { }
0 0 elsif ($] >= 5.017005) { }
4808 0 0 if ($PERL522) { }
4817 0 0 if ($gv and $$gv)
4819 0 0 if $debug{'cv'} and $debug{'gv'}
4821 0 0 if ($PERL514) { }
4827 0 0 if ($CvFLAGS & 1024)
4830 0 0 $debug{'flags'} ? :
0 0 if $debug{'cv'}
4832 0 0 $debug{'flags'} ? :
4839 0 0 if $debug{'cv'} and $debug{'gv'}
4841 0 0 unless ($optimize_cop)
4843 0 0 if ($MULTI) { }
0 0 elsif ($const_strings and length $file) { }
4852 0 0 if ($$stash and ref $stash)
4860 0 0 if $cvname eq 'DESTROY' and $] >= 5.017011
4862 0 0 if $debug{'cv'} and $debug{'gv'}
4865 0 0 if ($magic and $$magic)
4868 0 0 unless ($new_cv_fw)
4869 0 0 $PERL510 ? :
4875 0 0 if ($cur)
4876 0 0 if $debug{'cv'}
4879 0 0 if (defined $pv)
4880 0 0 if ($PERL510 and $cur) { }
0 0 elsif (not $const_strings) { }
4890 0 0 if $xcv_outside
4901 0 0 if (defined $sym) { }
4902 0 0 if $debug{'gv'}
4908 0 0 if $debug{'gv'}
4912 0 0 if $debug{'gv'} and not $PERL56
4913 0 0 if ($PERL510 and not $PERL5257 and $gv->FLAGS & 1073741824)
4914 0 0 if $debug{'gv'}
4921 0 0 if (ref $gv->STASH eq 'B::SPECIAL') { }
4923 0 0 if $debug{'gv'}
4927 0 0 if skip_pkg($package)
4937 0 0 if ($filter and $filter =~ / :pad/) { }
4944 0 0 if ($fullname =~ /^threads::(tid|AUTOLOAD)$/ and not $ITHREADS)
4948 0 0 if ($PERL518 and $fullname =~ /^DynaLoader::dl_( require_symbols| modules| shared_objects| resolve_using| librefs)/x)
4965 0 0 if (not defined $gvname and $is_empty)
4968 0 0 $package eq 'main' ? :
4970 0 0 $] >= 5.008009 && $package eq 'main' ? :
4971 0 0 if $debug{'gv'}
4983 0 0 if ($fullname =~ /^(bytes|utf8)::AUTOLOAD$/)
4987 0 0 unless ($is_empty)
4989 0 0 unless (ref $egv eq 'B::SPECIAL' or ref $egv->STASH eq 'B::SPECIAL')
4991 0 0 if ($$gv != $$egv)
4994 0 0 if $debug{'gv'}
5003 0 0 if ($fullname =~ /^main::STDOUT$/i and $PERL56)
5020 0 0 if ($fullname eq 'main::' . $s)
5027 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])$/) { }
5050 0 0 $notqual ? :
5051 0 0 if ($PERL510 and $gv->isGV_with_GP and not $is_coresym) { }
0 0 elsif (not $is_coresym) { }
5054 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) { }
5057 0 0 $debug{'flags'} ? :
0 0 if $debug{'gv'}
5059 0 0 $package eq 'main' ? :
5068 0 0 $debug{'flags'} ? :
0 0 if $debug{'gv'}
5077 0 0 $debug{'flags'} ? :
0 0 if $debug{'gv'}
5079 0 0 if 0 + $gp
5085 0 0 $debug{'flags'} ? :
0 0 if $debug{'gv'}
5101 0 0 if ($gvflags > 256 and not $PERL510)
5107 0 0 $debug{'flags'} ? :
0 0 $debug{'flags'} ? :
5108 0 0 $gv->LINE > 2147483647 ? :
0 0 unless $is_empty
5117 0 0 unless ($PERL510)
5122 0 0 if ($gv->REFCNT > 1)
5125 0 0 if $is_empty
5128 0 0 if ($gvrefcnt > 1)
5132 0 0 if $debug{'gv'}
5135 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)$/) { }
5150 0 0 if $filter and not $filter =~ / :pad/ and $filter =~ /^\d+$/ and $filter > 0 and $filter < 64
5155 0 0 if (ref $gv eq 'B::STASHGV' and not $gvname =~ /::$/)
5162 0 0 if ($fullname eq 'attributes::bootstrap')
5163 0 0 unless (defined &{$package . '::bootstrap';})
5164 0 0 if $verbose
5168 0 0 if ($] >= 5.011) { }
5178 0 0 if ($PERL522 and $fullname =~ /^POSIX::M/)
5182 0 0 if ($savefields)
5184 0 0 if $debug{'gv'}
5186 0 0 if ($$gvsv and $savefields & 4)
5187 0 0 if $debug{'gv'}
5194 0 0 if ($fullname eq 'main::' . $s)
5198 0 0 if ($PERL5257 and $gvsv->MAGICAL)
5201 0 0 if ($mg->TYPE eq 'B')
5202 0 0 if $debug{'gv'}
5207 0 0 if ($gvname eq 'VERSION' and $xsub{$package} and $gvsv->FLAGS & 2048 and not $PERL56) { }
5208 0 0 if $debug{'gv'}
5218 0 0 if (exists $core_svs->{$gvname})
5219 0 0 if ($gvname eq '\\') { }
5222 0 0 if ref $gvsv eq 'B::PVMG'
5228 0 0 if ($fullname eq 'main::$')
5229 0 0 if $debug{'gv'}
5232 0 0 if $debug{'gv'}
5235 0 0 if ($$gvav and $savefields & 2)
5236 0 0 if $debug{'gv'}
5239 0 0 if ($fullname eq 'main::-')
5245 0 0 if ($$gvhv and $savefields & 1)
5246 0 0 if ($fullname ne 'main::ENV')
5247 0 0 if $debug{'gv'}
5248 0 0 if ($fullname eq 'main::!') { }
0 0 elsif ($fullname eq 'main::+' or $fullname eq 'main::-') { }
5255 0 0 if ($PERL514)
5265 0 0 if ($] >= 5.02 and $fullname eq 'Encode::Encoding') { }
0 0 elsif ($fullname ne 'main::INC') { }
5266 0 0 if $debug{'gv'}
5270 0 0 if exists $tmp_Encode_Encoding{$k}
5285 0 0 if (not $$gvcv and $savefields & 8)
5286 0 0 if $debug{'gv'}
5292 0 0 if $package and exists do { "${package}::" }->{'AUTOLOAD'}
5294 0 0 if $package and exists do { "${package}::" }->{'CLONE'}
5297 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))
5306 0 0 if ($gvcv->XSUB and $oname ne '__ANON__' and $fullname ne $origname) { }
0 0 elsif (not $PERL510 or $gp) { }
5308 0 0 if $debug{'pkg'}
5313 0 0 if $package and defined &{"${package}::bootstrap";}
5320 0 0 if (my $dep = $hack_xs_detect{$package})
5324 0 0 if $debug{'gv'}
5331 0 0 if ($fullname eq 'Internals::V')
5336 0 0 if $debug{'gv'}
5339 0 0 if ($cvsym =~ /get_cv/) { }
0 0 elsif ($cvsym =~ /^(cv|&sv_list)/) { }
5340 0 0 if (not $xsub{$package} and in_static_core($package, $gvname)) { }
0 0 elsif ($xsub{$package}) { }
5343 0 0 if ($in_gv)
5349 0 0 if (/^\Q$sym = $gv_get;\E/)
5352 0 0 if $debug{'gv'}
5359 0 0 if $debug{'gv'}
5360 0 0 $oname ne '__ANON__' ? :
5367 0 0 if ($gvcv->XSUBANY)
5370 0 0 if ($package =~ /^DBI::(common|db|dr|st)/) { }
0 0 elsif ($package eq 'Tie::Hash::NamedCapture') { }
5376 0 0 if $verbose and $debug{'cv'}
5384 0 0 if ($anyptr and $xsubany > 1000) { }
0 0 elsif ($xsubany > 1048576 and $xsubany < 4294967040 || $xsubany > 4294967295) { }
0 0 elsif ($package eq 'Fcntl') { }
5390 0 0 if ($package eq 'POSIX' and $gvname =~ /^is/) { }
0 0 elsif ($package eq 'List::MoreUtils' and $gvname =~ /_iterator$/) { }
5398 0 0 if $verbose
5414 0 0 if $debug{'gv'} or $verbose
5418 0 0 if ($PERL514 and $cvsym and not $cvsym =~ /(get_cv|NULL|lexwarn)/ and $gv->MAGICAL)
5421 0 0 if ($mg->TYPE eq '<')
5424 0 0 unless ($mg->FLAGS & 2)
5431 0 0 if (not $PERL510 or $gp)
5432 0 0 if ($] > 5.009) { }
5438 0 0 if ($stash and $fullname =~ /::$/) { }
5443 0 0 if $file ne 'NULL' and not $optimize_cop
5450 0 0 unless $optimize_cop
5453 0 0 if $debug{'gv'} and not $ITHREADS
5456 0 0 if ($$gvform and $savefields & 16)
5457 0 0 if $debug{'gv'}
5461 0 0 if $PERL510
5462 0 0 if $debug{'gv'}
5465 0 0 if ($$gvio and $savefields & 32)
5466 0 0 if $debug{'gv'}
5467 0 0 if ($fullname =~ /::DATA$/ and $fullname eq 'main::DATA' || $save_data_fh) { }
0 0 elsif ($fullname =~ /::DATA$/ and not $save_data_fh) { }
5473 0 0 if $debug{'gv'}
5476 0 0 if $fh->opened
5485 0 0 if $debug{'gv'}
5492 0 0 if $debug{'gv'}
5499 0 0 if defined $sym
5501 0 0 unless $fullname
5505 0 0 if ($ispadnamelist or $ispadlist) { }
5510 0 0 if $@
5513 0 0 $ispadlist ? :
5514 0 0 if $ispadnamelist
5516 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) { }
5538 0 0 if ($cv and $cv->OUTSIDE and ref $cv->OUTSIDE ne 'B::SPECIAL' and $cv->OUTSIDE->PADLIST)
5540 0 0 if $outid
5548 0 0 if ($cv and $cv->OUTSIDE and ref $cv->OUTSIDE ne 'B::SPECIAL' and $cv->OUTSIDE->PADLIST)
5550 0 0 if $outid
5563 0 0 $flags & 134217728 || $fullname =~ /(::ISA|::INC|curpad_name)$/ ? :
5567 0 0 if ($magic eq 'D')
5571 0 0 $magic eq 'D' ? :
5573 0 0 $av_cow ? :
5575 0 0 if ($av_cow) { }
5576 0 0 unless exists $avcowsect{$n}
5579 0 0 unless exists $avcogsect{$n}
5587 0 0 unless $_->save($fullname . '[' . $count++ . ']')
5590 0 0 unless (is_constant($values[$i]))
5596 0 0 if ($alloc and $n) { }
5599 0 0 $av_cow ? :
0 0 if $debug{'av'}
5605 0 0 $C99 ? :
5611 0 0 if $debug{'av'}
5614 0 0 if $av_init or $av_init2
5624 0 0 if $av_init or $av_init2
5635 0 0 if $av_init or $av_init2
5636 0 0 if $PERL514
5647 0 0 if $av_init or $av_init2
5648 0 0 if $] < 5.009
5656 0 0 if $debug{'flags'}
5657 0 0 unless ($ispadlist or $ispadnamelist)
5663 0 0 if $PERL518 and $av->FLAGS & 1048576
5666 0 0 if ($debug{'av'})
5668 0 0 if $] < 5.009
5673 0 0 if ($fill > -1 and not $magic =~ /D/ and not $static_av) { }
5675 0 0 if ($debug{'av'})
5680 0 0 if ($el->can('FLAGS'))
5681 0 0 if $el->FLAGS & 256
5682 0 0 if $el->FLAGS & 1024
5707 0 0 if ($PERL510 and not $ispadlist)
5708 0 0 if $av->FLAGS & 1073741824
0 0 if ($] < 5.016) { }
5709 0 0 if $av->FLAGS & 1
5711 0 0 unless $_->save($fullname . '[' . $count++ . ']')
5715 0 0 if ($fullname =~ /^(INIT|END)$/ and $values[$i] and ref $array[$i] eq 'B::CV')
5716 0 0 if ($array[$i]->XSUB)
5721 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$/) { }
5752 0 0 $values[$i] ? :
5757 0 0 if ($ispadnamelist) { }
0 0 elsif ($ispadlist) { }
0 0 elsif ($av_init2) { }
0 0 elsif ($av_init) { }
5760 0 0 if $count
5772 0 0 if $count
5786 0 0 if $count
5787 0 0 if ($fill > -1)
5788 0 0 if ($PERL510) { }
5810 0 0 if $count
5811 0 0 $fill < 3 ? :
5812 0 0 if ($fill > -1)
5813 0 0 if $fullname eq 'END'
5815 0 0 if ($MYMALLOC) { }
5828 0 0 if ($PERL510) { }
5839 0 0 $fill < 3 ? :
5841 0 0 if $count
5858 0 0 if $max > -1 and not $static_av
5861 0 0 if $av_cow
5867 0 0 unless $fullname
5869 0 0 if defined $sym
5873 0 0 if ($name)
5876 0 0 if $debug{'hv'}
5885 0 0 if ($adpmroot)
5889 0 0 if ($PERL518 and $hv->FLAGS & 268435456 and length $name)
5891 0 0 if ($hv->Gv_AMG)
5897 0 0 $PERL514 ? :
5898 0 0 if (@enames > 1)
5899 0 0 if $debug{'hv'}
5923 0 0 $utf8 ? :
5936 0 0 unless ($stash)
5938 0 0 if ($PERL510 and (is_using_mro() and mro::get_mro($name) eq 'c3'))
5941 0 0 if ($magic and $magic =~ /c/)
5942 0 0 if $debug{'mg'}
5948 0 0 if skip_pkg($name) or $name eq 'main'
5950 0 0 if $debug{'hv'}
5956 0 0 if ($PERL510) { }
5958 0 0 if $PERL522
5959 0 0 if ($PERL514) { }
5971 0 0 if (not $is_stash and ($] >= 5.01 and $hv->FLAGS & SVf_OOK()))
5993 0 0 if $debug{'flags'}
5996 0 0 if $debug{'hv'}
5999 0 0 $PERL510 && $hv->can('ARRAY_utf8') ? :
6003 0 0 unless $is_stash
6004 0 0 if $PERL518 and $hv->FLAGS & 1048576
6006 0 0 if (@contents) { }
0 0 elsif ($PERL514) { }
6017 0 0 if ref $sv eq 'B::RV' and defined objsym($sv) and $debug{'hv'}
6018 0 0 if ($is_stash) { }
6019 0 0 if (ref $sv eq 'B::GV' and $sv->NAME =~ /::$/) { }
6021 0 0 if $debug{'hv'}
6024 0 0 if $debug{'hv'}
6030 0 0 if $debug{'hv'}
6038 0 0 if ($length)
6040 0 0 $sym =~ /^hv|\(HV/ ? :
6044 0 0 if ($value)
6045 0 0 if not $value =~ /^&sv_list/ or $PERL510 and $] < 5.012
6049 0 0 if $utf8
6052 0 0 if $debug{'hv'}
6053 0 0 if (not $swash_ToCf and $fullname =~ /^utf8::SWASHNEW/ and $cstring eq '"utf8\\034unicore/To/Cf.pl\\0340"' and $cur == 23)
6057 0 0 if $verbose
6063 0 0 unless $PERL56
6070 0 0 if $hv->FLAGS & 134217728
6071 0 0 if ($magic =~ /c/)
6076 0 0 if ($PERL510 and $name and is_using_mro() and mro::get_mro($name) eq 'c3')
6087 0 0 if $verbose
6090 0 0 if ($PERL56) { }
6098 0 0 unless $savINC{'PerlIO.pm'}
6099 0 0 unless $savINC{'PerlIO/scalar.pm'}
6111 0 0 if defined $sym
6113 0 0 unless defined $pv
6115 0 0 if ($pv) { }
6122 0 0 if ($cur) { }
6124 0 0 if IsCOW($io) and not $cow
6129 0 0 if $debug{'sv'} and $] > 5.008
6130 0 0 if ($PERL514) { }
0 0 elsif ($] > 5.011) { }
0 0 elsif ($PERL510) { }
6134 0 0 unless $verbose
6135 0 0 unless $verbose
6146 0 0 $pv_copy_on_grow ? :
6153 0 0 unless $verbose
6154 0 0 unless $verbose
6165 0 0 $pv_copy_on_grow ? :
6172 0 0 unless $verbose
6173 0 0 unless $verbose
6185 0 0 $pv_copy_on_grow ? :
6205 0 0 if $debug{'flags'}
6208 0 0 if ($PERL510 and not $pv_copy_on_grow and $cur)
6214 0 0 if ($$fsym)
6221 0 0 if $fsym
6225 0 0 unless ($PERL56 or $is_DATA)
6237 0 0 if ($io->IsSTD($_) or defined $fd and $fd == -$i)
6242 0 0 if ($perlio_func) { }
6263 0 0 if ($iotype eq "\000" or $iotype eq ' ') { }
0 0 elsif ($iotype =~ /[a>]/) { }
0 0 elsif ($iotype =~ /[<#\+]/) { }
6266 0 0 if $debug{'gv'}
6269 0 0 if $fd >= 3 or $verbose
6271 0 0 $iotype eq '>' ? :
6274 0 0 $fd < 3 ? :
0 0 $fd < 3 ? :
6279 0 0 if $fd >= 3 or $verbose
6284 0 0 if ($io->can('tell') and $tell = $io->tell)
6298 0 0 if ($PERL518)
6300 0 0 if ($stash and $$stash)
6307 0 0 if $debug{'gv'}
6319 0 0 unless $$sv
6326 0 0 if $check
6337 0 0 if ($PERL522)
6343 0 0 if ($CPERL52)
6351 0 0 if $symsect->comment and $verbose
6358 0 0 if ($lines)
6362 0 0 if ($typename eq 'SV*' and $name =~ /^(?:avco[gw])_(\d+)$/) { }
6364 0 0 if $name =~ /^avcow_/
6376 0 0 if ($MULTI) { }
6379 0 0 if ($] > 5.01903) { }
6384 0 0 if ($PERL510)
6390 0 0 if ($] < 5.008008)
6400 0 0 if ($] < 5.008009)
6410 0 0 if ($] < 5.013007)
6417 0 0 if ($] < 5.01301)
6427 0 0 if ($] >= 5.021005 and $] < 5.023)
6445 0 0 if (%init2_remap and not $HAVE_DLFCN_DLOPEN)
6451 0 0 if $decl->comment and $verbose
6457 0 0 if ($lines)
6461 0 0 if ($typename eq 'SV*' and $name =~ /^(?:avco[wg])_(\d+)$/) { }
6463 0 0 if $name =~ /^avcow_/
6468 0 0 if $section->comment and $verbose
6477 0 0 if @{$init0->[-1]{'values'};}
6481 0 0 if $init->comment and $verbose
6483 0 0 if $verbose
6484 0 0 if $init1->comment and $verbose
6487 0 0 if $verbose
6488 0 0 if $init2->comment and $verbose
6491 0 0 if (exists $xsub{$pkg})
6494 0 0 if ($stashfile)
6500 0 0 if ($remap)
6504 0 0 if ($HAVE_DLFCN_DLOPEN) { }
6513 0 0 if (exists $xsub{$pkg})
6514 0 0 if ($HAVE_DLFCN_DLOPEN) { }
6516 0 0 if $^O =~ /bsd/i
6530 0 0 if $verbose
6532 0 0 if ($HAVE_DLFCN_DLOPEN) { }
6553 0 0 if ($verbose)
6555 0 0 $caller eq 'B::CC' ? :
6575 0 0 if ($PERL510 and &IS_MSVC())
6583 0 0 if ($PERL510)
6611 0 0 if ($PERL522)
6639 0 0 if ($padnamesect{$s}->index >= 0)
6652 0 0 if ($PERL510 and not $PERL514)
6662 0 0 if ($B::C::Config::have_HEK_STATIC)
6672 0 0 if ($PERL510 and $] < 5.012 and not $C99)
6703 0 0 if ($PERL512) { }
0 0 elsif ($PERL510) { }
6712 0 0 if ($] == 5.01)
6717 0 0 if ($] >= 5.021001 and not $CPERL52)
6721 0 0 if $gv_index
6726 0 0 if $B::C::REVISION
6730 0 0 if $debug{'flags'} and $DEBUG_LEAKING_SCALARS
6731 0 0 if ($B::C::Config::have_independent_comalloc)
6791 0 0 if ($] < 5.008008)
6807 0 0 if $CPERL51 and $^O ne 'MSWin32'
6811 0 0 if ($av_init2 and $B::C::Config::use_declare_independent_comalloc)
6814 0 0 if ($av_init2)
6817 0 0 if ($last)
6823 0 0 if ($xpvav_sizes[$_] > 0) { }
6828 0 0 if $_ != $last
6829 0 0 unless ($_ + 1) % 30
6836 0 0 if (not $destruct) { }
6856 0 0 if ($] < 5.008009)
6880 0 0 if ($PERL510)
6892 0 0 if ($PERL510)
6904 0 0 if ($] < 5.008009)
6918 0 0 if (not $destruct) { }
7074 0 0 if ($s =~ /\(OP\*\)&unopaux_list/)
7209 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') { }
7231 0 0 if ($ITHREADS or not $MULTI)
7234 0 0 if ($] >= 5.017) { }
0 0 elsif ($] < 5.016 and $ITHREADS) { }
0 0 elsif ($] < 5.016 and not $ITHREADS) { }
7255 0 0 if ($CPERL51)
7256 0 0 $CPERL55 ? :
7259 0 0 if ($CPERL51)
7260 0 0 $CPERL55 ? :
7330 0 0 if ($CPERL51 and $debug{'cv'})
7351 0 0 if $verbose
7358 0 0 if $verbose
7362 0 0 if ($CPERL51 and $^O ne 'MSWin32')
7370 0 0 unless (exists $curINC{$incpack})
7371 0 0 if $debug{'pkg'}
7373 0 0 unless $static_ext{$stashname}
7376 0 0 unless ($xsub{$stashname} =~ /^Dynamic/ or $static_ext{$stashname})
7378 0 0 if $verbose
7393 0 0 if $ENV{'PERLMODS'}
7396 0 0 unless grep {$_ ne $perlmod;} @dl_modules
7400 0 0 unless ($xsub{$c} or $include_package{$c})
7402 0 0 if $verbose and not $skip_package{$c}
7409 0 0 if $verbose and $xsub{$c}
7415 0 0 if $verbose
7423 0 0 if ($stashname eq 'attributes' and $] > 5.011)
7427 0 0 if (not exists $xsub{$stashname} and $include_package{$stashname})
7430 0 0 unless $INC{$incpack}
7431 0 0 unless ($savINC{$incpack})
7435 0 0 if $verbose
7437 0 0 if (exists $xsub{$stashname} and $xsub{$stashname} =~ /^Dynamic/)
7440 0 0 if $xsub{$stashname} ne 'Dynamic'
7445 0 0 if (exists $xsub{$stashname} and $xsub{$stashname} =~ /^Dynamic-/ and $PERL522 || $staticxs)
7450 0 0 if $verbose and $debug{'cv'}
7452 0 0 if ($dl and not $curINC{'DynaLoader.pm'}) { }
0 0 elsif ($xs and not $curINC{'XSLoader.pm'}) { }
7465 0 0 if ($dl)
7469 0 0 if (grep {$_ eq $front;} @dl_modules)
7474 0 0 unless open XS, '>', $outfile . '.lst'
0 0 if ($staticxs)
7478 0 0 if $xs
7479 0 0 if $xs
7481 0 0 if $] < 5.008008
7483 0 0 if (exists $xsub{'Coro::State'} and grep {$_ eq 'Coro::State';} @dl_modules)
7495 0 0 if (exists $xsub{'EV'} and grep {$_ eq 'EV';} @dl_modules)
7505 0 0 if (exists $xsub{$stashname} and $xsub{$stashname} =~ /^Dynamic/) { }
7509 0 0 $] < 5.008008 ? :
7511 0 0 if ($xsub{$stashname} eq 'Dynamic') { }
7513 0 0 if $verbose
7523 0 0 if ($] >= 5.015003 and $stashfile)
7524 0 0 if ($CPERL51)
7534 0 0 if (/$needle/)
7539 0 0 unless ($sofile)
7542 0 0 if ($stashname eq 'Cwd' and not $stashfile =~ /Cwd/)
7557 0 0 if $verbose
7560 0 0 if ($] >= 5.015003) { }
7562 0 0 unless (grep /^DynaLoader$/, &get_isa($stashname))
7566 0 0 if $debug{'gv'}
7570 0 0 if $stashfile
7576 0 0 if ($staticxs)
7580 0 0 if $path
7581 0 0 unless $laststash
7586 0 0 if (m[^(.+/)$sofile$])
7588 0 0 if $verbose
7593 0 0 if $sofile
7594 0 0 if $sofile and $verbose
7600 0 0 if ($PERL522 or $staticxs) { }
7603 0 0 if ($PERL522 and $staticxs) { }
7621 0 0 !$xsub{$stashname} ? :
0 0 if $verbose
7630 0 0 if $xs
7633 0 0 if $staticxs
7639 0 0 if (not defined $module)
7669 0 0 if ($ITHREADS and $] > 5.007)
7692 0 0 unless $PERL56
7693 0 0 if ($] >= 5.008009)
7700 0 0 unless ($PERL510)
7724 0 0 if (not $PERL56 and ${^TAINT})
7748 0 0 if ($use_perl_script_name) { }
7759 0 0 if $^H
7760 0 0 if ${^UNICODE}
7766 0 0 if $; ne "\034"
7767 0 0 if $" ne ' '
7769 0 0 if ($PERL56) { }
7770 0 0 if $,
7771 0 0 if $\
7773 0 0 if $,
7774 0 0 if $\
7776 0 0 if $/ ne "\n"
7777 0 0 if $|
7779 0 0 if $^A
7780 0 0 if $^L ne "\f"
7781 0 0 if $main::: ne " \n-"
7782 0 0 if $^ ne 'STDOUT_TOP'
7784 0 0 if $~ ne 'STDOUT'
7786 0 0 if $%
7787 0 0 unless $- == 0 or $- == 60
7788 0 0 if $= != 60
7791 0 0 if $[
7792 0 0 if ($] < 5.01)
7815 0 0 if $init1->index >= 0
7816 0 0 unless defined $module
7817 0 0 if $init2->index >= 0
7823 0 0 if (not $destruct) { }
7824 0 0 if $verbose
7884 0 0 if $debug{'gv'} and $verbose
7889 0 0 if $package ne 'main' and not $include_package{$package}
7890 0 0 if $package eq 'main' and $name =~ /^([^\w].*|_\<.*|INC|ARGV|SIG|ENV|BEGIN|main::|!)$/
7893 0 0 if $debug{'gv'}
7894 0 0 unless $$cv or $$av or $$sv or $$hv or $gv->IO or $gv->FORM
7895 0 0 if ($$cv and $name eq 'bootstrap' and $cv->XSUB)
7897 0 0 if $debug{'gv'}
7900 0 0 if ($$cv and in_static_core($package, $name) and ref $cv eq 'B::CV' and $cv->XSUB)
7902 0 0 if $debug{'gv'}
7904 0 0 unless ($dumped_package{$package})
7910 0 0 if ($package eq 'B::C')
7911 0 0 if $debug{'gv'}
7914 0 0 if ($fullname =~ /^(bytes|utf8)::AUTOLOAD$/)
7918 0 0 if $fullname eq 'B::walksymtable' or $fullname eq 'B::C::walksymtable'
7921 0 0 if ($name eq 'Config')
7922 0 0 unless $include_package{'Config'}
7924 0 0 unless exists $dumped_package{$package} or $package =~ /::$/
7925 0 0 if $debug{'gv'}
7937 0 0 unless defined $prefix
7942 0 0 if $prefix eq 'utf8::' and defined $symref->{'SWASHNEW'}
7949 0 0 if $a eq $v
7950 0 0 if $b eq $v
7960 0 0 if ($sym =~ /::$/) { }
7962 0 0 if (svref_2object(\*$sym)->NAME ne 'main::' and $sym ne '::' and &$recurse($sym))
7974 0 0 if $dumped_package{$package}
7975 0 0 if $debug{'pkg'} and $verbose
7985 0 0 unless defined $prefix
7987 0 0 if ($sym =~ /::$/)
7990 0 0 if ($sym ne 'main::' and $sym ne '::')
8006 0 0 if $] < 5.01
8007 0 0 if skip_pkg($package)
8008 0 0 if (not $include_package{$package} or $force)
8010 0 0 if $verbose and $debug{'pkg'}
8012 0 0 if grep {$package eq $_;} @IO
8013 0 0 if $package eq 'XSLoader'
8014 0 0 if $package =~ /^B|Carp$/
8016 0 0 if (exists $include_package{$package} and not $include_package{$package} and $savINC{inc_packname($package)}) { }
8020 0 0 $force ? :
0 0 if $verbose
8027 0 0 $force ? :
0 0 if not $include_package{$package} and $verbose and $debug{'pkg'}
8029 0 0 if $] < 5.01
8030 0 0 unless $walkall
8033 0 0 if (@isa)
8037 0 0 if $isa eq $package
8038 0 0 if ($isa eq 'DynaLoader')
8039 0 0 unless (defined &{$package . '::bootstrap';})
8040 0 0 if $verbose
8044 0 0 unless ($include_package{$isa} or $skip_package{$isa})
8046 0 0 if $verbose
8048 0 0 if (exists $include_package{$isa}) { }
8049 0 0 if $verbose
8067 0 0 if ($stashname eq 'UNIVERSAL')
8070 0 0 unless %static_core_pkg
8072 0 0 if $static_core_pkg{$stashname}
8073 0 0 if ($stashname eq 'mro')
8076 0 0 if ($stashname eq 're')
8079 0 0 if ($stashname eq 'PerlIO')
8082 0 0 if ($stashname eq 'PerlIO::Layer')
8093 0 0 if $CPERL51
8094 0 0 if $] < 5.011
8095 0 0 if $] >= 5.01
8096 0 0 unless $PERL514
8100 0 0 if $^O eq 'cygwin'
8101 0 0 if $^O eq 'NetWare'
8102 0 0 if $^O eq 'os2'
8103 0 0 if $^O eq 'VMS'
8111 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)/)
8129 0 0 if (exists $all_bc_deps{$pkg} and $can_delete_pkg)
8137 0 0 if (skip_pkg($package))
8138 0 0 if can_delete($package)
8141 0 0 if $package =~ /::::/
8143 0 0 if $debug{'pkg'}
8144 0 0 if index($package, ' ') != -1
8145 0 0 if index($package, '(') != -1
8146 0 0 if index($package, ')') != -1
8148 0 0 if ($package eq 'mro')
8150 0 0 if (not is_using_mro()) { }
8151 0 0 if $debug{'pkg'}
8154 0 0 if $debug{'pkg'}
8159 0 0 if ($package eq 'attributes' and $] > 5.011 and grep {$_ eq 'attributes';} @DynaLoader::dl_modules)
8165 0 0 if (exists $all_bc_deps{$package})
8172 0 0 if $u =~ /^$p\:\:/ and $include_package{$package}
8177 0 0 if ($] > 5.015001 and exists $all_bc_deps{$package} and not exists $curINC{$incpack} and $savINC{$incpack})
8180 0 0 if $debug{'pkg'}
8184 0 0 if ($package =~ /^DynaLoader|XSLoader$/ and $use_xsloader or not exists $all_bc_deps{$package})
8189 0 0 if ($mainfile)
8193 0 0 if (defined &{$package . '::' . $sym;})
8196 0 0 if ($cv and $cv->can('FILE') and $cv->FILE)
8197 0 0 if $mainfile eq $cv->FILE
8204 0 0 if ($savINC{'overload.pm'} and exists do { $package . '::' }->{'OVERLOAD'} and exists do { $package . '::' }->{'()'})
8212 0 0 if (exists $include_package{$package})
8213 0 0 if (not exists $all_bc_deps{$package}) { }
0 0 elsif (not $include_package{$package}) { }
8216 0 0 if $debug{'pkg'}
8219 0 0 if can_delete($package)
8220 0 0 if $debug{'pkg'}
8222 0 0 if $debug{'pkg'}
8228 0 0 unless ($all_bc_deps{$package})
8233 0 0 if (UNIVERSAL::can($package, $m) and not $package =~ /^(B::C|version|Regexp|utf8|SelectSaver)$/)
8234 0 0 if $package eq 'utf8' and $m eq 'DESTROY'
8237 0 0 if $package =~ /^(Errno|Tie::Hash::NamedCapture)$/ and $m eq 'TIEHASH'
8239 0 0 if $package eq 'Config' and $m =~ /DESTROY|TIEHASH/
8241 0 0 if $package =~ /^(FileHandle|IO::File|IO::Handle)/ and $m eq 'new'
8242 0 0 if $debug{'pkg'}
8247 0 0 if (not $package =~ /^PerlIO/ and can_delete($package))
8250 0 0 if (can_delete($package)) { }
0 0 elsif (not exists $all_bc_deps{$package}) { }
8251 0 0 if $debug{'pkg'}
8254 0 0 if $debug{'pkg'}
8273 0 0 if ($package =~ /^(Config_git\.pl|Config_heavy.pl)$/)
8276 0 0 if ($package eq 'utf8_heavy.pl')
8287 0 225 if $dumped_package{$package}
8289 0 0 if $package =~ /^DynaLoader|XSLoader$/ and defined $use_xsloader and $use_xsloader == 0
8292 0 225 if $^O eq 'MSWin32' and $package =~ /^Carp|File::Basename$/
8294 0 225 if ($curINC{$incpack})
8296 0 0 unless $savINC{$incpack}
8306 0 0 unless ($curINC{$incpack})
8307 0 0 if ($savINC{$incpack}) { }
8308 0 0 if $debug{'pkg'}
8311 0 0 if $package =~ /^DynaLoader|XSLoader$/
8313 0 0 if $debug{'pkg'}
8316 0 0 if (-e $p)
8318 0 0 unless $curINC{$incpack}
8326 0 0 unless defined $prefix
8328 0 0 if $savINC{inc_packname(substr($prefix, 0, -2))}
8331 0 0 unless $ref
8334 0 0 if ($sym =~ /::$/)
8336 0 0 if $debug{'pkg'} and $debug{'walk'}
8339 0 0 if ($sym ne 'main::' and $sym ne '::' and &$recurse($sym))
8349 0 0 if ($debug{'unused'})
8353 0 0 $module ? :
8361 0 0 if ($verbose)
8362 0 0 $sav_debug{'unused'} ? :
8368 0 0 $main eq 'main::' ? :
8369 0 0 $sav_debug{'unused'} ? :
0 0 if $verbose
8373 0 0 if $dumped_package{$_}
8374 0 0 if $verbose
8376 0 0 if (not $walkall) { }
8383 0 0 if $dumped_package{$_}
8385 0 0 if $walkall_cnt++ > 3
8389 0 0 if ($sav_debug{'unused'})
8396 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'})
8400 0 0 unless $savINC{'utf8.pm'}
8408 0 0 if ($] >= 5.013005 and ($warnings and exists $dumped_package{'Carp'}))
8414 0 0 if ($xsub{'EV'} and $dumped_package{'EV'} and $EV::VERSION le '4.21')
8421 0 0 if ($use_xsloader)
8432 0 0 if ($CPERL51)
8440 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}) { }
8452 0 0 unless (exists $curINC{$p})
8457 0 0 if ($debug{'pkg'} and $verbose)
8463 0 0 if ($walkall)
8465 0 0 if $again and $rec_cnt < 2
8470 0 0 unless exists $dumped_package{$pkg}
8472 0 0 if (not exists $curINC{$p} and exists $INC{$p})
8477 0 0 if ($debug{'pkg'} and $verbose)
8478 0 0 if @deleted_inc
8486 0 0 if $verbose or $debug{'pkg'}
8491 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)$/)
8496 0 0 if ($p eq 'warnings::register' and not $warnings)
8501 0 0 if $verbose or $debug{'pkg'}
8515 0 0 unless my $package = shift()
8517 0 0 if grep {$_ eq $package;} @made_c3
8526 0 0 if $verbose or $debug{'pkg'}
8541 0 0 if $verbose
8543 0 0 if $save_sig
8547 0 0 if ($^{'TAINT'})
8551 0 0 $^{'TAINT'} < 0 ? :
8554 0 0 if ($PERL510)
8556 0 0 if (is_using_mro() and mro::get_mro('main') eq 'c3')
8577 0 0 if (defined objsym(svref_2object(\*{'main::!';}))) { }
8579 0 0 unless ($include_package{'Errno'})
8597 0 0 if $verbose
8599 0 0 if $verbose
8605 0 0 if $ro_inc
8606 0 0 if $verbose
8618 0 0 if ($include_package{$p} and exists do { $p . '::' }->{'ISA'} and do { $p . '::' }->{'ISA'})
8621 0 0 if ($PERL510 and (is_using_mro() and mro::get_mro($p) eq 'c3'))
8626 0 0 if @saved_isa and $verbose || $debug{'pkg'}
8634 0 0 if ($] < 5.017005) { }
0 0 elsif ($] < 5.019003) { }
0 0 elsif ($] < 5.022) { }
8652 0 0 if ($] < 5.017)
8654 0 0 if $verbose
8667 0 0 unless skip_pkg($p) or $all_bc_deps{$p} or $pack =~ /(autosplit\.ix|\.al)$/
8669 0 0 if ($debug{'pkg'} and $verbose)
8674 0 0 unless skip_pkg($pack)
8677 0 0 if $debug{'pkg'}
8682 0 0 if $verbose
8683 0 0 if $verbose
8685 0 0 if $PERL512
8688 0 0 unless $PERL56
8690 0 0 $verbose ? :
8703 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)/
8704 0 0 if ref $symtab->{$symbol}
8708 0 0 if ($@ =~ /vendor has not defined/)
8721 0 0 if ($optimize_ppaddr)
8725 0 0 unless $num >= 0
8737 0 0 unless ref $SIG{$k}
8739 0 0 if ref $cvref eq 'B::CV' and $cvref->FILE =~ m[B/C\.pm$]
8742 0 0 unless (@save_sig)
8743 0 0 if $verbose
8744 0 0 if $verbose
8747 0 0 if $verbose
8748 0 0 if $verbose
8766 0 0 if ($] < 5.015003) { }
0 0 elsif ($CPERL51) { }
8784 0 0 if $] < 5.015003
8794 0 0 if $verbose or $debug{'cv'}
8801 0 0 if $debug{'av'}
8808 0 0 if $debug{'av'}
8813 0 0 unless (defined $module)
8819 0 0 index($init_av, '(AV*)') >= 0 ? :
8822 0 0 index($end_av, '(AV*)') >= 0 ? :
8826 0 0 unless defined $module
8829 0 0 if $use_xsloader
8831 0 0 if $check
8832 0 0 if $verbose
8837 0 0 if $stashname =~ /^\s*$/
8848 0 0 if (defined $module) { }
8849 0 0 $module ? :
8853 0 0 if $verbose
8923 0 0 if ($PERL522)
8930 0 0 if ($PERL522)
8951 225 0 unless $include_package{$_}
8958 0 0 if defined &DB::DB
8966 0 0 if $] >= 5.013009
8967 0 0 if $] >= 5.013005
8968 0 0 if $^O ne 'MSWin32' or not $Config{'cc'} =~ /^cl/i
8969 0 0 if $] >= 5.017
8978 0 0 if ($option =~ /^-(.)(.*)/) { }
8986 0 0 if ($opt eq '-' and $arg eq '-')
8990 0 0 if ($opt eq 'w')
8993 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') { }
8998 0 0 if ($arg eq 'full') { }
0 0 elsif ($arg eq 'ufull') { }
9007 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') { }
9015 0 0 if $] > 5.008 and eval 'require B::Flags;'
9025 0 0 if $init
9036 0 0 if ($check) { }
9039 0 0 unless open STDOUT, '>', $arg
9043 0 0 unless $outfile
9060 0 0 if ($arg =~ /\.p[lm]$/) { }
9075 0 0 $no ? :
9076 0 0 if (exists $option_map{$arg}) { }
9084 0 0 if $arg eq ''
9088 0 0 if exists $optimization_map{$i}
9091 0 0 if $verbose
9100 0 0 if (not $B::C::Config::have_independent_comalloc) { }
0 0 elsif ($av_init2 and $av_init) { }
9101 0 0 if ($av_init2) { }
0 0 elsif ($av_init) { }
9110 0 0 if $] >= 5.008 and $] < 5.009004 || $MULTI
9111 0 0 if $] < 5.008 or $^O eq 'MSWin32'
9117 0 0 if (@options) { }