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