| line |
true |
false |
branch |
|
24
|
0 |
0 |
unless defined $args |
|
25
|
0 |
0 |
if ($CPAN::META->has_inst($plugin_proper)) { } |
|
28
|
0 |
0 |
if ($instance{$plugin}->can($hookname)) |
|
42
|
0 |
0 |
unless my $ro = $self->ro |
|
69
|
0 |
1 |
unless defined $s |
|
70
|
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,}/]) { } |
|
72
|
0 |
0 |
unless ($$CPAN::META{'LOCK'} or $$CPAN::Have_warned{"$s is unlocked"}++) |
|
80
|
0 |
0 |
if ($s eq '.') { } |
|
|
0 |
0 |
elsif ('File::Spec'->file_name_is_absolute($s)) { } |
|
|
0 |
0 |
elsif ('File::Spec'->can('rel2abs')) { } |
|
88
|
0 |
0 |
if $CPAN::DEBUG |
|
89
|
0 |
0 |
unless ($CPAN::META->exists('CPAN::Distribution', $s)) |
|
101
|
0 |
0 |
if $s =~ m[^N/A|^Contact Author] |
|
103
|
0 |
0 |
if $CPAN::DEBUG |
|
112
|
0 |
1 |
if (substr($self->id, -1, 1) eq '.') { } |
|
137
|
0 |
0 |
if $CPAN::DEBUG |
|
138
|
0 |
0 |
unless ($local_file = 'CPAN::FTP'->localize("authors/id/$norm", $local_wanted)) |
|
149
|
0 |
0 |
if ($$self{'ID'} =~ m[[A-Z]/[A-Z\-]{2}/([A-Z\-]+)/]) |
|
159
|
0 |
1 |
unless $id =~ m[^./../] |
|
203
|
0 |
0 |
if $CPAN::DEBUG |
|
205
|
0 |
0 |
if exists $$self{'incommandcolor'} and $color == 1 and $$self{'incommandcolor'} == $color |
|
209
|
0 |
0 |
if ($depth >= $CPAN::MAX_RECURSION) |
|
214
|
0 |
0 |
if (defined $prereq_pm) |
|
217
|
0 |
0 |
unless $$prereq_pm{'requires'} |
|
218
|
0 |
0 |
unless $$prereq_pm{'build_requires'} |
|
221
|
0 |
0 |
if $pre eq 'perl' |
|
223
|
0 |
0 |
unless ($premo = 'CPAN::Shell'->expand('Module', $pre)) |
|
231
|
0 |
0 |
if ($color == 0) |
|
254
|
0 |
0 |
if exists $$self{'CONTAINSMODS'} |
|
257
|
0 |
0 |
unless my $mod_file = $mod->cpan_file |
|
258
|
0 |
0 |
unless my $mod_id = $$mod{'ID'} |
|
261
|
0 |
0 |
if ($CPAN::Signal) |
|
265
|
0 |
0 |
if $mod_file eq $dist_id |
|
273
|
0 |
0 |
if exists $$self{'UPLOAD_DATE'} |
|
278
|
0 |
0 |
unless $author |
|
280
|
0 |
0 |
unless @dl |
|
283
|
0 |
0 |
unless $$dirent[1] |
|
293
|
0 |
0 |
unless ($obj->uptodate) |
|
295
|
0 |
0 |
if $CPAN::DEBUG |
|
305
|
0 |
0 |
if defined $id |
|
315
|
0 |
0 |
if (my $why = $self->check_disabled) |
|
323
|
0 |
0 |
if $CPAN::DEBUG |
|
324
|
0 |
0 |
if (exists $$self{'build_dir'} and -d $$self{'build_dir'}) |
|
334
|
0 |
0 |
if $CPAN::DEBUG |
|
335
|
0 |
0 |
if (exists $$self{'build_dir'} and not -d $$self{'build_dir'}) |
|
344
|
0 |
0 |
if $CPAN::DEBUG |
|
345
|
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/) |
|
362
|
0 |
0 |
if $CPAN::DEBUG |
|
363
|
0 |
0 |
if (my $goto = $self->prefs->{'goto'}) |
|
367
|
0 |
0 |
if (defined(my $sc = $self->shortcut_get)) |
|
371
|
0 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
374
|
0 |
0 |
defined $ENV{'PERL5OPT'} ? : |
|
383
|
0 |
0 |
unless ($$self{'build_dir'} and -d $$self{'build_dir'}) |
|
385
|
0 |
0 |
if $CPAN::Signal |
|
387
|
0 |
0 |
if $CPAN::Signal |
|
390
|
0 |
0 |
if (exists $$self{'writemakefile'} and ref $$self{'writemakefile'} and $$self{'writemakefile'}->can('failed') and $$self{'writemakefile'}->failed) |
|
403
|
0 |
0 |
if ($CPAN::Signal) |
|
407
|
0 |
0 |
unless $self->patch |
|
419
|
0 |
0 |
if $self->is_dot_dist |
|
429
|
0 |
0 |
if $CPAN::DEBUG |
|
430
|
0 |
0 |
unless ($local_file = 'CPAN::FTP'->localize("authors/id/$$self{'ID'}", $local_wanted)) |
|
434
|
0 |
0 |
if ($CPAN::Index::DATE_OF_02) |
|
441
|
0 |
0 |
if $CPAN::DEBUG |
|
450
|
0 |
0 |
if $self->is_dot_dist |
|
451
|
0 |
0 |
if ($CPAN::META->has_inst('Digest::SHA')) { } |
|
462
|
0 |
0 |
if $self->is_dot_dist |
|
467
|
0 |
0 |
if $CPAN::DEBUG |
|
469
|
0 |
0 |
unless (mkdir "tmp-$$", 493) |
|
480
|
0 |
0 |
if ($CPAN::Signal) |
|
490
|
0 |
0 |
unless ($ct) |
|
495
|
0 |
0 |
if ($local_file =~ /(\.tar\.(bz2|gz|Z)|\.tgz)(?!\n)\Z/i) { } |
|
|
0 |
0 |
elsif ($local_file =~ /\.zip(?!\n)\Z/i) { } |
|
496
|
0 |
0 |
unless eval {
do {
$ct->gtest
}
} |
|
501
|
0 |
0 |
unless $ct->gtest |
|
507
|
0 |
0 |
unless my $dh = 'DirHandle'->new('File::Spec'->curdir) |
|
510
|
0 |
0 |
if (grep {$_ eq 'pax_global_header';} @readdir) |
|
522
|
0 |
0 |
if ('CPAN'->has_usable('File::Temp')) { } |
|
526
|
0 |
0 |
if (@readdir == 1 and -d $readdir[0]) { } |
|
530
|
0 |
0 |
unless ($dh2 = 'DirHandle'->new($from_dir)) |
|
547
|
0 |
0 |
if (not $userid or $userid eq 'N/A') |
|
555
|
0 |
0 |
if ($@) |
|
568
|
0 |
0 |
unless (File::Copy::move($from, $to)) |
|
576
|
0 |
0 |
if (@readdir == 1 and -d $readdir[0]) { } |
|
579
|
0 |
0 |
if $CPAN::DEBUG |
|
581
|
0 |
0 |
if -d $packagedir |
|
584
|
0 |
0 |
unless (File::Copy::move($distdir, $packagedir)) |
|
596
|
0 |
0 |
if $CPAN::DEBUG |
|
604
|
0 |
0 |
if $CPAN::DEBUG |
|
605
|
0 |
0 |
if (not $userid or $userid eq 'N/A') |
|
612
|
0 |
0 |
if $CPAN::DEBUG |
|
617
|
0 |
0 |
unless File::Copy::move($f, $to) |
|
635
|
41 |
0 |
unless defined $filter |
|
638
|
0 |
41 |
unless ($build_dir = $$self{'build_dir'}) |
|
648
|
41 |
0 |
if $has_cm |
|
649
|
41 |
0 |
if $has_cm or $has_pcm |
|
650
|
41 |
0 |
if $has_cm |
|
651
|
41 |
0 |
if $has_cm or $has_pcm |
|
655
|
38 |
63 |
if -f $path |
|
664
|
0 |
0 |
if $CPAN::DEBUG |
|
665
|
0 |
0 |
unless my $build_dir = $$self{'build_dir'} |
|
667
|
0 |
0 |
if $CPAN::DEBUG |
|
668
|
0 |
0 |
unless -f $yaml |
|
671
|
0 |
0 |
unless $CPAN::META->has_inst('Parse::CPAN::Meta') |
|
672
|
0 |
0 |
unless $Parse::CPAN::Meta::VERSION >= '1.40' |
|
676
|
0 |
0 |
unless ($early_yaml) |
|
679
|
0 |
0 |
if $CPAN::DEBUG |
|
680
|
0 |
0 |
if $CPAN::DEBUG and $early_yaml |
|
681
|
0 |
0 |
if (not ref $early_yaml or ref $early_yaml ne 'HASH') |
|
694
|
0 |
0 |
if $CPAN::DEBUG |
|
695
|
0 |
0 |
if (my(@prereq) = $self->unsat_prereq('later')) |
|
696
|
0 |
0 |
if $CPAN::DEBUG |
|
697
|
0 |
0 |
if $CPAN::DEBUG and @prereq |
|
698
|
0 |
0 |
if ($prereq[0][0] eq 'perl') { } |
|
707
|
0 |
0 |
if (do {
$follow
}) { } |
|
|
0 |
0 |
elsif ($@ and ref $@ and $@->isa('CPAN::Exception::RecursiveDependency')) { } |
|
724
|
0 |
0 |
if $CPAN::DEBUG |
|
726
|
0 |
0 |
unless ($enable_configure_requires) |
|
733
|
0 |
0 |
if $CPAN::DEBUG |
|
734
|
0 |
0 |
unless @prereq |
|
735
|
0 |
0 |
if $CPAN::DEBUG |
|
736
|
0 |
0 |
if ($$self{'configure_requires_later'}) |
|
737
|
0 |
0 |
unless $$self{'configure_requires_later_for'} |
|
738
|
0 |
0 |
if ($$self{'configure_requires_later_for'}{$k} > 1) |
|
741
|
0 |
0 |
if ($$p[0] eq $k) |
|
745
|
0 |
0 |
if $type |
|
751
|
0 |
0 |
if ($prereq[0][0] eq 'perl') { } |
|
762
|
0 |
0 |
if (do {
$follow
}) { } |
|
|
0 |
0 |
elsif ($@ and ref $@ and $@->isa('CPAN::Exception::RecursiveDependency')) { } |
|
779
|
0 |
0 |
unless $self->satisfy_configure_requires |
|
783
|
0 |
0 |
unless ($mpl_exists) |
|
788
|
0 |
0 |
unless my $mpldh = 'DirHandle'->new($$self{'build_dir'}) |
|
794
|
0 |
0 |
if (-f 'File::Spec'->catfile($$self{'build_dir'}, 'Build.PL')) |
|
795
|
0 |
0 |
if ($mpl_exists) { } |
|
796
|
0 |
0 |
if ($CPAN::META->has_inst('Module::Build')) |
|
802
|
0 |
0 |
if fileno Module::Build::Version::DATA |
|
809
|
0 |
0 |
if (lc $prefer_installer eq 'rand') |
|
810
|
0 |
0 |
rand() < 0.5 ? : |
|
812
|
0 |
0 |
if (lc $prefer_installer eq 'mb') { } |
|
|
0 |
0 |
elsif ($$self{'archived'} eq 'patch') { } |
|
|
0 |
0 |
elsif (not $mpl_exists) { } |
|
822
|
0 |
0 |
if ($$self{'build_dir'} and $$CPAN::Config{'build_dir_reuse'}) |
|
836
|
0 |
0 |
unless (defined $dir and length $dir) |
|
851
|
0 |
0 |
unless ($sbd eq $cbd) |
|
858
|
0 |
0 |
if ($CPAN::META->has_inst($yaml_module)) { } |
|
884
|
0 |
0 |
if $CPAN::DEBUG |
|
894
|
0 |
0 |
if $CPAN::DEBUG |
|
897
|
0 |
0 |
if $CPAN::DEBUG |
|
898
|
0 |
0 |
if ($patches) |
|
899
|
0 |
0 |
unless @$patches |
|
901
|
0 |
0 |
if $CPAN::DEBUG |
|
903
|
0 |
0 |
unless ($patchbin and length $patchbin) |
|
907
|
0 |
0 |
unless ('MM'->maybe_command($patchbin)) |
|
913
|
0 |
0 |
unless ($stdpatchargs) |
|
916
|
0 |
0 |
unless open FH, $system |
|
920
|
0 |
0 |
if (/^patch\s+([\d\.]+)/) |
|
925
|
0 |
0 |
if ($pversion) { } |
|
931
|
0 |
0 |
@$patches == 1 ? : |
|
935
|
0 |
0 |
if ($patches_dir and not 'File::Spec'->file_name_is_absolute($patch)) |
|
937
|
0 |
0 |
if -f $f |
|
939
|
0 |
0 |
unless (-f $patch) |
|
940
|
0 |
0 |
if $CPAN::DEBUG |
|
941
|
0 |
0 |
if (my $trydl = $self->try_download($patch)) { } |
|
956
|
0 |
0 |
if ($ppp eq 'applypatch') { } |
|
962
|
0 |
0 |
if ($Config::Config{'osname'} eq 'solaris') |
|
964
|
0 |
0 |
unless $pfiles |
|
965
|
0 |
0 |
unless my(@stat) = stat $file |
|
974
|
0 |
0 |
unless (open $writefh, "|$pcommand") |
|
985
|
0 |
0 |
unless (close $writefh) |
|
1009
|
0 |
0 |
if ($$CPAN::Config{'applypatch'} and /\#\#\#\# ApplyPatch data follows \#\#\#\#/) |
|
1016
|
0 |
0 |
unless /^[\*\+]{3}\s(\S+)/ |
|
1020
|
0 |
0 |
if -f $file |
|
1021
|
0 |
0 |
if $CPAN::DEBUG |
|
1024
|
0 |
0 |
unless $cnt_files |
|
1025
|
0 |
0 |
$cnt_files == $cnt_p0files ? : |
|
1033
|
0 |
0 |
if $CPAN::DEBUG |
|
1039
|
0 |
0 |
if (-f $configure) { } |
|
|
0 |
0 |
elsif (-f 'File::Spec'->catfile($build_dir, 'Makefile')) { } |
|
1051
|
0 |
0 |
if ($cf =~ m[/]) |
|
1056
|
0 |
0 |
unless length $cf |
|
1057
|
0 |
0 |
if (my $crud = $self->_contains_crud($build_dir)) |
|
1072
|
0 |
0 |
if ($$self{'archived'} eq 'maybe_pl') |
|
1077
|
0 |
0 |
unless $fh->open(">$mpl") |
|
1097
|
0 |
0 |
unless opendir $dh, $dir |
|
1100
|
0 |
0 |
if $dirent =~ /^\.\.?$/ |
|
1102
|
0 |
0 |
if (-d $path) { } |
|
|
0 |
0 |
elsif (-f $path) { } |
|
1108
|
0 |
0 |
if (@dirs and @files) { } |
|
|
0 |
0 |
elsif (@files > 2) { } |
|
1122
|
0 |
0 |
unless $fh->open($script_file) |
|
1129
|
0 |
0 |
if ($state eq 'poddir' and /^=head\d\s+(\S+)/) { } |
|
|
0 |
0 |
elsif ($state =~ /^(name|prereq)$/) { } |
|
|
0 |
0 |
elsif (/^=cut\b/) { } |
|
1130
|
0 |
0 |
if ($1 eq 'NAME') { } |
|
|
0 |
0 |
elsif ($1 eq 'PREREQUISITES') { } |
|
1136
|
0 |
0 |
if (/^=/) { } |
|
|
0 |
0 |
elsif (/^\s*$/) { } |
|
|
0 |
0 |
elsif ($state eq 'name') { } |
|
|
0 |
0 |
elsif ($state eq 'prereq') { } |
|
1141
|
0 |
0 |
if ($name eq '') |
|
1163
|
0 |
0 |
if (/[\s\'\"]/) { } |
|
1170
|
0 |
0 |
if ($name) |
|
1172
|
0 |
0 |
unless rename $script_file, $to_file |
|
1189
|
0 |
0 |
if ($check_sigs) |
|
1190
|
0 |
0 |
if ($CPAN::META->has_inst('Module::Signature')) { } |
|
1191
|
0 |
0 |
if (-f 'SIGNATURE') { } |
|
1192
|
0 |
0 |
if $CPAN::DEBUG |
|
1194
|
0 |
0 |
if ($rv != Module::Signature::SIGNATURE_OK() and $rv != Module::Signature::SIGNATURE_MISSING()) { } |
|
1218
|
0 |
0 |
if $CPAN::Frontend->can('mysleep') |
|
1221
|
0 |
0 |
if $CPAN::DEBUG |
|
1227
|
0 |
0 |
if $CPAN::DEBUG |
|
1237
|
0 |
0 |
if ($result) { } |
|
1249
|
0 |
0 |
if ($ct->unzip) { } |
|
1260
|
0 |
0 |
if ($local_file =~ /\.pm(\.(gz|Z))?(?!\n)\Z/) { } |
|
|
0 |
0 |
elsif ($local_file =~ /\.patch(\.(gz|bz2))?(?!\n)\Z/) { } |
|
1269
|
0 |
0 |
if ($to =~ s/\.(gz|Z)(?!\n)\Z//) { } |
|
1270
|
0 |
0 |
if (eval {
do {
'CPAN::Tarzip'->new($local_file)->gunzip($to)
}
}) { } |
|
1276
|
0 |
0 |
if (File::Copy::cp($local_file, '.')) { } |
|
1299
|
0 |
0 |
if ($^O eq 'MacOS') |
|
1304
|
0 |
0 |
if ($$CPAN::Config{'shell'}) { } |
|
1317
|
0 |
0 |
unless ($dir = $self->dir) |
|
1320
|
0 |
0 |
unless ($dir ||= $self->dir) |
|
1334
|
0 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
1338
|
0 |
0 |
defined $ENV{'PERL5OPT'} ? : |
|
1342
|
0 |
0 |
unless (system($shell) == 0) |
|
1368
|
0 |
0 |
if ($cvs_site_perl) |
|
1378
|
0 |
0 |
unless chdir($dir) |
|
1383
|
0 |
0 |
unless system(@cmd) == 0 |
|
1386
|
0 |
0 |
unless chdir($pwd) |
|
1394
|
0 |
0 |
if $CPAN::DEBUG |
|
1404
|
0 |
0 |
if $CPAN::DEBUG |
|
1405
|
0 |
0 |
unless $local_file = 'CPAN::FTP'->localize($readme, $local_wanted) |
|
1409
|
0 |
0 |
if ($^O eq 'MacOS') |
|
1417
|
0 |
0 |
unless $fh_pager->open("|$pager") |
|
1420
|
0 |
0 |
unless $fh_readme->open($local_file) |
|
1437
|
0 |
0 |
if $$self{'CHECKSUM_STATUS'} eq 'OK' |
|
1438
|
0 |
0 |
if @e |
|
1448
|
0 |
0 |
if (my $size = -s $lc_want) |
|
1449
|
0 |
0 |
if $CPAN::DEBUG |
|
1450
|
0 |
0 |
if ($self->CHECKSUM_check_file($lc_want, 1)) |
|
1456
|
0 |
0 |
unless ($lc_file) |
|
1461
|
0 |
0 |
if ($lc_file) { } |
|
1468
|
0 |
0 |
if ($self->CHECKSUM_check_file($lc_file)) |
|
1478
|
0 |
0 |
if ($rv == Module::Signature::SIGNATURE_OK()) { } |
|
1510
|
0 |
0 |
if $CPAN::DEBUG |
|
1513
|
0 |
0 |
if ($check_sigs) |
|
1514
|
0 |
0 |
if ($CPAN::META->has_inst('Module::Signature')) { } |
|
1515
|
0 |
0 |
if $CPAN::DEBUG |
|
1518
|
0 |
0 |
if $CPAN::DEBUG |
|
1525
|
0 |
0 |
if (open $fh, $chk_file) { } |
|
1532
|
0 |
0 |
if ($@) |
|
1534
|
0 |
0 |
if $@ |
|
1540
|
0 |
0 |
if (not ref $cksum or ref $cksum ne 'HASH') { } |
|
|
0 |
0 |
elsif (exists $$cksum{$basename}{'sha256'}) { } |
|
1548
|
0 |
0 |
unless $answer =~ /^\s*y/i |
|
1552
|
0 |
0 |
if $CPAN::DEBUG |
|
1561
|
0 |
0 |
unless ($eq) |
|
1572
|
0 |
0 |
if ($eq) { } |
|
1601
|
0 |
0 |
if $sloppy |
|
1602
|
0 |
0 |
unless ($$self{'CHECKSUM_STATUS'}) |
|
1611
|
0 |
0 |
unless $answer =~ /^\s*y/i |
|
1621
|
0 |
0 |
if ($CPAN::META->has_inst('Digest::SHA')) |
|
1690
|
0 |
0 |
if $fforce or $phase eq $method |
|
1691
|
0 |
0 |
unless $methodmatch |
|
1693
|
0 |
0 |
if ($phase eq 'get') { } |
|
|
0 |
0 |
elsif ($phase eq 'test') { } |
|
1694
|
0 |
0 |
if (substr($self->id, -1, 1) eq '.' and $att =~ /(unwrapped|build_dir|archived)/) |
|
1699
|
0 |
0 |
if ($att eq 'build_dir' and $$self{'build_dir'} and $$CPAN::META{'is_tested'}) |
|
1706
|
0 |
0 |
if ($att eq 'make_test' and $$self{'make_test'} and $$self{'make_test'}{'COMMANDID'} and $$self{'make_test'}{'COMMANDID'} == $CPAN::CurrentCommandId) |
|
1716
|
0 |
0 |
if ($ldebug or $CPAN::DEBUG) |
|
1722
|
0 |
0 |
if ($method and $method =~ /make|test|install/) |
|
1751
|
0 |
0 |
if ($file =~ / ^ perl
-?
(5)
([._-])
(
\d{3}(_[0-4][0-9])?
|
\d+\.\d+
)
\.tar[._-](?:gz|bz2)
(?!\n)\Z
/sx) { } |
|
|
0 |
0 |
elsif ($self->cpan_comment and $self->cpan_comment =~ /isa_perl\(.+?\)/) { } |
|
1775
|
0 |
0 |
unless ($self) |
|
1789
|
0 |
0 |
if $CPAN::DEBUG |
|
1790
|
0 |
0 |
if (not $$self{'archived'} or $$self{'archived'} eq 'NO') |
|
1794
|
0 |
0 |
if $CPAN::DEBUG |
|
1795
|
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/) |
|
1804
|
0 |
0 |
if $CPAN::DEBUG |
|
1805
|
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/) |
|
1816
|
0 |
0 |
if $CPAN::DEBUG |
|
1817
|
0 |
0 |
if ($$self{'writemakefile'}) |
|
1818
|
0 |
0 |
UNIVERSAL::can($$self{'writemakefile'}, 'failed') ? : |
|
|
0 |
0 |
if (UNIVERSAL::can($$self{'writemakefile'}, 'failed') ? $$self{'writemakefile'}->failed : $$self{'writemakefile'} =~ /^NO/) { } |
|
1824
|
0 |
0 |
UNIVERSAL::can($$self{'writemakefile'}, 'text') ? : |
|
1836
|
0 |
0 |
if $CPAN::DEBUG |
|
1837
|
0 |
0 |
if (my $later = $$self{'configure_requires_later'}) |
|
1847
|
0 |
0 |
unless $self->get |
|
1850
|
0 |
0 |
if (defined(my $sc = $self->shortcut_prepare)) |
|
1854
|
0 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
1857
|
0 |
0 |
defined $ENV{'PERL5OPT'} ? : |
|
1861
|
0 |
0 |
if ($CPAN::Signal) |
|
1866
|
0 |
0 |
unless my $builddir = $self->dir |
|
1869
|
0 |
0 |
unless (chdir($builddir)) |
|
1874
|
0 |
0 |
if ($CPAN::Signal) |
|
1879
|
0 |
0 |
if $CPAN::DEBUG |
|
1883
|
0 |
0 |
unless $self->choose_MM_or_MB |
|
1886
|
0 |
0 |
$$self{'modulebuild'} ? : |
|
|
0 |
0 |
$$self{'configure'} ? : |
|
1892
|
0 |
0 |
if ($$CPAN::Config{'prerequisites_policy'} eq 'follow') |
|
1899
|
0 |
0 |
if ($self->prefs->{'pl'}) |
|
1902
|
0 |
0 |
defined $ENV{'PERL'} ? : |
|
1904
|
0 |
0 |
if $$CPAN::Config{'use_prompt_default'} |
|
1905
|
0 |
0 |
if $$CPAN::Config{'use_prompt_default'} |
|
1906
|
0 |
0 |
if ($pl_commandline) { } |
|
|
0 |
0 |
elsif ($$self{'configure'}) { } |
|
|
0 |
0 |
elsif ($$self{'modulebuild'}) { } |
|
1912
|
0 |
0 |
unless my($perl) = $self->perl |
|
1914
|
0 |
0 |
$mbuildpl_arg ? : |
|
1919
|
0 |
0 |
unless my($perl) = $self->perl |
|
1928
|
0 |
0 |
$switch ? : |
|
|
0 |
0 |
$makepl_arg ? : |
|
1935
|
0 |
0 |
if ($self->prefs->{'pl'}) |
|
1938
|
0 |
0 |
if $pl_env |
|
1939
|
0 |
0 |
if (exists $$self{'writemakefile'}) { } |
|
1945
|
0 |
0 |
if ($$CPAN::Config{'inactivity_timeout'}) |
|
1947
|
0 |
0 |
if ($Config::Config{'d_alarm'} and $Config::Config{'d_alarm'} eq 'define') { } |
|
1964
|
0 |
0 |
if ($go_via_alarm) { } |
|
1965
|
0 |
0 |
if ($self->_should_report('pl')) { } |
|
1976
|
0 |
0 |
if (defined($pid = fork)) { } |
|
1977
|
0 |
0 |
if ($pid) { } |
|
1992
|
0 |
0 |
if ($@) |
|
2004
|
0 |
0 |
if (my $expect_model = $self->_prefs_with_expect('pl')) { } |
|
|
0 |
0 |
elsif ($self->_should_report('pl')) { } |
|
2008
|
0 |
0 |
if (not defined $ret and $$self{'writemakefile'} and $$self{'writemakefile'}->failed) |
|
2022
|
0 |
0 |
if ($ret != 0) |
|
2030
|
0 |
0 |
if (-f 'Makefile' or -f 'Build' or $^O eq 'VMS' and -f 'descrip.mms' || -f 'Build.com') { } |
|
2036
|
0 |
0 |
$$self{'modulebuild'} ? : |
|
2055
|
0 |
0 |
if $CPAN::DEBUG |
|
2056
|
0 |
0 |
if (defined $$self{'make'}) |
|
2057
|
0 |
0 |
UNIVERSAL::can($$self{'make'}, 'failed') ? : |
|
|
0 |
0 |
if (UNIVERSAL::can($$self{'make'}, 'failed') ? $$self{'make'}->failed : $$self{'make'} =~ /^NO/) { } |
|
2061
|
0 |
0 |
if ($$self{'force_update'}) { } |
|
2066
|
0 |
0 |
length $$self{'make'} > 3 ? : |
|
2084
|
0 |
0 |
if $CPAN::DEBUG |
|
2085
|
0 |
0 |
if (my $goto = $self->prefs->{'goto'}) |
|
2098
|
0 |
0 |
if ($self->isa_perl) |
|
2099
|
0 |
0 |
if ($self->called_for ne $self->id and not $$self{'force_update'}) |
|
2127
|
0 |
0 |
unless $self->prepare |
|
2129
|
0 |
0 |
if (defined(my $sc = $self->shortcut_make)) |
|
2133
|
0 |
0 |
if ($CPAN::Signal) |
|
2138
|
0 |
0 |
unless my $builddir = $self->dir |
|
2141
|
0 |
0 |
unless (chdir($builddir)) |
|
2146
|
0 |
0 |
$$self{'modulebuild'} ? : |
|
2148
|
0 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
2151
|
0 |
0 |
defined $ENV{'PERL5OPT'} ? : |
|
2155
|
0 |
0 |
if ($CPAN::Signal) |
|
2160
|
0 |
0 |
if ($^O eq 'MacOS') |
|
2167
|
0 |
0 |
if defined $v |
|
2172
|
0 |
0 |
if $@ |
|
2173
|
0 |
0 |
unless $satisfied |
|
2174
|
0 |
0 |
if ($CPAN::Signal) |
|
2180
|
0 |
0 |
unless (chdir($builddir)) |
|
2187
|
0 |
0 |
if ($self->prefs->{'make'}) |
|
2190
|
0 |
0 |
defined $ENV{'PERL'} ? : |
|
2191
|
0 |
0 |
if $$CPAN::Config{'use_prompt_default'} |
|
2192
|
0 |
0 |
if $$CPAN::Config{'use_prompt_default'} |
|
2193
|
0 |
0 |
if ($make_commandline) { } |
|
2197
|
0 |
0 |
if ($$self{'modulebuild'}) { } |
|
2198
|
0 |
0 |
unless (-f 'Build' or $^O eq 'VMS' and -f 'Build.com') |
|
2210
|
0 |
0 |
$make_arg ? : |
|
2216
|
0 |
0 |
if ($self->prefs->{'make'}) |
|
2219
|
0 |
0 |
if $make_env |
|
2222
|
0 |
0 |
if ($expect_model and @{$$expect_model{'talk'};}) |
|
2224
|
0 |
0 |
if ($can_expect) { } |
|
2232
|
0 |
0 |
if ($want_expect) { } |
|
|
0 |
0 |
elsif ($self->_should_report('make')) { } |
|
2246
|
0 |
0 |
if ($system_ok) { } |
|
2279
|
0 |
0 |
if $CPAN::DEBUG |
|
2280
|
0 |
0 |
if ($CPAN::META->has_inst('Expect')) { } |
|
2284
|
0 |
0 |
if ($$expect_model{'mode'} eq 'deterministic') { } |
|
|
0 |
0 |
elsif ($$expect_model{'mode'} eq 'anyorder') { } |
|
2320
|
0 |
0 |
if ($match[2]) |
|
2324
|
0 |
0 |
if ($eof) { } |
|
|
0 |
0 |
elsif ($ran_into_timeout) { } |
|
2333
|
0 |
0 |
if ($but =~ /$regex/) |
|
2337
|
0 |
0 |
unless $reuse |
|
2344
|
0 |
0 |
if ($have_waited < $timeout) |
|
2365
|
0 |
0 |
if $CPAN::DEBUG |
|
2381
|
0 |
0 |
if ($ran_into_timeout) { } |
|
|
0 |
0 |
elsif ($ran_into_eof) { } |
|
2398
|
0 |
0 |
if ($CPAN::META->has_inst('CPAN::Kwalify') and $CPAN::META->has_inst('Kwalify')) { } |
|
2404
|
0 |
0 |
if ($@) |
|
2408
|
0 |
0 |
if $CPAN::DEBUG |
|
2418
|
0 |
0 |
if $prefs_dir =~ /^\s*$/ |
|
2420
|
0 |
0 |
if ($@) |
|
2425
|
0 |
0 |
unless my $dh = 'DirHandle'->new($prefs_dir) |
|
2427
|
0 |
0 |
unless @files |
|
2432
|
0 |
0 |
if ($CPAN::META->has_inst($yaml_module)) { } |
|
2436
|
0 |
0 |
if ($CPAN::META->has_inst('Data::Dumper')) |
|
2439
|
0 |
0 |
if ($CPAN::META->has_inst('Storable')) |
|
2442
|
0 |
0 |
if (@fallbacks) { } |
|
2444
|
0 |
0 |
unless ($$self{'have_complained_about_missing_yaml'}++) |
|
2449
|
0 |
0 |
unless ($$self{'have_complained_about_missing_yaml'}++) |
|
2457
|
0 |
0 |
if ($result->is_warning) { } |
|
|
0 |
0 |
elsif ($result->is_fatal) { } |
|
2474
|
0 |
0 |
unless ($pref->has_any_match) |
|
2478
|
0 |
0 |
unless ($pref->has_valid_subkeys) |
|
2495
|
0 |
0 |
if ($pref->matches($arg)) |
|
2511
|
0 |
0 |
if (exists $$self{'negative_prefs_cache'} and $$self{'negative_prefs_cache'} != $CPAN::CurrentCommandId) |
|
2518
|
0 |
0 |
if (exists $$self{'prefs'}) |
|
2521
|
0 |
0 |
if ($$CPAN::Config{'prefs_dir'}) |
|
2522
|
0 |
0 |
if $CPAN::DEBUG |
|
2525
|
0 |
0 |
if $CPAN::DEBUG |
|
2526
|
0 |
0 |
if ($prefs) |
|
2537
|
0 |
0 |
if $filler2 < 0 |
|
2556
|
0 |
0 |
if ($prefs and exists $$prefs{$phase} and exists $$prefs{$phase}{'args'} and $$prefs{$phase}{'args'}) |
|
2577
|
0 |
0 |
if ($$self{'modulebuild'}) { } |
|
2600
|
0 |
0 |
if ($self) { } |
|
2625
|
0 |
0 |
unless $mimc |
|
2631
|
0 |
0 |
if $^O eq 'MSWin32' |
|
2640
|
0 |
0 |
unless exists $$prereq_pm{'opt_requires'}{$prereq} |
|
2650
|
0 |
0 |
unless @prereq_tuples |
|
2655
|
0 |
0 |
if ($$p[1] =~ /^(r|c)$/) { } |
|
|
0 |
0 |
elsif ($$p[1] =~ /^(b)$/) { } |
|
2659
|
0 |
0 |
if ($reqtype =~ /^(r|c)$/) { } |
|
2676
|
0 |
0 |
length $unsat > length $pretty_id ? : |
|
2690
|
0 |
0 |
$self->is_locally_optional(undef, $$_[0]) ? : |
|
2695
|
0 |
0 |
if ($$CPAN::Config{'prerequisites_policy'} eq 'follow') { } |
|
|
0 |
0 |
elsif ($$CPAN::Config{'prerequisites_policy'} eq 'ask') { } |
|
2708
|
0 |
0 |
if ($follow) |
|
2714
|
0 |
0 |
if ($optional and $self->is_locally_optional(undef, $prereq)) { } |
|
2723
|
0 |
0 |
if ($any) { } |
|
2724
|
0 |
0 |
unless ($optional) |
|
2738
|
0 |
0 |
if (@to_queue_mand) { } |
|
|
0 |
0 |
elsif (@to_queue_opt) { } |
|
2753
|
0 |
0 |
unless my $optf = $$meta_yml{'optional_features'} |
|
2754
|
0 |
0 |
if (not ref $optf or ref $optf ne 'HASH') |
|
2758
|
0 |
0 |
unless my $wantf = $self->prefs->{'features'} |
|
2759
|
0 |
0 |
if (not ref $wantf or ref $wantf ne 'ARRAY') |
|
2765
|
0 |
0 |
if (my $f = $$optf{$wf}) { } |
|
2773
|
0 |
0 |
unless my $reqhash = $$f{$reqtype} |
|
2791
|
0 |
0 |
unless $CPAN::META->has_usable('CPAN::Meta::Requirements') |
|
2796
|
0 |
0 |
if ($slot eq 'configure_requires_later') { } |
|
|
0 |
0 |
elsif ($slot eq 'later') { } |
|
2805
|
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')) |
|
2822
|
0 |
0 |
unless $$prereq_pm_0{$reqtype} |
|
2824
|
0 |
0 |
unless $$dep{$reqtype} |
|
2855
|
0 |
0 |
unless $CPAN::META->has_usable('CPAN::Meta::Requirements') |
|
2859
|
0 |
0 |
if $CPAN::DEBUG |
|
2863
|
0 |
0 |
if ($need_module eq 'perl') { } |
|
2867
|
0 |
0 |
if (CPAN::_sqlite_running()) |
|
2872
|
0 |
0 |
if $nmo->uptodate |
|
2877
|
0 |
0 |
if ($available_file and !defined($need_version) || $need_version eq '0' || $need_version eq 'undef') |
|
2883
|
0 |
0 |
unless ($nmo->inst_deprecated) |
|
2898
|
0 |
0 |
if ($available_file) |
|
2906
|
0 |
0 |
if ($inst_file and $available_file eq $inst_file and $nmo->inst_deprecated) { } |
|
|
0 |
0 |
elsif ($$self{'reqtype'} =~ /^(r|c)$/ and exists $$prereq_pm{'requires'}{$need_module} || exists $$prereq_pm{'opt_requires'} and $nmo and not $inst_file) { } |
|
2915
|
0 |
0 |
if ($fulfills_all_version_rqs and $nmo->id =~ /^CPANPLUS(?:::Dist::Build)$/) |
|
2934
|
0 |
0 |
if ($$need_distro{'install'} and $$need_distro{'install'}->failed and $$need_distro{'install'}->text =~ /is only/) |
|
2935
|
0 |
0 |
if $CPAN::DEBUG |
|
2943
|
0 |
0 |
if $fulfills_all_version_rqs |
|
2947
|
0 |
0 |
if ($need_module eq 'perl') |
|
2951
|
0 |
0 |
if $CPAN::DEBUG |
|
2952
|
0 |
0 |
if (my $sponsoring = $$self{'sponsored_mods'}{$need_module}++) |
|
2982
|
0 |
0 |
unless $do |
|
2983
|
0 |
0 |
if ('CPAN::Version'->vcmp($need_version, $nmo->ro->{'CPAN_VERSION'}) > 0) |
|
3000
|
0 |
0 |
if ($$do{$nosayer}) |
|
3003
|
0 |
0 |
UNIVERSAL::can($$do{$nosayer}, 'failed') ? : |
|
|
0 |
0 |
if (UNIVERSAL::can($$do{$nosayer}, 'failed') ? $$do{$nosayer}->failed : $$do{$nosayer} =~ /^NO/) { } |
|
3006
|
0 |
0 |
if ($nosayer eq 'make_test' and $$do{'make_test'}{'COMMANDID'} != $CPAN::CurrentCommandId) |
|
3013
|
0 |
0 |
if ($self->is_locally_optional($prereq_pm, $need_module)) { } |
|
3028
|
0 |
0 |
if ($nosayer =~ /^(install|make_test)$/) |
|
3047
|
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') { } |
|
3048
|
0 |
0 |
unless exists $$prereq_pm{'requires'}{$need_module} |
|
3070
|
0 |
0 |
if $CPAN::DEBUG |
|
3080
|
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*//) { } |
|
3083
|
0 |
0 |
if ('CPAN::Version'->vgt($available_version, $rq)) |
|
3089
|
0 |
0 |
if ('CPAN::Version'->vcmp($available_version, $rq)) { } |
|
3103
|
0 |
0 |
if ('CPAN::Version'->vcmp($available_version, $rq)) { } |
|
3111
|
0 |
0 |
unless ('CPAN::Version'->vgt($rq, $available_version)) |
|
3114
|
0 |
0 |
if $CPAN::DEBUG |
|
3124
|
0 |
0 |
if $CPAN::DEBUG |
|
3132
|
2 |
28 |
unless my $meta_file = $self->pick_meta_file |
|
3135
|
0 |
28 |
unless $CPAN::META->has_usable('CPAN::Meta') |
|
3136
|
0 |
28 |
unless my $meta = eval {
do {
'CPAN::Meta'->load_file($meta_file)
}
} |
|
3140
|
0 |
28 |
if ($meta_file eq 'META.yml' and $meta->generated_by =~ /ExtUtils::MakeMaker version ([\d\._]+)/) |
|
3144
|
0 |
0 |
if $eummv < 6.2501 |
|
3155
|
0 |
0 |
if $CPAN::DEBUG |
|
3156
|
0 |
0 |
unless $meta_file |
|
3159
|
0 |
0 |
if ($@ or not $yaml) |
|
3163
|
0 |
0 |
if (defined $yaml and !ref($yaml) || ref $yaml ne 'HASH') |
|
3167
|
0 |
0 |
if $CPAN::DEBUG |
|
3169
|
0 |
0 |
if $CPAN::DEBUG and $yaml |
|
3171
|
0 |
0 |
if ($meta_file =~ /MYMETA\.yml/) |
|
3175
|
0 |
0 |
if (defined $$yaml{'dynamic_config'} and not $$yaml{'dynamic_config'}) |
|
3185
|
0 |
0 |
unless my $meta_file = $self->pick_meta_file('^META') |
|
3186
|
0 |
0 |
if (my $meta_obj = $self->read_meta) { } |
|
3189
|
0 |
0 |
$cr ? : |
|
3200
|
0 |
8 |
unless $$self{'writemakefile'} or $$self{'modulebuild'} |
|
3203
|
0 |
8 |
unless ($$self{'build_dir'}) |
|
3207
|
0 |
8 |
$^O eq 'VMS' ? : |
|
3208
|
0 |
8 |
$^O eq 'VMS' ? : |
|
3209
|
0 |
8 |
unless -f $makefile or -f $buildfile |
|
3210
|
0 |
8 |
if $CPAN::DEBUG |
|
3217
|
8 |
0 |
if ($meta_obj and not $meta_obj->dynamic_config) { } |
|
|
0 |
0 |
elsif (my $yaml = $self->read_yaml) { } |
|
3232
|
0 |
8 |
if ($$CPAN::Config{'recommends_policy'}) |
|
3238
|
0 |
8 |
if ($$CPAN::Config{'suggests_policy'}) |
|
3249
|
0 |
0 |
if ($$CPAN::Config{'recommends_policy'}) |
|
3252
|
0 |
0 |
unless ref $req eq 'HASH' and %$req |
|
3253
|
0 |
0 |
if ($req) |
|
3254
|
0 |
0 |
if ($$yaml{'generated_by'} and $$yaml{'generated_by'} =~ /ExtUtils::MakeMaker version ([\d\._]+)/) |
|
3257
|
0 |
0 |
if ($eummv < 6.2501) |
|
3266
|
0 |
0 |
unless $req |
|
3267
|
0 |
0 |
unless defined $v |
|
3268
|
0 |
0 |
if ($v =~ /\d/) { } |
|
|
0 |
0 |
elsif ($k =~ /[A-Za-z]/ and $v =~ /[A-Za-z]/ and $CPAN::META->exists('CPAN::Module', $v)) { } |
|
3283
|
0 |
0 |
if $do_replace |
|
3291
|
0 |
8 |
unless ($req or $breq) |
|
3293
|
0 |
0 |
unless ($build_dir = $$self{'build_dir'}) |
|
3298
|
0 |
0 |
if (-f $makefile and $fh = 'FileHandle'->new("<$makefile\000")) |
|
3301
|
0 |
0 |
if $CPAN::DEBUG |
|
3304
|
0 |
0 |
if /MakeMaker post_initialize section/ |
|
3308
|
0 |
0 |
unless $p |
|
3320
|
0 |
0 |
if (defined $$req{$m}) |
|
3323
|
0 |
0 |
if ($n =~ /^q\[(.*?)\]$/) |
|
3326
|
0 |
0 |
if (not $prevn or 'CPAN::Version'->vlt($prevn, $n)) |
|
3334
|
0 |
8 |
unless ($req or $breq) |
|
3335
|
0 |
0 |
unless my $build_dir = $$self{'build_dir'} |
|
3337
|
0 |
0 |
if (-f $buildfile) |
|
3338
|
0 |
0 |
if $CPAN::DEBUG |
|
3340
|
0 |
0 |
if (-f $build_prereqs) |
|
3341
|
0 |
0 |
if $CPAN::DEBUG |
|
3343
|
0 |
0 |
unless open FH, $build_prereqs |
|
3350
|
0 |
0 |
if ($@) { } |
|
3359
|
8 |
0 |
if ($req or $breq or $opt_req or $opt_breq) |
|
3375
|
0 |
0 |
if $CPAN::DEBUG |
|
3377
|
0 |
0 |
if ($$self{'badtestcnt'} > 0) |
|
3379
|
0 |
0 |
if $CPAN::DEBUG |
|
3384
|
0 |
0 |
if $CPAN::DEBUG |
|
3385
|
0 |
0 |
if $$self{$slot} |
|
3389
|
0 |
0 |
if $CPAN::DEBUG |
|
3390
|
0 |
0 |
if ($$self{'make_test'}) |
|
3391
|
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/) { } |
|
3396
|
0 |
0 |
if (UNIVERSAL::can($$self{'make_test'}, 'commandid') and $$self{'make_test'}->commandid == $CPAN::CurrentCommandId) |
|
3406
|
0 |
0 |
if ($self->tested_ok_but_not_installed) |
|
3413
|
0 |
0 |
if ($$self{'notest'}) |
|
3424
|
0 |
0 |
unless $$self{'writemakefile'} or $$self{'modulebuild'} |
|
3427
|
0 |
0 |
unless ($$self{'build_dir'}) |
|
3430
|
0 |
0 |
if $CPAN::DEBUG |
|
3435
|
0 |
0 |
unless ($build_dir = $$self{'build_dir'}) |
|
3441
|
0 |
0 |
if (-f $makefile and $fh = 'FileHandle'->new("<$makefile\000")) |
|
3444
|
0 |
0 |
if $CPAN::DEBUG |
|
3447
|
0 |
0 |
if /MakeMaker post_initialize section/ |
|
3451
|
0 |
0 |
unless $p |
|
3455
|
0 |
0 |
if ($p2 =~ /^q\[(.+)\]/) |
|
3461
|
0 |
0 |
if @exe_files |
|
3463
|
0 |
0 |
if (-f $buildparams) |
|
3464
|
0 |
0 |
if $CPAN::DEBUG |
|
3466
|
0 |
0 |
unless $$x[2]{'script_files'} |
|
3479
|
0 |
0 |
if $CPAN::DEBUG |
|
3480
|
0 |
0 |
if (my $goto = $self->prefs->{'goto'}) |
|
3485
|
0 |
0 |
unless $self->make |
|
3487
|
0 |
0 |
if (defined(my $sc = $self->shortcut_test)) |
|
3491
|
0 |
0 |
if ($CPAN::Signal) |
|
3496
|
0 |
0 |
$$self{'modulebuild'} ? : |
|
3498
|
0 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
3502
|
0 |
0 |
defined $ENV{'PERL5OPT'} ? : |
|
3505
|
0 |
0 |
if $$CPAN::Config{'use_prompt_default'} |
|
3506
|
0 |
0 |
if $$CPAN::Config{'use_prompt_default'} |
|
3510
|
0 |
0 |
unless my $builddir = $self->dir |
|
3513
|
0 |
0 |
unless (chdir($builddir)) |
|
3518
|
0 |
0 |
if $CPAN::DEBUG |
|
3521
|
0 |
0 |
if ($^O eq 'MacOS') |
|
3526
|
0 |
0 |
if ($$self{'modulebuild'}) |
|
3529
|
0 |
0 |
if ('CPAN::Version'->vlt($v, 2.62)) |
|
3533
|
0 |
0 |
unless ($self->id eq $thm->distribution->id) |
|
3542
|
0 |
0 |
unless ($$self{'force_update'}) |
|
3545
|
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')) |
|
3548
|
0 |
0 |
if (my(@reports) = &$have_tested_fcn('dist', $self->base_id)) |
|
3550
|
0 |
0 |
if ($reports[-1]{'grade'} =~ /^(?:PASS|UNKNOWN)$/) { } |
|
|
0 |
0 |
elsif ($reports[-1]{'grade'} =~ /^(?:FAIL|NA)$/) { } |
|
3554
|
0 |
0 |
if ($self->tested_ok_but_not_installed) |
|
3572
|
0 |
0 |
exists $$prefs_test{'commandline'} ? : |
|
|
0 |
0 |
if (my $commandline = exists $$prefs_test{'commandline'} ? $$prefs_test{'commandline'} : '') { } |
|
|
0 |
0 |
elsif ($$self{'modulebuild'}) { } |
|
3578
|
0 |
0 |
unless (-e 'Build' or $^O eq 'VMS' and -e 'Build.com') |
|
3586
|
0 |
0 |
$make_test_arg ? : |
|
3592
|
0 |
0 |
if ($self->prefs->{'test'}) |
|
3595
|
0 |
0 |
if $test_env |
|
3598
|
0 |
0 |
if ($expect_model and @{$$expect_model{'talk'};}) |
|
3600
|
0 |
0 |
if ($can_expect) { } |
|
3607
|
0 |
0 |
if ($want_expect) { } |
|
|
0 |
0 |
elsif ($self->_should_report('test')) { } |
|
3608
|
0 |
0 |
if ($self->_should_report('test')) |
|
3621
|
0 |
0 |
if ($tests_ok) { } |
|
3622
|
0 |
0 |
if ($but) |
|
3635
|
0 |
0 |
if ($but) { } |
|
|
0 |
0 |
elsif ($$self{'force_update'}) { } |
|
3659
|
0 |
0 |
$$self{'force_update'} ? : |
|
3668
|
0 |
0 |
unless $$self{'sponsored_mods'}{$m} > 0 |
|
3669
|
0 |
0 |
unless my $m_obj = 'CPAN::Shell'->expand('Module', $m) |
|
3675
|
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) { } |
|
3678
|
0 |
0 |
if $CPAN::DEBUG |
|
3688
|
0 |
0 |
if $CPAN::DEBUG |
|
3691
|
0 |
0 |
if $$m_obj{'mandatory'} |
|
3696
|
0 |
0 |
if (@prereq) |
|
3699
|
0 |
0 |
$cnt == 1 ? : |
|
3707
|
0 |
0 |
unless my $prefs = $self->prefs |
|
3708
|
0 |
0 |
unless my $where_prefs = $$prefs{$where} |
|
3709
|
0 |
0 |
if ($$where_prefs{'expect'}) { } |
|
|
0 |
0 |
elsif ($$where_prefs{'eexpect'}) { } |
|
3724
|
0 |
0 |
$$self{'modulebuild'} ? : |
|
3726
|
0 |
0 |
unless (exists $$self{'archived'}) |
|
3731
|
0 |
0 |
unless (exists $$self{'build_dir'}) |
|
3735
|
0 |
0 |
if (exists $$self{'writemakefile'} and $$self{'writemakefile'}->failed) |
|
3743
|
0 |
0 |
if exists $$self{'make_clean'} and $$self{'make_clean'} eq 'YES' |
|
3745
|
0 |
0 |
if @e |
|
3747
|
0 |
0 |
unless chdir($$self{'build_dir'}) |
|
3749
|
0 |
0 |
if $CPAN::DEBUG |
|
3751
|
0 |
0 |
if ($^O eq 'MacOS') |
|
3757
|
0 |
0 |
if ($$self{'modulebuild'}) { } |
|
3758
|
0 |
0 |
unless (-f 'Build') |
|
3770
|
0 |
0 |
if ($system_ok) { } |
|
3807
|
0 |
0 |
if $CPAN::DEBUG |
|
3808
|
0 |
0 |
if ($self->prefs->{'disabled'} and not $$self{'force_update'}) |
|
3854
|
0 |
0 |
if $CPAN::DEBUG |
|
3855
|
0 |
0 |
if (exists $$self{'install'}) |
|
3856
|
0 |
0 |
UNIVERSAL::can($$self{'install'}, 'text') ? : |
|
3859
|
0 |
0 |
if ($text =~ /^YES/) { } |
|
|
0 |
0 |
elsif ($text =~ /is only/) { } |
|
3872
|
0 |
0 |
if $$self{$slot} |
|
3885
|
0 |
0 |
if $CPAN::DEBUG |
|
3886
|
0 |
0 |
if (my $goto = $self->prefs->{'goto'}) |
|
3891
|
0 |
0 |
unless $self->test |
|
3893
|
0 |
0 |
if (defined(my $sc = $self->shortcut_install)) |
|
3897
|
0 |
0 |
if ($CPAN::Signal) |
|
3902
|
0 |
0 |
unless my $builddir = $self->dir |
|
3905
|
0 |
0 |
unless (chdir($builddir)) |
|
3910
|
0 |
0 |
if $CPAN::DEBUG |
|
3913
|
0 |
0 |
$$self{'modulebuild'} ? : |
|
3916
|
0 |
0 |
if ($^O eq 'MacOS') |
|
3922
|
0 |
0 |
if (my $commandline = $self->prefs->{'install'}{'commandline'}) { } |
|
|
0 |
0 |
elsif ($$self{'modulebuild'}) { } |
|
3926
|
0 |
0 |
exists $CPAN::HandleConfig::keys{'mbuild_install_build_command'} && $$CPAN::Config{'mbuild_install_build_command'} ? : |
|
3931
|
0 |
0 |
$^O eq 'VMS' ? : |
|
3945
|
0 |
0 |
$^O eq 'MSWin32' || $^O eq 'VMS' ? : |
|
3952
|
0 |
0 |
if ($reqtype eq 'b') |
|
3953
|
0 |
0 |
if ($brip eq 'no') { } |
|
|
0 |
0 |
elsif ($brip =~ m[^ask/(.+)]) { } |
|
3957
|
0 |
0 |
unless $default =~ /^(y|n)/i |
|
3965
|
0 |
0 |
unless ($want_install =~ /^y/i) |
|
3971
|
0 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
3975
|
0 |
0 |
defined $ENV{'PERL5OPT'} ? : |
|
3977
|
0 |
0 |
if $$CPAN::Config{'use_prompt_default'} |
|
3978
|
0 |
0 |
if $$CPAN::Config{'use_prompt_default'} |
|
3991
|
0 |
0 |
if ($close_ok) { } |
|
4001
|
0 |
0 |
if ($makeout =~ /permission/s and $> > 0 and !$mimc || $mimc eq 'CPAN::HandleConfig'->prefs_lookup($self, 'make')) |
|
4045
|
0 |
0 |
if ($CPAN::META->has_inst('Pod::Perldocs')) { } |
|
4046
|
0 |
0 |
unless my($perl) = $self->perl |
|
4051
|
0 |
0 |
unless (($wstatus = system(@args)) == 0) |
|
4069
|
0 |
0 |
if $CPAN::DEBUG |
|
4072
|
0 |
0 |
if ($CPAN::META->has_inst('File::Which')) { } |
|
4076
|
0 |
0 |
unless $pid = open(README, "which $binary|") |
|
4078
|
0 |
0 |
unless $pid |
|
4082
|
0 |
0 |
unless close README |
|
4087
|
0 |
0 |
if $CPAN::DEBUG and $out |
|
4098
|
0 |
0 |
if $CPAN::DEBUG |
|
4105
|
0 |
0 |
$web_browser ? : |
|
4109
|
0 |
0 |
if ($web_browser_out) { } |
|
4112
|
0 |
0 |
if $CPAN::DEBUG |
|
4121
|
0 |
0 |
if ($saved_file) |
|
4128
|
0 |
0 |
if ($html_converter_out) { } |
|
4131
|
0 |
0 |
unless defined $saved_file |
|
4135
|
0 |
0 |
unless $pid = open(README, "$html_converter $saved_file |") |
|
4139
|
0 |
0 |
if ($CPAN::META->has_usable('File::Temp')) { } |
|
4150
|
0 |
0 |
unless open $fh, ">$filename" |
|
4155
|
0 |
0 |
unless close README |
|
4158
|
0 |
0 |
if $CPAN::DEBUG |
|
4167
|
0 |
0 |
unless open FH, $tmpin |
|
4172
|
0 |
0 |
unless $fh_pager->open("|$pager") |
|
4195
|
0 |
0 |
if $CPAN::DEBUG |
|
4199
|
0 |
0 |
if ($CPAN::META->has_usable('File::Temp')) { } |
|
4212
|
0 |
0 |
if ($CPAN::META->has_usable('LWP')) { } |
|
4219
|
0 |
0 |
if ($@) { } |
|
4224
|
0 |
0 |
if $var = $$CPAN::Config{'http_proxy'} || $ENV{'http_proxy'} |
|
4226
|
0 |
0 |
if $var = $$CPAN::Config{'no_proxy'} || $ENV{'no_proxy'} |
|
4233
|
0 |
0 |
if ($res->is_success) { } |
|
4234
|
0 |
0 |
if $CPAN::DEBUG |
|
4238
|
0 |
0 |
if $CPAN::DEBUG |
|
4258
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
|
0 |
0 |
elsif ($^O eq 'VMS') { } |
|
4261
|
0 |
0 |
unless my($perl) = $self->perl |
|
4273
|
0 |
0 |
unless defined $phase |
|
4279
|
0 |
0 |
unless $test_report |
|
4282
|
0 |
0 |
if exists $$self{'should_report'} |
|
4286
|
0 |
0 |
if ($$self{'had_no_makefile_pl'}) |
|
4294
|
0 |
0 |
unless ($CPAN::META->has_inst('CPAN::Reporter')) |
|
4303
|
0 |
0 |
if ('CPAN::Version'->vlt($crv, 0.99)) |
|
4305
|
0 |
0 |
if ($phase eq 'test') { } |
|
4318
|
0 |
0 |
if ($self->is_dot_dist) |
|
4323
|
0 |
0 |
if ($self->prefs->{'patches'} and @{$self->prefs->{'patches'};} and $$self{'patched'}) |
|
4344
|
0 |
0 |
unless ($CPAN::META->has_inst('CPAN::DistnameInfo')) |
|
4347
|
0 |
0 |
unless ($CPAN::META->has_usable('LWP')) |
|
4350
|
0 |
0 |
unless ($CPAN::META->has_usable('File::Temp')) |
|
4368
|
0 |
0 |
if ($@) |
|
4373
|
0 |
0 |
unless ($resp->is_success) |
|
4387
|
0 |
0 |
unless close $fh |
|
4389
|
0 |
0 |
unless unlink $tfilename |
|
4394
|
0 |
0 |
if ($rversion eq $version) { } |
|
4395
|
0 |
0 |
unless ($this_version_seen++) |
|
4401
|
0 |
0 |
$arch eq $Config::Config{'archname'} ? : |
|
|
0 |
0 |
$grade eq 'FAIL' ? : |
|
|
0 |
0 |
$grade eq 'PASS' ? : |
|
4415
|
0 |
0 |
unless ($this_version_seen) |