line |
true |
false |
branch |
81
|
0 |
0 |
if (defined $params and ref $params ne "HASH") |
93
|
0 |
0 |
unless $valid_params{$p} |
95
|
0 |
0 |
if (@invalid_params) |
100
|
0 |
0 |
unless $params->{'perl_workdir'} |
104
|
0 |
0 |
defined $params->{$p} ? : |
111
|
0 |
0 |
unless -d $data->{'path_to_perls'} |
113
|
0 |
0 |
unless -d $data->{'tarball_dir'} |
150
|
0 |
0 |
unless chdir $self->{'perl_workdir'} |
154
|
0 |
0 |
unless $describe |
157
|
0 |
0 |
unless chdir $currdir |
160
|
0 |
0 |
unless -f $manifest |
173
|
0 |
0 |
if ($Maintainers::Modules{$m}{'FILES'} =~ m[dist/]u) |
185
|
0 |
0 |
unless -f $metadata_file |
190
|
0 |
0 |
unless open my $IN, "<", $metadata_file |
193
|
0 |
0 |
if $l =~ /^(\#|\s*$)/u |
205
|
0 |
0 |
unless close $IN |
217
|
0 |
0 |
unless -f $older_perls_file |
310
|
0 |
0 |
unless (exists $self->{'distmodules'}{$m}{'DISTRIBUTION'}) |
324
|
0 |
0 |
unless ($makefile_pl_status{$d}) |
328
|
0 |
0 |
unless defined $tar |
333
|
0 |
0 |
if ($hasmpl) { } |
337
|
0 |
0 |
unless $hasmpl |
348
|
0 |
0 |
unless $f =~ m[^dist/]u |
350
|
0 |
0 |
if ($path =~ m[/(.*?)/Makefile\.PL$]u) |
353
|
0 |
0 |
unless $makefile_pl_status{$distro} |
362
|
0 |
0 |
if ($File::Find::name =~ /$pattern/u) |
364
|
0 |
0 |
if (not $makefile_pl_status{$distro}) |
378
|
0 |
0 |
unless exists $self->{'distmodules'}{$d}{'FILES'} |
380
|
0 |
0 |
unless (exists $makefile_pl_status{$distname}) |
422
|
0 |
0 |
if ($self->{'verbose'}) |
472
|
0 |
0 |
if (defined $distros) { } |
473
|
0 |
0 |
unless ref $distros eq "ARRAY" |
482
|
0 |
0 |
scalar @{$distros;} ? : |
483
|
0 |
0 |
if ($self->{'verbose'}) |
521
|
0 |
0 |
unless open my $IN1, "<", $self->{'older_perls_file'} |
524
|
0 |
0 |
if $l =~ /^(\#|\s*$)/u |
527
|
0 |
0 |
unless close $IN1 |
533
|
0 |
0 |
if $self->{'verbose'} |
536
|
0 |
0 |
unless -e $path_to_perl |
538
|
0 |
0 |
if $rv |
596
|
0 |
0 |
unless -d $results_dir |
610
|
0 |
0 |
unless chdir $self->{'temp_top_dir'} |
614
|
0 |
0 |
unless mkdir $temp_t_dir |
620
|
0 |
0 |
unless -f $testpl |
621
|
0 |
0 |
unless copy($testpl, $self->{'temp_t_dir'}) |
625
|
0 |
0 |
unless mkdir $temp_dist_dir |
634
|
0 |
0 |
unless chdir $self->{'currdir'} |
699
|
0 |
0 |
if (not defined $args) { } |
701
|
0 |
0 |
unless ref $args eq "HASH" |
711
|
0 |
0 |
if ($args->{'cat_summaries'}) |
757
|
0 |
0 |
if (not defined $thisrun{'configure'} || defined $thisrun{'make'} || defined $thisrun{'test'}) { } |
|
0 |
0 |
elsif ($thisrun{'configure'} and $thisrun{'make'} and $thisrun{'test'}) { } |
840
|
0 |
0 |
if $self->{'verbose'} |
845
|
0 |
0 |
unless mkdir $this_tempdir |
846
|
0 |
0 |
unless dircopy($source_dir, $this_tempdir) |
849
|
0 |
0 |
unless chdir $this_tempdir |
850
|
0 |
0 |
if $self->{'verbose'} |
857
|
0 |
0 |
if ($self->{'distro_metadata'}{$d}{'minimum_perl_version'} and $self->{'distro_metadata'}{$d}{'minimum_perl_version'} >= $p->{'canon'}) |
879
|
0 |
0 |
if ($self->{'verbose'}) |
889
|
0 |
0 |
if ($self->{'makefile_pl_status'}{$d} eq "cpan") |
891
|
0 |
0 |
if (-f $this_makefile_pl) |
900
|
0 |
0 |
unless $extract |
901
|
0 |
0 |
unless -f $destination |
903
|
0 |
0 |
unless -f $this_makefile_pl |
905
|
0 |
0 |
if ($self->{'distro_metadata'}{$d}{'needs_ppport_h'}) |
912
|
0 |
0 |
unless $extract |
913
|
0 |
0 |
unless -f $destination |
916
|
0 |
0 |
if ($self->{'distro_metadata'}{$d}{'needs_threads_h'}) |
923
|
0 |
0 |
unless $extract |
924
|
0 |
0 |
unless -f $destination |
927
|
0 |
0 |
if ($self->{'distro_metadata'}{$d}{'needs_shared_h'}) |
934
|
0 |
0 |
unless $extract |
935
|
0 |
0 |
unless -f $destination |
939
|
0 |
0 |
if $rv = system($cmd) |
940
|
0 |
0 |
$rv ? : |
941
|
0 |
0 |
unless ($$this_result{$p->{'canon'}}{'configure'}) |
947
|
0 |
0 |
if $rv = system(" make >> $debugfile 2>&1 ") |
949
|
0 |
0 |
$rv ? : |
950
|
0 |
0 |
unless ($$this_result{$p->{'canon'}}{'make'}) |
955
|
0 |
0 |
if $rv = system(" make test >> $debugfile 2>&1 ") |
957
|
0 |
0 |
$rv ? : |
959
|
0 |
0 |
if system " make clean 2>&1 1>/dev/null " |
963
|
0 |
0 |
unless chdir $self->{'temp_top_dir'} |
1008
|
0 |
0 |
unless open my $OUT, ">", $output |
1012
|
0 |
0 |
unless close $OUT |
1015
|
0 |
0 |
if $self->{'verbose'} |
1032
|
0 |
0 |
unless opendir my $DIR, $id_dir |
1036
|
0 |
0 |
unless closedir $DIR |
1082
|
0 |
0 |
if ($distmodules->{$m}{'UPSTREAM'} ne "blead") |
1085
|
0 |
0 |
if ($distmodules->{$m}{'MAINTAINER'} ne "P5P") |
1090
|
0 |
0 |
if ($verbose) |
1134
|
0 |
0 |
unless open my $IN, "<", $manifest |
1136
|
0 |
0 |
unless close $IN |