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) { } |