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