Branch Coverage

blib/lib/B/C.pm
Criterion Covered Total %
branch 14 3642 0.3


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