| line |
true |
false |
branch |
|
27
|
0 |
0 |
unless defined $args |
|
28
|
0 |
0 |
if ($CPAN::META->has_inst($plugin_proper)) { } |
|
31
|
0 |
0 |
if ($instance{$plugin}->can($hookname)) |
|
45
|
0 |
0 |
unless my $ro = $self->ro |
|
72
|
0 |
1 |
unless defined $s |
|
73
|
0 |
1 |
if (substr($s, -1, 1) eq '.') { } |
|
|
0 |
1 |
elsif ($s =~ tr[/][] == 1 or not $s =~ m[[A-Z]/[A-Z-0-9]{2}/[A-Z-0-9]{2,}/]) { } |
|
75
|
0 |
0 |
unless ($CPAN::META->{'LOCK'} or $$CPAN::Have_warned{"$s is unlocked"}++) |
|
83
|
0 |
0 |
if ($s eq '.') { } |
|
|
0 |
0 |
elsif ('File::Spec'->file_name_is_absolute($s)) { } |
|
|
0 |
0 |
elsif ('File::Spec'->can('rel2abs')) { } |
|
91
|
0 |
0 |
if $CPAN::DEBUG |
|
92
|
0 |
0 |
unless ($CPAN::META->exists("CPAN::Distribution", $s)) |
|
104
|
0 |
0 |
if $s =~ m[^N/A|^Contact Author] |
|
106
|
0 |
0 |
if $CPAN::DEBUG |
|
115
|
0 |
1 |
if (substr($self->id, -1, 1) eq '.') { } |
|
140
|
0 |
0 |
if $CPAN::DEBUG |
|
141
|
0 |
0 |
unless ($local_file = "CPAN::FTP"->localize("authors/id/$norm", $local_wanted)) |
|
152
|
0 |
0 |
if ($self->{'ID'} =~ m[[A-Z]/[A-Z\-]{2}/([A-Z\-]+)/]) |
|
162
|
0 |
1 |
unless $id =~ m[^./../] |
|
206
|
0 |
0 |
if $CPAN::DEBUG |
|
210
|
0 |
0 |
if exists $self->{'incommandcolor'} and $color == 1 and $self->{'incommandcolor'} == $color |
|
212
|
0 |
0 |
if ($depth >= $CPAN::MAX_RECURSION) |
|
214
|
0 |
0 |
if ($e->is_resolvable) { } |
|
222
|
0 |
0 |
if (defined $prereq_pm) |
|
226
|
0 |
0 |
unless $prereq_pm->{'requires'} |
|
227
|
0 |
0 |
unless $prereq_pm->{'build_requires'} |
|
229
|
0 |
0 |
if $pre eq "perl" |
|
231
|
0 |
0 |
unless ($premo = "CPAN::Shell"->expand("Module", $pre)) |
|
239
|
0 |
0 |
if ($color == 0) |
|
262
|
0 |
0 |
if exists $self->{'CONTAINSMODS'} |
|
265
|
0 |
0 |
unless my $mod_file = $mod->cpan_file |
|
266
|
0 |
0 |
unless my $mod_id = $mod->{'ID'} |
|
269
|
0 |
0 |
if ($CPAN::Signal) |
|
273
|
0 |
0 |
if $mod_file eq $dist_id |
|
281
|
0 |
0 |
if exists $self->{'UPLOAD_DATE'} |
|
286
|
0 |
0 |
unless $author |
|
288
|
0 |
0 |
unless @dl |
|
291
|
0 |
0 |
unless $dirent->[1] |
|
301
|
0 |
0 |
unless ($obj->uptodate) |
|
303
|
0 |
0 |
if $CPAN::DEBUG |
|
313
|
0 |
0 |
if defined $id |
|
323
|
0 |
0 |
if (exists $self->{'cleanup_after_install_done'}) |
|
324
|
0 |
0 |
if ($self->{'force_update'}) { } |
|
334
|
0 |
0 |
if (my $why = $self->check_disabled) |
|
342
|
0 |
0 |
if $CPAN::DEBUG |
|
343
|
0 |
0 |
if (exists $self->{'build_dir'} and -d $self->{'build_dir'}) |
|
353
|
0 |
0 |
if $CPAN::DEBUG |
|
354
|
0 |
0 |
if (exists $self->{'build_dir'} and not -d $self->{'build_dir'}) |
|
363
|
0 |
0 |
if $CPAN::DEBUG |
|
364
|
0 |
0 |
UNIVERSAL::can($self->{'unwrapped'}, 'failed') ? : |
|
|
0 |
0 |
if (exists $self->{'unwrapped'} and UNIVERSAL::can($self->{'unwrapped'}, "failed") ? $self->{'unwrapped'}->failed : $self->{'unwrapped'} =~ /^NO/) |
|
381
|
0 |
0 |
if $CPAN::DEBUG |
|
382
|
0 |
0 |
if (my $goto = $self->prefs->{'goto'}) |
|
387
|
0 |
0 |
if (defined(my $sc = $self->shortcut_get)) |
|
394
|
0 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
395
|
0 |
0 |
defined $ENV{'PERL5OPT'} ? : |
|
405
|
0 |
0 |
unless ($self->{'build_dir'} and -d $self->{'build_dir'}) |
|
407
|
0 |
0 |
if ($CPAN::Signal) |
|
412
|
0 |
0 |
if ($CPAN::Signal) |
|
418
|
0 |
0 |
if (exists $self->{'writemakefile'} and ref $self->{'writemakefile'} and $self->{'writemakefile'}->can("failed") and $self->{'writemakefile'}->failed) |
|
432
|
0 |
0 |
if ($CPAN::Signal) |
|
437
|
0 |
0 |
unless ($self->patch) |
|
452
|
0 |
0 |
if $self->is_dot_dist |
|
462
|
0 |
0 |
if $CPAN::DEBUG |
|
463
|
0 |
0 |
unless ($local_file = "CPAN::FTP"->localize("authors/id/$self->{'ID'}", $local_wanted)) |
|
467
|
0 |
0 |
if ($CPAN::Index::DATE_OF_02) |
|
474
|
0 |
0 |
if $CPAN::DEBUG |
|
483
|
0 |
0 |
if $self->is_dot_dist |
|
484
|
0 |
0 |
if ($CPAN::META->has_inst('Digest::SHA')) { } |
|
495
|
0 |
0 |
if $self->is_dot_dist |
|
500
|
0 |
0 |
if $CPAN::DEBUG |
|
502
|
0 |
0 |
unless (mkdir "tmp-$$", 493) |
|
513
|
0 |
0 |
if ($CPAN::Signal) |
|
523
|
0 |
0 |
unless ($ct) |
|
528
|
0 |
0 |
if ($local_file =~ /(\.tar\.(bz2|gz|Z)|\.tgz)(?!\n)\Z/i) { } |
|
|
0 |
0 |
elsif ($local_file =~ /\.zip(?!\n)\Z/i) { } |
|
529
|
0 |
0 |
unless eval {
do {
$ct->gtest
}
} |
|
534
|
0 |
0 |
unless $ct->gtest |
|
540
|
0 |
0 |
unless my $dh = "DirHandle"->new("File::Spec"->curdir) |
|
543
|
0 |
0 |
if (grep {$_ eq "pax_global_header";} @readdir) |
|
556
|
0 |
0 |
if (@readdir == 1 and -d $readdir[0]) { } |
|
562
|
0 |
0 |
unless ($dh2 = "DirHandle"->new($from_dir)) |
|
578
|
0 |
0 |
if (not $userid or $userid eq "N/A") |
|
586
|
0 |
0 |
$CPAN::META->has_usable('Errno') && defined &Errno::EEXIST ? : |
|
591
|
0 |
0 |
if mkdir $packagedir, 511 |
|
592
|
0 |
0 |
if (defined $eexist and $! != $eexist or $suffix == 999) |
|
600
|
0 |
0 |
if -d $from |
|
602
|
0 |
0 |
unless (File::Copy::move($from, $to)) |
|
605
|
0 |
0 |
-e $from ? : |
|
|
0 |
0 |
-e $to ? : |
|
629
|
41 |
0 |
unless defined $filter |
|
632
|
0 |
41 |
unless ($build_dir = $self->{'build_dir'}) |
|
642
|
41 |
0 |
if $has_cm |
|
643
|
41 |
0 |
if $has_cm or $has_pcm |
|
644
|
41 |
0 |
if $has_cm |
|
645
|
41 |
0 |
if $has_cm or $has_pcm |
|
649
|
38 |
63 |
if -f $path |
|
658
|
0 |
0 |
if $CPAN::DEBUG |
|
659
|
0 |
0 |
unless my $build_dir = $self->{'build_dir'} |
|
661
|
0 |
0 |
if $CPAN::DEBUG |
|
662
|
0 |
0 |
unless -f $yaml |
|
665
|
0 |
0 |
unless $CPAN::META->has_inst("Parse::CPAN::Meta") |
|
666
|
0 |
0 |
unless $Parse::CPAN::Meta::VERSION >= "1.40" |
|
670
|
0 |
0 |
unless ($early_yaml) |
|
673
|
0 |
0 |
if $CPAN::DEBUG |
|
674
|
0 |
0 |
if $CPAN::DEBUG and $early_yaml |
|
675
|
0 |
0 |
if (not ref $early_yaml or ref $early_yaml ne "HASH") |
|
688
|
0 |
0 |
if $CPAN::DEBUG |
|
689
|
0 |
0 |
if (my(@prereq) = $self->unsat_prereq("later")) |
|
690
|
0 |
0 |
if ($CPAN::DEBUG) |
|
695
|
0 |
0 |
if ($prereq[0][0] eq 'perl') { } |
|
704
|
0 |
0 |
if (do {
$follow
}) { } |
|
|
0 |
0 |
elsif ($@ and ref $@ and $@->isa('CPAN::Exception::RecursiveDependency')) { } |
|
721
|
0 |
0 |
if $CPAN::DEBUG |
|
723
|
0 |
0 |
unless ($enable_configure_requires) |
|
730
|
0 |
0 |
if $CPAN::DEBUG |
|
731
|
0 |
0 |
unless @prereq |
|
732
|
0 |
0 |
if $CPAN::DEBUG |
|
733
|
0 |
0 |
if ($self->{'configure_requires_later'}) |
|
734
|
0 |
0 |
unless $self->{'configure_requires_later_for'} |
|
735
|
0 |
0 |
if ($self->{'configure_requires_later_for'}{$k} > 1) |
|
738
|
0 |
0 |
if ($p->[0] eq $k) |
|
742
|
0 |
0 |
if $type |
|
748
|
0 |
0 |
if ($prereq[0][0] eq 'perl') { } |
|
759
|
0 |
0 |
if (do {
$follow
}) { } |
|
|
0 |
0 |
elsif ($@ and ref $@ and $@->isa('CPAN::Exception::RecursiveDependency')) { } |
|
776
|
0 |
0 |
unless $self->satisfy_configure_requires |
|
780
|
0 |
0 |
unless ($mpl_exists) |
|
786
|
0 |
0 |
unless my $mpldh = "DirHandle"->new($self->{'build_dir'}) |
|
791
|
0 |
0 |
if (-f "File::Spec"->catfile($self->{'build_dir'}, "Build.PL")) |
|
792
|
0 |
0 |
if ($mpl_exists) { } |
|
793
|
0 |
0 |
if ($CPAN::META->has_inst("Module::Build")) |
|
799
|
0 |
0 |
if fileno Module::Build::Version::DATA |
|
806
|
0 |
0 |
if (lc $prefer_installer eq "rand") |
|
807
|
0 |
0 |
rand() < 0.5 ? : |
|
809
|
0 |
0 |
if (lc $prefer_installer eq 'mb') { } |
|
|
0 |
0 |
elsif ($self->{'archived'} eq 'patch') { } |
|
|
0 |
0 |
elsif (not $mpl_exists) { } |
|
819
|
0 |
0 |
if ($self->{'build_dir'} and $CPAN::Config->{'build_dir_reuse'}) |
|
833
|
0 |
0 |
unless (defined $dir and length $dir) |
|
848
|
0 |
0 |
unless ($sbd eq $cbd) |
|
855
|
0 |
0 |
if ($CPAN::META->has_inst($yaml_module)) { } |
|
881
|
0 |
0 |
if $CPAN::DEBUG |
|
891
|
0 |
0 |
if $CPAN::DEBUG |
|
894
|
0 |
0 |
if $CPAN::DEBUG |
|
895
|
0 |
0 |
if ($patches) |
|
896
|
0 |
0 |
unless @$patches |
|
898
|
0 |
0 |
if $CPAN::DEBUG |
|
900
|
0 |
0 |
unless ($patchbin and length $patchbin) |
|
904
|
0 |
0 |
unless ("MM"->maybe_command($patchbin)) |
|
910
|
0 |
0 |
unless ($stdpatchargs) |
|
913
|
0 |
0 |
unless open FH, $system |
|
917
|
0 |
0 |
if (/^patch\s+([\d\.]+)/) |
|
922
|
0 |
0 |
if ($pversion) { } |
|
928
|
0 |
0 |
@$patches == 1 ? : |
|
932
|
0 |
0 |
if ($patches_dir and not "File::Spec"->file_name_is_absolute($patch)) |
|
934
|
0 |
0 |
if -f $f |
|
936
|
0 |
0 |
unless (-f $patch) |
|
937
|
0 |
0 |
if $CPAN::DEBUG |
|
938
|
0 |
0 |
if (my $trydl = $self->try_download($patch)) { } |
|
953
|
0 |
0 |
if ($ppp eq 'applypatch') { } |
|
959
|
0 |
0 |
if ($Config::Config{'osname'} eq "solaris") |
|
961
|
0 |
0 |
unless $pfiles |
|
962
|
0 |
0 |
unless my(@stat) = stat $file |
|
971
|
0 |
0 |
unless (open $writefh, "|$pcommand") |
|
982
|
0 |
0 |
unless (close $writefh) |
|
1006
|
0 |
0 |
if ($CPAN::Config->{'applypatch'} and /\#\#\#\# ApplyPatch data follows \#\#\#\#/) |
|
1013
|
0 |
0 |
unless /^[\*\+]{3}\s(\S+)/ |
|
1017
|
0 |
0 |
if -f $file |
|
1018
|
0 |
0 |
if $CPAN::DEBUG |
|
1021
|
0 |
0 |
unless $cnt_files |
|
1022
|
0 |
0 |
$cnt_files == $cnt_p0files ? : |
|
1030
|
0 |
0 |
if $CPAN::DEBUG |
|
1036
|
0 |
0 |
if (-f $configure) { } |
|
|
0 |
0 |
elsif (-f 'File::Spec'->catfile($build_dir, 'Makefile')) { } |
|
1048
|
0 |
0 |
if ($cf =~ m[/]) |
|
1053
|
0 |
0 |
unless length $cf |
|
1054
|
0 |
0 |
if (my $crud = $self->_contains_crud($build_dir)) |
|
1069
|
0 |
0 |
if ($self->{'archived'} eq "maybe_pl") |
|
1074
|
0 |
0 |
unless $fh->open(">$mpl") |
|
1094
|
0 |
0 |
unless opendir $dh, $dir |
|
1097
|
0 |
0 |
if $dirent =~ /^\.\.?$/ |
|
1099
|
0 |
0 |
if (-d $path) { } |
|
|
0 |
0 |
elsif (-f $path) { } |
|
1105
|
0 |
0 |
if (@dirs and @files) { } |
|
|
0 |
0 |
elsif (@files > 2) { } |
|
1119
|
0 |
0 |
unless $fh->open($script_file) |
|
1126
|
0 |
0 |
if ($state eq 'poddir' and /^=head\d\s+(\S+)/) { } |
|
|
0 |
0 |
elsif ($state =~ /^(name|prereq)$/) { } |
|
|
0 |
0 |
elsif (/^=cut\b/) { } |
|
1127
|
0 |
0 |
if ($1 eq 'NAME') { } |
|
|
0 |
0 |
elsif ($1 eq 'PREREQUISITES') { } |
|
1133
|
0 |
0 |
if (/^=/) { } |
|
|
0 |
0 |
elsif (/^\s*$/) { } |
|
|
0 |
0 |
elsif ($state eq 'name') { } |
|
|
0 |
0 |
elsif ($state eq 'prereq') { } |
|
1138
|
0 |
0 |
if ($name eq "") |
|
1160
|
0 |
0 |
if (/[\s\'\"]/) { } |
|
1167
|
0 |
0 |
if ($name) |
|
1169
|
0 |
0 |
unless rename $script_file, $to_file |
|
1186
|
0 |
0 |
if ($check_sigs) |
|
1187
|
0 |
0 |
if ($CPAN::META->has_inst('Module::Signature')) { } |
|
1188
|
0 |
0 |
if (-f 'SIGNATURE') { } |
|
1189
|
0 |
0 |
if $CPAN::DEBUG |
|
1191
|
0 |
0 |
if ($rv != Module::Signature::SIGNATURE_OK() and $rv != Module::Signature::SIGNATURE_MISSING()) { } |
|
1215
|
0 |
0 |
if $CPAN::Frontend->can("mysleep") |
|
1218
|
0 |
0 |
if $CPAN::DEBUG |
|
1224
|
0 |
0 |
if $CPAN::DEBUG |
|
1234
|
0 |
0 |
if ($result) { } |
|
1246
|
0 |
0 |
if (eval {
do {
$ct->unzip
}
}) { } |
|
1257
|
0 |
0 |
if ($local_file =~ /\.pm(\.(gz|Z))?(?!\n)\Z/) { } |
|
|
0 |
0 |
elsif ($local_file =~ /\.patch(\.(gz|bz2))?(?!\n)\Z/) { } |
|
1266
|
0 |
0 |
if ($to =~ s/\.(gz|Z)(?!\n)\Z//) { } |
|
1267
|
0 |
0 |
if (eval {
do {
'CPAN::Tarzip'->new($local_file)->gunzip($to)
}
}) { } |
|
1273
|
0 |
0 |
if (File::Copy::cp($local_file, '.')) { } |
|
1296
|
0 |
0 |
if ($^O eq "MacOS") |
|
1301
|
0 |
0 |
if ($CPAN::Config->{'shell'}) { } |
|
1314
|
0 |
0 |
unless ($dir = $self->dir) |
|
1317
|
0 |
0 |
unless ($dir ||= $self->dir) |
|
1333
|
0 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
1335
|
0 |
0 |
defined $ENV{'PERL5OPT'} ? : |
|
1340
|
0 |
0 |
unless (system($shell) == 0) |
|
1366
|
0 |
0 |
if ($cvs_site_perl) |
|
1376
|
0 |
0 |
unless CPAN::Distribution::chdir($dir) |
|
1381
|
0 |
0 |
unless system(@cmd) == 0 |
|
1384
|
0 |
0 |
unless CPAN::Distribution::chdir($pwd) |
|
1392
|
0 |
0 |
if $CPAN::DEBUG |
|
1402
|
0 |
0 |
if $CPAN::DEBUG |
|
1403
|
0 |
0 |
unless $local_file = "CPAN::FTP"->localize($readme, $local_wanted) |
|
1407
|
0 |
0 |
if ($^O eq "MacOS") |
|
1415
|
0 |
0 |
unless $fh_pager->open("|$pager") |
|
1418
|
0 |
0 |
unless $fh_readme->open($local_file) |
|
1435
|
0 |
0 |
if $self->{'CHECKSUM_STATUS'} eq "OK" |
|
1436
|
0 |
0 |
if @e |
|
1446
|
0 |
0 |
if (my $size = -s $lc_want) |
|
1447
|
0 |
0 |
if $CPAN::DEBUG |
|
1450
|
0 |
0 |
if ($stat[9] >= $epoch_starting_support_of_cpan_path) { } |
|
1451
|
0 |
0 |
if ($self->CHECKSUM_check_file($lc_want, 1)) |
|
1460
|
0 |
0 |
unless ($lc_file) |
|
1465
|
0 |
0 |
if ($lc_file) { } |
|
1472
|
0 |
0 |
if ($self->CHECKSUM_check_file($lc_file)) |
|
1482
|
0 |
0 |
if ($rv eq Module::Signature::CANNOT_VERIFY()) |
|
1498
|
0 |
0 |
if ($rv == Module::Signature::SIGNATURE_OK()) { } |
|
1528
|
0 |
0 |
if $CPAN::DEBUG |
|
1531
|
0 |
0 |
if ($check_sigs) |
|
1532
|
0 |
0 |
if ($CPAN::META->has_inst('Module::Signature')) { } |
|
1533
|
0 |
0 |
if $CPAN::DEBUG |
|
1536
|
0 |
0 |
if $CPAN::DEBUG |
|
1544
|
0 |
0 |
if ($check_sigs) { } |
|
1546
|
0 |
0 |
if ($CPAN::META->has_usable('File::Temp')) { } |
|
1555
|
0 |
0 |
unless my $gpg = $CPAN::Config->{'gpg'} |
|
1557
|
0 |
0 |
unless 0 == system($system) |
|
1558
|
0 |
0 |
unless open $fh, $tempfile |
|
1565
|
0 |
0 |
if (open $fh, $chk_file) { } |
|
1576
|
0 |
0 |
if ($@) |
|
1578
|
0 |
0 |
if $@ |
|
1581
|
0 |
0 |
if (not ref $cksum or ref $cksum ne 'HASH') { } |
|
|
0 |
0 |
elsif (exists $cksum->{$basename} and not exists $cksum->{$basename}{'cpan_path'}) { } |
|
|
0 |
0 |
elsif (exists $cksum->{$basename} and substr($self->{'ID'}, 0, length $cksum->{$basename}{'cpan_path'}) ne $cksum->{$basename}{'cpan_path'}) { } |
|
|
0 |
0 |
elsif (exists $cksum->{$basename}{'sha256'}) { } |
|
1589
|
0 |
0 |
unless $answer =~ /^\s*y/i |
|
1599
|
0 |
0 |
unless $answer =~ /^\s*y/i |
|
1613
|
0 |
0 |
unless $answer =~ /^\s*y/i |
|
1617
|
0 |
0 |
if $CPAN::DEBUG |
|
1626
|
0 |
0 |
unless ($eq) |
|
1637
|
0 |
0 |
if ($eq) { } |
|
1666
|
0 |
0 |
if $sloppy |
|
1667
|
0 |
0 |
unless ($self->{'CHECKSUM_STATUS'}) |
|
1676
|
0 |
0 |
unless $answer =~ /^\s*y/i |
|
1686
|
0 |
0 |
if ($CPAN::META->has_inst("Digest::SHA")) |
|
1760
|
0 |
0 |
if $fforce or $method and $phase eq $method |
|
1761
|
0 |
0 |
unless $methodmatch |
|
1763
|
0 |
0 |
if ($phase eq 'get') { } |
|
|
0 |
0 |
elsif ($phase eq 'test') { } |
|
1764
|
0 |
0 |
if (substr($self->id, -1, 1) eq "." and $att =~ /(unwrapped|build_dir|archived)/) |
|
1769
|
0 |
0 |
if ($att eq "build_dir" and $self->{'build_dir'} and $CPAN::META->{'is_tested'}) |
|
1776
|
0 |
0 |
if ($att eq "make_test" and $self->{'make_test'} and $self->{'make_test'}{'COMMANDID'} and $self->{'make_test'}{'COMMANDID'} == $CPAN::CurrentCommandId) |
|
1786
|
0 |
0 |
if ($ldebug or $CPAN::DEBUG) |
|
1792
|
0 |
0 |
if ($method and $method =~ /make|test|install/) |
|
1821
|
0 |
0 |
if ($file =~ / ^ perl
(
-(5\.\d+\.\d+)
|
(5)[._-](00[0-5](?:_[0-4][0-9])?)
)
\.tar[._-](?:gz|bz2)
(?!\n)\Z
/sx) { } |
|
|
0 |
0 |
elsif ($self->cpan_comment and $self->cpan_comment =~ /isa_perl\(.+?\)/) { } |
|
1831
|
0 |
0 |
if ($2) { } |
|
1848
|
0 |
0 |
unless ($self) |
|
1862
|
0 |
0 |
if $CPAN::DEBUG |
|
1863
|
0 |
0 |
if (not $self->{'archived'} or $self->{'archived'} eq "NO") |
|
1867
|
0 |
0 |
if $CPAN::DEBUG |
|
1868
|
0 |
0 |
UNIVERSAL::can($self->{'unwrapped'}, 'failed') ? : |
|
|
0 |
0 |
if (not $self->{'unwrapped'} or UNIVERSAL::can($self->{'unwrapped'}, "failed") ? $self->{'unwrapped'}->failed : $self->{'unwrapped'} =~ /^NO/) |
|
1877
|
0 |
0 |
if $CPAN::DEBUG |
|
1878
|
0 |
0 |
UNIVERSAL::can($self->{'signature_verify'}, 'failed') ? : |
|
|
0 |
0 |
if (not $self->{'force_update'} and exists $self->{'signature_verify'} and UNIVERSAL::can($self->{'signature_verify'}, "failed") ? $self->{'signature_verify'}->failed : $self->{'signature_verify'} =~ /^NO/) |
|
1889
|
0 |
0 |
if $CPAN::DEBUG |
|
1890
|
0 |
0 |
if ($self->{'writemakefile'}) |
|
1891
|
0 |
0 |
UNIVERSAL::can($self->{'writemakefile'}, 'failed') ? : |
|
|
0 |
0 |
if (UNIVERSAL::can($self->{'writemakefile'}, 'failed') ? $self->{'writemakefile'}->failed : $self->{'writemakefile'} =~ /^NO/) { } |
|
1899
|
0 |
0 |
UNIVERSAL::can($self->{'writemakefile'}, 'text') ? : |
|
1909
|
0 |
0 |
if $CPAN::DEBUG |
|
1910
|
0 |
0 |
if (my $later = $self->{'configure_requires_later'}) |
|
1920
|
0 |
0 |
unless $self->get |
|
1923
|
0 |
0 |
if (defined(my $sc = $self->shortcut_prepare)) |
|
1929
|
0 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
1930
|
0 |
0 |
defined $ENV{'PERL5OPT'} ? : |
|
1933
|
0 |
0 |
exists $ENV{'PERL_USE_UNSAFE_INC'} && defined $ENV{'PERL_USE_UNSAFE_INC'} ? : |
|
1937
|
0 |
0 |
if ($CPAN::Signal) |
|
1942
|
0 |
0 |
unless my $builddir = $self->dir |
|
1945
|
0 |
0 |
unless (CPAN::Distribution::chdir($builddir)) |
|
1950
|
0 |
0 |
if ($CPAN::Signal) |
|
1955
|
0 |
0 |
if $CPAN::DEBUG |
|
1959
|
0 |
0 |
unless $self->choose_MM_or_MB |
|
1963
|
0 |
0 |
$self->{'modulebuild'} ? : |
|
|
0 |
0 |
$self->{'configure'} ? : |
|
1968
|
0 |
0 |
if ($CPAN::Config->{'prerequisites_policy'} eq "follow") |
|
1975
|
0 |
0 |
if ($self->prefs->{'pl'}) |
|
1978
|
0 |
0 |
defined $ENV{'PERL'} ? : |
|
1980
|
0 |
0 |
if $CPAN::Config->{'use_prompt_default'} |
|
1981
|
0 |
0 |
if $CPAN::Config->{'use_prompt_default'} |
|
1982
|
0 |
0 |
if ($pl_commandline) { } |
|
|
0 |
0 |
elsif ($self->{'configure'}) { } |
|
|
0 |
0 |
elsif ($self->{'modulebuild'}) { } |
|
1988
|
0 |
0 |
unless my($perl) = $self->perl |
|
1990
|
0 |
0 |
$mbuildpl_arg ? : |
|
1995
|
0 |
0 |
unless my($perl) = $self->perl |
|
2004
|
0 |
0 |
$switch ? : |
|
|
0 |
0 |
$makepl_arg ? : |
|
2011
|
0 |
0 |
if ($self->prefs->{'pl'}) |
|
2014
|
0 |
0 |
if $pl_env |
|
2015
|
0 |
0 |
if (exists $self->{'writemakefile'}) { } |
|
2021
|
0 |
0 |
if ($CPAN::Config->{'inactivity_timeout'}) |
|
2023
|
0 |
0 |
if ($Config::Config{'d_alarm'} and $Config::Config{'d_alarm'} eq 'define') { } |
|
2040
|
0 |
0 |
if ($go_via_alarm) { } |
|
2041
|
0 |
0 |
if ($self->_should_report('pl')) { } |
|
2052
|
0 |
0 |
if (defined($pid = fork)) { } |
|
2053
|
0 |
0 |
if ($pid) { } |
|
2068
|
0 |
0 |
if ($@) |
|
2080
|
0 |
0 |
if (my $expect_model = $self->_prefs_with_expect('pl')) { } |
|
|
0 |
0 |
elsif ($self->_should_report('pl')) { } |
|
2084
|
0 |
0 |
if (not defined $ret and $self->{'writemakefile'} and $self->{'writemakefile'}->failed) |
|
2093
|
0 |
0 |
if (not defined $output or $@) |
|
2105
|
0 |
0 |
if ($ret != 0) |
|
2113
|
0 |
0 |
if (-f 'Makefile' or -f 'Build' or $^O eq 'VMS' and -f 'descrip.mms' || -f 'Build.com') { } |
|
2119
|
0 |
0 |
$self->{'modulebuild'} ? : |
|
2138
|
0 |
0 |
if $CPAN::DEBUG |
|
2139
|
0 |
0 |
if (defined $self->{'make'}) |
|
2140
|
0 |
0 |
UNIVERSAL::can($self->{'make'}, 'failed') ? : |
|
|
0 |
0 |
if (UNIVERSAL::can($self->{'make'}, 'failed') ? $self->{'make'}->failed : $self->{'make'} =~ /^NO/) { } |
|
2144
|
0 |
0 |
if ($self->{'force_update'}) { } |
|
2150
|
0 |
0 |
length $self->{'make'} > 3 ? : |
|
2167
|
0 |
0 |
if (exists $self->{'cleanup_after_install_done'}) |
|
2172
|
0 |
0 |
if $CPAN::DEBUG |
|
2173
|
0 |
0 |
if (my $goto = $self->prefs->{'goto'}) |
|
2187
|
0 |
0 |
if ($self->isa_perl) |
|
2188
|
0 |
0 |
if ($self->called_for ne $self->id and not $self->{'force_update'}) |
|
2216
|
0 |
0 |
unless ($self->prepare) |
|
2221
|
0 |
0 |
if (defined(my $sc = $self->shortcut_make)) |
|
2226
|
0 |
0 |
if ($CPAN::Signal) |
|
2232
|
0 |
0 |
unless my $builddir = $self->dir |
|
2235
|
0 |
0 |
unless (CPAN::Distribution::chdir($builddir)) |
|
2241
|
0 |
0 |
$self->{'modulebuild'} ? : |
|
2245
|
0 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
2246
|
0 |
0 |
defined $ENV{'PERL5OPT'} ? : |
|
2249
|
0 |
0 |
exists $ENV{'PERL_USE_UNSAFE_INC'} && defined $ENV{'PERL_USE_UNSAFE_INC'} ? : |
|
2253
|
0 |
0 |
if ($CPAN::Signal) |
|
2259
|
0 |
0 |
if ($^O eq "MacOS") |
|
2267
|
0 |
0 |
if defined $v |
|
2272
|
0 |
0 |
if ($@) |
|
2275
|
0 |
0 |
unless ($satisfied) |
|
2279
|
0 |
0 |
if ($CPAN::Signal) |
|
2286
|
0 |
0 |
unless (CPAN::Distribution::chdir($builddir)) |
|
2294
|
0 |
0 |
if ($self->prefs->{'make'}) |
|
2297
|
0 |
0 |
defined $ENV{'PERL'} ? : |
|
2298
|
0 |
0 |
if $CPAN::Config->{'use_prompt_default'} |
|
2299
|
0 |
0 |
if $CPAN::Config->{'use_prompt_default'} |
|
2300
|
0 |
0 |
if ($make_commandline) { } |
|
2304
|
0 |
0 |
if ($self->{'modulebuild'}) { } |
|
2305
|
0 |
0 |
unless (-f "Build" or $^O eq "VMS" and -f "Build.com") |
|
2317
|
0 |
0 |
$make_arg ? : |
|
2323
|
0 |
0 |
if ($self->prefs->{'make'}) |
|
2326
|
0 |
0 |
if $make_env |
|
2329
|
0 |
0 |
if ($expect_model and @{$expect_model->{'talk'};}) |
|
2331
|
0 |
0 |
if ($can_expect) { } |
|
2339
|
0 |
0 |
if ($want_expect) { } |
|
|
0 |
0 |
elsif ($self->_should_report('make')) { } |
|
2352
|
0 |
0 |
if $rc == -1 |
|
2355
|
0 |
0 |
if ($system_ok) { } |
|
2362
|
0 |
0 |
if defined $system_err |
|
2389
|
0 |
0 |
if $CPAN::DEBUG |
|
2390
|
0 |
0 |
if ($CPAN::META->has_inst('Expect')) { } |
|
2394
|
0 |
0 |
if ($expect_model->{'mode'} eq 'deterministic') { } |
|
|
0 |
0 |
elsif ($expect_model->{'mode'} eq 'anyorder') { } |
|
2430
|
0 |
0 |
if ($match[2]) |
|
2434
|
0 |
0 |
if ($eof) { } |
|
|
0 |
0 |
elsif ($ran_into_timeout) { } |
|
2443
|
0 |
0 |
if ($but =~ /$regex/) |
|
2447
|
0 |
0 |
unless $reuse |
|
2454
|
0 |
0 |
if ($have_waited < $timeout) |
|
2475
|
0 |
0 |
if $CPAN::DEBUG |
|
2491
|
0 |
0 |
if ($ran_into_timeout) { } |
|
|
0 |
0 |
elsif ($ran_into_eof) { } |
|
2508
|
0 |
0 |
if ($CPAN::META->has_inst('CPAN::Kwalify') and $CPAN::META->has_inst('Kwalify')) { } |
|
2514
|
0 |
0 |
if ($@) |
|
2518
|
0 |
0 |
if $CPAN::DEBUG |
|
2528
|
0 |
0 |
if $prefs_dir =~ /^\s*$/ |
|
2530
|
0 |
0 |
if ($@) |
|
2535
|
0 |
0 |
unless my $dh = "DirHandle"->new($prefs_dir) |
|
2537
|
0 |
0 |
unless @files |
|
2542
|
0 |
0 |
if ($CPAN::META->has_inst($yaml_module)) { } |
|
2546
|
0 |
0 |
if ($CPAN::META->has_inst("Data::Dumper")) |
|
2549
|
0 |
0 |
if ($CPAN::META->has_inst("Storable")) |
|
2552
|
0 |
0 |
if (@fallbacks) { } |
|
2554
|
0 |
0 |
unless ($self->{'have_complained_about_missing_yaml'}++) |
|
2559
|
0 |
0 |
unless ($self->{'have_complained_about_missing_yaml'}++) |
|
2567
|
0 |
0 |
if ($result->is_warning) { } |
|
|
0 |
0 |
elsif ($result->is_fatal) { } |
|
2584
|
0 |
0 |
unless ($pref->has_any_match) |
|
2588
|
0 |
0 |
unless ($pref->has_valid_subkeys) |
|
2605
|
0 |
0 |
if ($pref->matches($arg)) |
|
2621
|
0 |
0 |
if (exists $self->{'negative_prefs_cache'} and $self->{'negative_prefs_cache'} != $CPAN::CurrentCommandId) |
|
2628
|
0 |
0 |
if (exists $self->{'prefs'}) |
|
2631
|
0 |
0 |
if ($CPAN::Config->{'prefs_dir'}) |
|
2632
|
0 |
0 |
if $CPAN::DEBUG |
|
2635
|
0 |
0 |
if $CPAN::DEBUG |
|
2636
|
0 |
0 |
if ($prefs) |
|
2647
|
0 |
0 |
if $filler2 < 0 |
|
2666
|
0 |
0 |
if ($prefs and exists $prefs->{$phase} and exists $prefs->{$phase}{'args'} and $prefs->{$phase}{'args'}) |
|
2687
|
0 |
0 |
if ($self->{'modulebuild'}) { } |
|
2710
|
0 |
0 |
if ($self) { } |
|
2735
|
0 |
0 |
unless $mimc |
|
2741
|
0 |
0 |
if $^O eq "MSWin32" |
|
2752
|
0 |
0 |
if (exists $prereq_pm->{$rt}{$prereq}) |
|
2756
|
0 |
0 |
if not $av or "CPAN::Version"->vlt($av, $prereq_pm->{$rt}{$prereq}) |
|
2758
|
0 |
0 |
if (exists $$prereq_pm{"opt_$rt"}{$prereq}) |
|
2770
|
0 |
0 |
unless @prereq_tuples |
|
2775
|
0 |
0 |
if ($p->[1] =~ /^(r|c)$/) { } |
|
|
0 |
0 |
elsif ($p->[1] =~ /^(b)$/) { } |
|
2779
|
0 |
0 |
if ($reqtype =~ /^(r|c)$/) { } |
|
2796
|
0 |
0 |
length $unsat > length $pretty_id ? : |
|
2812
|
0 |
0 |
$self->is_locally_optional(undef, $_->[0]) ? : |
|
2815
|
0 |
0 |
if ($CPAN::Config->{'prerequisites_policy'} eq 'follow') { } |
|
|
0 |
0 |
elsif ($CPAN::Config->{'prerequisites_policy'} eq 'ask') { } |
|
2828
|
0 |
0 |
if ($follow) |
|
2834
|
0 |
0 |
if ($optional and $self->is_locally_optional(undef, $prereq)) { } |
|
2843
|
0 |
0 |
if ($any) { } |
|
2844
|
0 |
0 |
unless ($optional) |
|
2858
|
0 |
0 |
if (@to_queue_mand) { } |
|
|
0 |
0 |
elsif (@to_queue_opt) { } |
|
2873
|
0 |
0 |
unless my $optf = $meta_yml->{'optional_features'} |
|
2874
|
0 |
0 |
if (not ref $optf or ref $optf ne "HASH") |
|
2878
|
0 |
0 |
unless my $wantf = $self->prefs->{'features'} |
|
2879
|
0 |
0 |
if (not ref $wantf or ref $wantf ne "ARRAY") |
|
2885
|
0 |
0 |
if (my $f = $optf->{$wf}) { } |
|
2893
|
0 |
0 |
unless my $reqhash = $f->{$reqtype} |
|
2911
|
0 |
0 |
unless ($CPAN::META->has_usable("CPAN::Meta::Requirements")) |
|
2913
|
0 |
0 |
if (defined $CPAN::Meta::Requirements::VERSION) |
|
2918
|
0 |
0 |
if ($self->{'CALLED_FOR'}) |
|
2919
|
0 |
0 |
if ($self->{'CALLED_FOR'} =~ /^(
CPAN::Meta::Requirements
|CPAN::DistnameInfo
|version
|parent
|ExtUtils::MakeMaker
|Test::Harness
)$/x) |
|
2941
|
0 |
0 |
if ($slot eq 'configure_requires_later') { } |
|
|
0 |
0 |
elsif ($slot eq 'later') { } |
|
2950
|
0 |
0 |
if (-f "Build.PL" and not -f "File::Spec"->catfile($self->{'build_dir'}, "Makefile.PL") and not $merged->requirements_for_module("Module::Build") and not $CPAN::META->has_inst("Module::Build")) |
|
2967
|
0 |
0 |
unless $prereq_pm_0->{$reqtype} |
|
2969
|
0 |
0 |
unless $dep->{$reqtype} |
|
3000
|
0 |
0 |
unless ($CPAN::META->has_usable("CPAN::Meta::Requirements")) |
|
3006
|
0 |
0 |
if $CPAN::DEBUG |
|
3010
|
0 |
0 |
if ($need_module eq 'perl') { } |
|
3014
|
0 |
0 |
if (CPAN::_sqlite_running()) |
|
3022
|
0 |
0 |
if ($nmo->uptodate) |
|
3026
|
0 |
0 |
unless ($accepts) |
|
3043
|
0 |
0 |
if ($sufficient and !defined($need_version) || $need_version eq '0' || $need_version eq 'undef') |
|
3049
|
0 |
0 |
unless ($nmo->inst_deprecated) |
|
3062
|
0 |
0 |
if ($available_file) |
|
3070
|
0 |
0 |
if ($inst_file and $available_file eq $inst_file and $nmo->inst_deprecated) { } |
|
|
0 |
0 |
elsif ($self->{'reqtype'} and $self->{'reqtype'} =~ /^(r|c)$/ and exists $prereq_pm->{'requires'}{$need_module} || exists $prereq_pm->{'opt_requires'}{$need_module} and $nmo and not $inst_file) { } |
|
3079
|
0 |
0 |
if ($fulfills_all_version_rqs and $nmo->id =~ /^CPANPLUS(?:::Dist::Build)$/) |
|
3100
|
0 |
0 |
if ($need_distro->{'install'} and $need_distro->{'install'}->failed and $need_distro->{'install'}->text =~ /is only/) |
|
3110
|
0 |
0 |
if $fulfills_all_version_rqs |
|
3114
|
0 |
0 |
if ($need_module eq "perl") |
|
3118
|
0 |
0 |
if $CPAN::DEBUG |
|
3119
|
0 |
0 |
if (my $sponsoring = $self->{'sponsored_mods'}{$need_module}++) |
|
3149
|
0 |
0 |
unless $do |
|
3150
|
0 |
0 |
if ("CPAN::Version"->vcmp($need_version, $nmo->ro->{'CPAN_VERSION'}) > 0) |
|
3167
|
0 |
0 |
if ($do->{$nosayer}) |
|
3170
|
0 |
0 |
UNIVERSAL::can($do->{$nosayer}, 'failed') ? : |
|
|
0 |
0 |
if (UNIVERSAL::can($do->{$nosayer}, 'failed') ? $do->{$nosayer}->failed : $do->{$nosayer} =~ /^NO/) { } |
|
3173
|
0 |
0 |
if ($nosayer eq "make_test" and $do->{'make_test'}{'COMMANDID'} != $CPAN::CurrentCommandId) |
|
3180
|
0 |
0 |
if ($self->is_locally_optional($prereq_pm, $need_module)) { } |
|
3195
|
0 |
0 |
if ($nosayer =~ /^(install|make_test)$/) |
|
3214
|
0 |
0 |
if (do {
exists $prereq_pm->{'opt_requires'}{$need_module} unless exists $prereq_pm->{'requires'}{$need_module}
}) { } |
|
|
0 |
0 |
elsif ($slot eq 'configure_requires_later') { } |
|
3215
|
0 |
0 |
unless exists $prereq_pm->{'requires'}{$need_module} |
|
3235
|
0 |
0 |
if $CPAN::DEBUG |
|
3241
|
0 |
0 |
if $CPAN::DEBUG |
|
3251
|
0 |
0 |
if ($rq =~ s/>=\s*//) { } |
|
|
0 |
0 |
elsif ($rq =~ s/>\s*//) { } |
|
|
0 |
0 |
elsif ($rq =~ s/!=\s*//) { } |
|
|
0 |
0 |
elsif ($rq =~ /<=?\s*/) { } |
|
|
0 |
0 |
elsif ($rq =~ s/==\s*//) { } |
|
3254
|
0 |
0 |
if ("CPAN::Version"->vgt($available_version, $rq)) |
|
3260
|
0 |
0 |
if ('CPAN::Version'->vcmp($available_version, $rq)) { } |
|
3274
|
0 |
0 |
if ('CPAN::Version'->vcmp($available_version, $rq)) { } |
|
3282
|
0 |
0 |
unless ("CPAN::Version"->vgt($rq, $available_version)) |
|
3285
|
0 |
0 |
if $CPAN::DEBUG |
|
3295
|
0 |
0 |
if $CPAN::DEBUG |
|
3303
|
2 |
28 |
unless my $meta_file = $self->pick_meta_file |
|
3306
|
0 |
28 |
unless $CPAN::META->has_usable("CPAN::Meta") |
|
3307
|
0 |
28 |
unless my $meta = eval {
do {
"CPAN::Meta"->load_file($meta_file)
}
} |
|
3311
|
0 |
28 |
if ($meta_file eq "META.yml" and $meta->generated_by =~ /ExtUtils::MakeMaker version ([\d\._]+)/) |
|
3315
|
0 |
0 |
if $eummv < "6.2501" |
|
3326
|
0 |
0 |
if $CPAN::DEBUG |
|
3327
|
0 |
0 |
unless $meta_file |
|
3330
|
0 |
0 |
if ($@ or not $yaml) |
|
3334
|
0 |
0 |
if (defined $yaml and !ref($yaml) || ref $yaml ne 'HASH') |
|
3338
|
0 |
0 |
if $CPAN::DEBUG |
|
3340
|
0 |
0 |
if $CPAN::DEBUG and $yaml |
|
3342
|
0 |
0 |
if ($meta_file =~ /MYMETA\.yml/) |
|
3346
|
0 |
0 |
if (defined $yaml->{'dynamic_config'} and not $yaml->{'dynamic_config'}) |
|
3356
|
0 |
0 |
unless my $meta_file = $self->pick_meta_file("^META") |
|
3357
|
0 |
0 |
if (my $meta_obj = $self->read_meta) { } |
|
3360
|
0 |
0 |
$cr ? : |
|
3373
|
0 |
0 |
unless $self->{'writemakefile'} or $self->{'modulebuild'} |
|
3374
|
0 |
8 |
unless ($self->{'build_dir'}) |
|
3378
|
0 |
8 |
$^O eq 'VMS' ? : |
|
3379
|
0 |
8 |
$^O eq 'VMS' ? : |
|
3380
|
0 |
8 |
unless -f $makefile or -f $buildfile |
|
3383
|
0 |
8 |
if $CPAN::DEBUG |
|
3388
|
8 |
0 |
if ($meta_obj and not $meta_obj->dynamic_config) { } |
|
|
0 |
0 |
elsif (my $yaml = $self->read_yaml) { } |
|
3403
|
0 |
8 |
if ($CPAN::Config->{'recommends_policy'}) |
|
3409
|
0 |
8 |
if ($CPAN::Config->{'suggests_policy'}) |
|
3420
|
0 |
0 |
if ($CPAN::Config->{'recommends_policy'}) |
|
3423
|
0 |
0 |
unless ref $req eq "HASH" and %$req |
|
3424
|
0 |
0 |
if ($req) |
|
3425
|
0 |
0 |
if ($yaml->{'generated_by'} and $yaml->{'generated_by'} =~ /ExtUtils::MakeMaker version ([\d\._]+)/) |
|
3428
|
0 |
0 |
if ($eummv < "6.2501") |
|
3437
|
0 |
0 |
unless $req |
|
3439
|
0 |
0 |
unless defined $v |
|
3440
|
0 |
0 |
if ($v =~ /\d/) { } |
|
|
0 |
0 |
elsif ($k =~ /[A-Za-z]/ and $v =~ /[A-Za-z]/ and $CPAN::META->exists('CPAN::Module', $v)) { } |
|
3455
|
0 |
0 |
if $do_replace |
|
3463
|
0 |
8 |
unless ($req or $breq) |
|
3465
|
0 |
0 |
unless ($build_dir = $self->{'build_dir'}) |
|
3470
|
0 |
0 |
if (-f $makefile and $fh = "FileHandle"->new("<$makefile\000")) |
|
3473
|
0 |
0 |
if $CPAN::DEBUG |
|
3476
|
0 |
0 |
if /MakeMaker post_initialize section/ |
|
3480
|
0 |
0 |
unless $p |
|
3492
|
0 |
0 |
if (defined $req->{$m}) |
|
3495
|
0 |
0 |
if ($n =~ /^q\[(.*?)\]$/) |
|
3498
|
0 |
0 |
if (not $prevn or "CPAN::Version"->vlt($prevn, $n)) |
|
3506
|
0 |
8 |
unless ($req or $breq) |
|
3507
|
0 |
0 |
unless my $build_dir = $self->{'build_dir'} |
|
3509
|
0 |
0 |
if (-f $buildfile) |
|
3510
|
0 |
0 |
if $CPAN::DEBUG |
|
3512
|
0 |
0 |
if (-f $build_prereqs) |
|
3513
|
0 |
0 |
if $CPAN::DEBUG |
|
3515
|
0 |
0 |
unless open FH, $build_prereqs |
|
3522
|
0 |
0 |
if ($@) { } |
|
3531
|
8 |
0 |
if ($req or $breq or $opt_req or $opt_breq) |
|
3547
|
0 |
0 |
if $CPAN::DEBUG |
|
3549
|
0 |
0 |
if ($self->{'badtestcnt'} > 0) |
|
3551
|
0 |
0 |
if $CPAN::DEBUG |
|
3556
|
0 |
0 |
if $CPAN::DEBUG |
|
3558
|
0 |
0 |
if $self->{$slot} |
|
3561
|
0 |
0 |
if $CPAN::DEBUG |
|
3562
|
0 |
0 |
if ($self->{'make_test'}) |
|
3563
|
0 |
0 |
UNIVERSAL::can($self->{'make_test'}, 'failed') ? : |
|
|
0 |
0 |
if (UNIVERSAL::can($self->{'make_test'}, 'failed') ? $self->{'make_test'}->failed : $self->{'make_test'} =~ /^NO/) { } |
|
3568
|
0 |
0 |
if (UNIVERSAL::can($self->{'make_test'}, "commandid") and $self->{'make_test'}->commandid == $CPAN::CurrentCommandId) |
|
3578
|
0 |
0 |
if ($self->tested_ok_but_not_installed) |
|
3585
|
0 |
0 |
if ($self->{'notest'}) |
|
3598
|
0 |
0 |
unless $self->{'writemakefile'} or $self->{'modulebuild'} |
|
3599
|
0 |
0 |
unless ($self->{'build_dir'}) |
|
3604
|
0 |
0 |
if $CPAN::DEBUG |
|
3607
|
0 |
0 |
unless ($build_dir = $self->{'build_dir'}) |
|
3613
|
0 |
0 |
if (-f $makefile and $fh = "FileHandle"->new("<$makefile\000")) |
|
3616
|
0 |
0 |
if $CPAN::DEBUG |
|
3619
|
0 |
0 |
if /MakeMaker post_initialize section/ |
|
3623
|
0 |
0 |
unless $p |
|
3627
|
0 |
0 |
if ($p2 =~ /^q\[(.+)\]/) |
|
3633
|
0 |
0 |
if @exe_files |
|
3635
|
0 |
0 |
if (-f $buildparams) |
|
3636
|
0 |
0 |
if $CPAN::DEBUG |
|
3639
|
0 |
0 |
if (my $reftype = ref $sf) { } |
|
|
0 |
0 |
elsif (defined $sf) { } |
|
3640
|
0 |
0 |
if ($reftype eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($reftype eq 'HASH') { } |
|
3664
|
0 |
0 |
if (exists $self->{'cleanup_after_install_done'}) |
|
3669
|
0 |
0 |
if $CPAN::DEBUG |
|
3670
|
0 |
0 |
if (my $goto = $self->prefs->{'goto'}) |
|
3675
|
0 |
0 |
unless ($self->make) |
|
3680
|
0 |
0 |
if (defined(my $sc = $self->shortcut_test)) |
|
3685
|
0 |
0 |
if ($CPAN::Signal) |
|
3691
|
0 |
0 |
$self->{'modulebuild'} ? : |
|
3695
|
0 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
3697
|
0 |
0 |
defined $ENV{'PERL5OPT'} ? : |
|
3700
|
0 |
0 |
exists $ENV{'PERL_USE_UNSAFE_INC'} && defined $ENV{'PERL_USE_UNSAFE_INC'} ? : |
|
3703
|
0 |
0 |
if $CPAN::Config->{'use_prompt_default'} |
|
3704
|
0 |
0 |
if $CPAN::Config->{'use_prompt_default'} |
|
3706
|
0 |
0 |
if ($run_allow_installing_within_test) |
|
3708
|
0 |
0 |
unless ($allow_installing) |
|
3720
|
0 |
0 |
unless my $builddir = $self->dir |
|
3723
|
0 |
0 |
unless (CPAN::Distribution::chdir($builddir)) |
|
3729
|
0 |
0 |
if $CPAN::DEBUG |
|
3732
|
0 |
0 |
if ($^O eq "MacOS") |
|
3738
|
0 |
0 |
if ($self->{'modulebuild'}) |
|
3741
|
0 |
0 |
if ("CPAN::Version"->vlt($v, "2.62")) |
|
3745
|
0 |
0 |
unless ($self->id eq $thm->distribution->id) |
|
3755
|
0 |
0 |
unless ($self->{'force_update'}) |
|
3758
|
0 |
0 |
if ($CPAN::Config->{'trust_test_report_history'} and $CPAN::META->has_inst("CPAN::Reporter::History") and $have_tested_fcn = "CPAN::Reporter::History"->can("have_tested")) |
|
3761
|
0 |
0 |
if (my(@reports) = &$have_tested_fcn("dist", $self->base_id)) |
|
3763
|
0 |
0 |
if ($reports[-1]{'grade'} =~ /^(?:PASS|UNKNOWN)$/) { } |
|
|
0 |
0 |
elsif ($reports[-1]{'grade'} =~ /^(?:FAIL|NA)$/) { } |
|
3767
|
0 |
0 |
if ($self->tested_ok_but_not_installed) |
|
3787
|
0 |
0 |
exists $prefs_test->{'commandline'} ? : |
|
|
0 |
0 |
if (my $commandline = exists $prefs_test->{'commandline'} ? $prefs_test->{'commandline'} : '') { } |
|
|
0 |
0 |
elsif ($self->{'modulebuild'}) { } |
|
3793
|
0 |
0 |
unless (-e "Build" or $^O eq "VMS" and -e "Build.com") |
|
3801
|
0 |
0 |
$make_test_arg ? : |
|
3807
|
0 |
0 |
if ($self->prefs->{'test'}) |
|
3810
|
0 |
0 |
if $test_env |
|
3813
|
0 |
0 |
if ($expect_model and @{$expect_model->{'talk'};}) |
|
3815
|
0 |
0 |
if ($can_expect) { } |
|
3825
|
0 |
0 |
if (not defined $pid) { } |
|
|
0 |
0 |
elsif ($pid) { } |
|
3830
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
3834
|
0 |
0 |
if ($CPAN::Signal) |
|
3842
|
0 |
0 |
unless $^O eq "MSWin32" |
|
3845
|
0 |
0 |
if ($want_expect) { } |
|
|
0 |
0 |
elsif ($self->_should_report('test')) { } |
|
3846
|
0 |
0 |
if ($self->_should_report("test")) |
|
3863
|
0 |
0 |
if ($tests_ok) { } |
|
3864
|
0 |
0 |
if ($but) |
|
3878
|
0 |
0 |
if ($but) { } |
|
|
0 |
0 |
elsif ($self->{'force_update'}) { } |
|
|
0 |
0 |
elsif ($CPAN::Signal) { } |
|
3904
|
0 |
0 |
$self->{'force_update'} ? : |
|
3913
|
0 |
0 |
unless $self->{'sponsored_mods'}{$m} > 0 |
|
3914
|
0 |
0 |
unless my $m_obj = "CPAN::Shell"->expand("Module", $m) |
|
3920
|
0 |
0 |
if ($available_version and not 'CPAN::Version'->vlt($available_version, $self->{'prereq_pm'}{$m})) { } |
|
|
0 |
0 |
elsif ($available_file and !$self->{'prereq_pm'}{$m} || $self->{'prereq_pm'}{$m} == 0) { } |
|
3923
|
0 |
0 |
if $CPAN::DEBUG |
|
3933
|
0 |
0 |
if $CPAN::DEBUG |
|
3936
|
0 |
0 |
unless $self->is_locally_optional(undef, $m) |
|
3941
|
0 |
0 |
if (@prereq) |
|
3944
|
0 |
0 |
$cnt == 1 ? : |
|
3952
|
0 |
0 |
unless my $prefs = $self->prefs |
|
3953
|
0 |
0 |
unless my $where_prefs = $prefs->{$where} |
|
3954
|
0 |
0 |
if ($where_prefs->{'expect'}) { } |
|
|
0 |
0 |
elsif ($where_prefs->{'eexpect'}) { } |
|
3969
|
0 |
0 |
$self->{'modulebuild'} ? : |
|
3971
|
0 |
0 |
unless (exists $self->{'archived'}) |
|
3976
|
0 |
0 |
unless (exists $self->{'build_dir'}) |
|
3980
|
0 |
0 |
if (exists $self->{'writemakefile'} and $self->{'writemakefile'}->failed) |
|
3988
|
0 |
0 |
if exists $self->{'make_clean'} and $self->{'make_clean'} eq "YES" |
|
3990
|
0 |
0 |
if @e |
|
3992
|
0 |
0 |
unless CPAN::Distribution::chdir("$self->{'build_dir'}") |
|
3994
|
0 |
0 |
if $CPAN::DEBUG |
|
3996
|
0 |
0 |
if ($^O eq "MacOS") |
|
4002
|
0 |
0 |
if ($self->{'modulebuild'}) { } |
|
4003
|
0 |
0 |
unless (-f "Build") |
|
4015
|
0 |
0 |
if ($system_ok) { } |
|
4052
|
0 |
0 |
if $CPAN::DEBUG |
|
4053
|
0 |
0 |
if ($self->prefs->{'disabled'} and not $self->{'force_update'}) |
|
4088
|
0 |
0 |
unless $goto_do->called_for |
|
4104
|
0 |
0 |
if $CPAN::DEBUG |
|
4105
|
0 |
0 |
if (exists $self->{'install'}) |
|
4108
|
0 |
0 |
UNIVERSAL::can($self->{'install'}, 'text') ? : |
|
4109
|
0 |
0 |
if ($text =~ /^YES/) { } |
|
|
0 |
0 |
elsif ($text =~ /is only/) { } |
|
4123
|
0 |
0 |
if $self->{$slot} |
|
4138
|
0 |
0 |
unless my $obj = "CPAN::Shell"->expandany($s) |
|
4140
|
0 |
0 |
if ($type eq "CPAN::Distribution") |
|
4141
|
0 |
0 |
unless $obj->{'sponsored_mods'} |
|
4142
|
0 |
0 |
if grep {$_ eq $module;} $self->containsmods |
|
4155
|
0 |
0 |
if (exists $self->{'cleanup_after_install_done'}) |
|
4159
|
0 |
0 |
if $CPAN::DEBUG |
|
4160
|
0 |
0 |
if (my $goto = $self->prefs->{'goto'}) |
|
4166
|
0 |
0 |
unless ($self->test) |
|
4171
|
0 |
0 |
if (defined(my $sc = $self->shortcut_install)) |
|
4176
|
0 |
0 |
if ($CPAN::Signal) |
|
4182
|
0 |
0 |
unless my $builddir = $self->dir |
|
4185
|
0 |
0 |
unless (CPAN::Distribution::chdir($builddir)) |
|
4191
|
0 |
0 |
if $CPAN::DEBUG |
|
4194
|
0 |
0 |
$self->{'modulebuild'} ? : |
|
4197
|
0 |
0 |
if ($^O eq "MacOS") |
|
4204
|
0 |
0 |
if (my $commandline = $self->prefs->{'install'}{'commandline'}) { } |
|
|
0 |
0 |
elsif ($self->{'modulebuild'}) { } |
|
4212
|
0 |
0 |
exists $CPAN::HandleConfig::keys{'mbuild_install_build_command'} && $CPAN::Config->{'mbuild_install_build_command'} ? : |
|
4213
|
0 |
0 |
$^O eq 'VMS' ? : |
|
4227
|
0 |
0 |
$^O eq 'MSWin32' || $^O eq 'VMS' ? : |
|
4234
|
0 |
0 |
if ($reqtype eq "b") |
|
4235
|
0 |
0 |
if ($brip eq 'no') { } |
|
|
0 |
0 |
elsif ($brip =~ m[^ask/(.+)]) { } |
|
4239
|
0 |
0 |
unless $default =~ /^(y|n)/i |
|
4247
|
0 |
0 |
unless ($want_install =~ /^y/i) |
|
4257
|
0 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
4259
|
0 |
0 |
defined $ENV{'PERL5OPT'} ? : |
|
4262
|
0 |
0 |
exists $ENV{'PERL_USE_UNSAFE_INC'} && defined $ENV{'PERL_USE_UNSAFE_INC'} ? : |
|
4264
|
0 |
0 |
if $CPAN::Config->{'use_prompt_default'} |
|
4265
|
0 |
0 |
if $CPAN::Config->{'use_prompt_default'} |
|
4268
|
0 |
0 |
if ($self->prefs->{'install'}) |
|
4271
|
0 |
0 |
if $install_env |
|
4273
|
0 |
0 |
unless ($run_allow_installing_within_test) |
|
4275
|
0 |
0 |
unless ($allow_installing) |
|
4286
|
0 |
0 |
unless ($pipe) |
|
4305
|
0 |
0 |
if ($close_ok) { } |
|
4309
|
0 |
0 |
if ($CPAN::Config->{'cleanup_after_install'} and not $self->is_dot_dist and not $self->is_being_sponsored) |
|
4313
|
0 |
0 |
unless CPAN::Distribution::chdir($parent) |
|
4316
|
0 |
0 |
if (-e $yml) |
|
4317
|
0 |
0 |
unless unlink $yml |
|
4327
|
0 |
0 |
if ($makeout =~ /permission/s and $> > 0 and !$mimc || $mimc eq 'CPAN::HandleConfig'->prefs_lookup($self, 'make')) |
|
4347
|
0 |
0 |
unless ($CPAN::Config->{'cleanup_after_install'}) |
|
4360
|
0 |
0 |
if (@queue) { } |
|
4362
|
0 |
0 |
if (-d $file) { } |
|
4364
|
0 |
0 |
unless opendir $dh, $file |
|
4368
|
0 |
0 |
if (-d $maybedir) { } |
|
|
0 |
0 |
elsif (/\.pm$/) { } |
|
4369
|
0 |
0 |
unless ("File::Spec"->catdir("blib", "arch", "auto") eq $maybedir) |
|
4375
|
0 |
0 |
if (-f $mustbefile) |
|
4381
|
0 |
0 |
if $_ ne "." |
|
4399
|
0 |
0 |
if ($self->{'CALLED_FOR'}) |
|
4406
|
0 |
0 |
if $allow_down eq "yes" and $allow_outdd eq "yes" |
|
4409
|
0 |
0 |
if ($allow_outdd ne "yes" and not $CPAN::META->has_inst("CPAN::DistnameInfo")) |
|
4410
|
0 |
0 |
if grep {$_ eq "CPAN::DistnameInfo";} $self->containsmods |
|
4411
|
0 |
0 |
if ($allow_outdd ne "yes") |
|
4416
|
0 |
0 |
if $allow_down eq "yes" and $allow_outdd eq "yes" |
|
4420
|
0 |
0 |
if ($allow_outdd ne "yes") |
|
4433
|
0 |
0 |
unless ($allow_down eq "yes") |
|
4434
|
0 |
0 |
if (my $inst_file = $self->_file_in_path($pmpath, \@INC)) |
|
4437
|
0 |
0 |
if ($cmp) |
|
4438
|
0 |
0 |
if ($cmp < 0) |
|
4442
|
0 |
0 |
if (@down) |
|
4444
|
0 |
0 |
if (my($default) = $allow_down =~ m[^ask/(.+)]) |
|
4445
|
0 |
0 |
unless $default =~ /^(y|n)/i |
|
4449
|
0 |
0 |
$answer =~ /^\s*y/i ? : |
|
4451
|
0 |
0 |
if ($allow_down eq "no") |
|
4457
|
0 |
0 |
unless ($allow_outdd eq "yes") |
|
4461
|
0 |
0 |
if ($mo) |
|
4465
|
0 |
0 |
if (my $mo_dist = $mo->distribution) |
|
4468
|
0 |
0 |
if ($dni->dist eq $dist_dist) |
|
4469
|
0 |
0 |
if ("CPAN::Version"->vgt($dni->version, $dist_version)) |
|
4480
|
0 |
0 |
if (@outdd and $allow_outdd ne "yes") |
|
4482
|
0 |
0 |
if ($outdd[0]{'dist_dist'} eq $dist_dist) |
|
4485
|
0 |
0 |
if (my($default) = $allow_outdd =~ m[^ask/(.+)]) |
|
4486
|
0 |
0 |
unless $default =~ /^(y|n)/i |
|
4490
|
0 |
0 |
$answer =~ /^\s*y/i ? : |
|
4492
|
0 |
0 |
if ($allow_outdd eq "no") |
|
4506
|
0 |
0 |
if (-f $pmfile) |
|
4529
|
0 |
0 |
if ($CPAN::META->has_inst('Pod::Perldocs')) { } |
|
4530
|
0 |
0 |
unless my($perl) = $self->perl |
|
4535
|
0 |
0 |
unless (($wstatus = system(@args)) == 0) |
|
4553
|
0 |
0 |
if $CPAN::DEBUG |
|
4556
|
0 |
0 |
if ($CPAN::META->has_inst('File::Which')) { } |
|
4560
|
0 |
0 |
unless $pid = open(README, "which $binary|") |
|
4562
|
0 |
0 |
unless $pid |
|
4566
|
0 |
0 |
unless close README |
|
4571
|
0 |
0 |
if $CPAN::DEBUG and $out |
|
4582
|
0 |
0 |
if $CPAN::DEBUG |
|
4589
|
0 |
0 |
$web_browser ? : |
|
4593
|
0 |
0 |
if ($web_browser_out) { } |
|
4596
|
0 |
0 |
if $CPAN::DEBUG |
|
4605
|
0 |
0 |
if ($saved_file) |
|
4612
|
0 |
0 |
if ($html_converter_out) { } |
|
4615
|
0 |
0 |
unless defined $saved_file |
|
4619
|
0 |
0 |
unless $pid = open(README, "$html_converter $saved_file |") |
|
4623
|
0 |
0 |
if ($CPAN::META->has_usable('File::Temp')) { } |
|
4634
|
0 |
0 |
unless open $fh, ">$filename" |
|
4639
|
0 |
0 |
unless close README |
|
4642
|
0 |
0 |
if $CPAN::DEBUG |
|
4651
|
0 |
0 |
unless open FH, $tmpin |
|
4656
|
0 |
0 |
unless $fh_pager->open("|$pager") |
|
4679
|
0 |
0 |
if $CPAN::DEBUG |
|
4683
|
0 |
0 |
if ($CPAN::META->has_usable('File::Temp')) { } |
|
4696
|
0 |
0 |
if ($CPAN::META->has_usable('LWP')) { } |
|
4703
|
0 |
0 |
if ($@) { } |
|
4709
|
0 |
0 |
if $var = $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'} |
|
4711
|
0 |
0 |
if $var = $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} |
|
4717
|
0 |
0 |
if ($res->is_success) { } |
|
4718
|
0 |
0 |
if $CPAN::DEBUG |
|
4722
|
0 |
0 |
if $CPAN::DEBUG |
|
4742
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
|
0 |
0 |
elsif ($^O eq 'VMS') { } |
|
4745
|
0 |
0 |
unless my($perl) = $self->perl |
|
4757
|
0 |
0 |
unless defined $phase |
|
4760
|
0 |
0 |
unless $CPAN::META->has_usable("CPAN::Reporter") |
|
4765
|
0 |
0 |
unless $test_report |
|
4769
|
0 |
0 |
if exists $self->{'should_report'} |
|
4772
|
0 |
0 |
if ($self->{'had_no_makefile_pl'}) |
|
4780
|
0 |
0 |
unless ($CPAN::META->has_inst("CPAN::Reporter")) |
|
4789
|
0 |
0 |
if ("CPAN::Version"->vlt($crv, "0.99")) |
|
4791
|
0 |
0 |
if ($phase eq 'test') { } |
|
4804
|
0 |
0 |
if ($self->is_dot_dist) |
|
4809
|
0 |
0 |
if ($self->prefs->{'patches'} and @{$self->prefs->{'patches'};} and $self->{'patched'}) |
|
4830
|
0 |
0 |
unless ($CPAN::META->has_inst("CPAN::DistnameInfo")) |
|
4833
|
0 |
0 |
unless ($CPAN::META->has_usable("LWP")) |
|
4836
|
0 |
0 |
unless ($CPAN::META->has_usable("File::Temp")) |
|
4841
|
0 |
0 |
if ($CPAN::META->has_inst('YAML::XS') or $CPAN::META->has_inst('YAML::Syck')) { } |
|
|
0 |
0 |
elsif (not $format and $CPAN::META->has_inst('JSON::PP')) { } |
|
4865
|
0 |
0 |
if ($@) |
|
4870
|
0 |
0 |
unless ($resp->is_success) |
|
4875
|
0 |
0 |
if ($format eq 'yaml') { } |
|
4886
|
0 |
0 |
unless close $fh |
|
4888
|
0 |
0 |
unless unlink $tfilename |
|
4897
|
0 |
0 |
if ($rversion eq $version) { } |
|
4898
|
0 |
0 |
unless ($this_version_seen++) |
|
4912
|
0 |
0 |
$arch eq $Config::Config{'archname'} ? : |
|
|
0 |
0 |
$grade eq 'FAIL' ? : |
|
|
0 |
0 |
$grade eq 'PASS' ? : |
|
4918
|
0 |
0 |
unless ($this_version_seen) |