| line |
true |
false |
branch |
|
129
|
0 |
0 |
if (defined $params and ref $params ne "HASH") |
|
143
|
0 |
0 |
unless $valid_params{$p} |
|
145
|
0 |
0 |
if (@invalid_params) |
|
150
|
0 |
0 |
unless $params->{'perl_workdir'} |
|
154
|
0 |
0 |
defined $params->{$p} ? : |
|
165
|
0 |
0 |
unless -d $data->{'path_to_perls'} |
|
167
|
0 |
0 |
unless -d $data->{'tarball_dir'} |
|
204
|
0 |
0 |
unless chdir $self->{'perl_workdir'} |
|
208
|
0 |
0 |
unless $describe |
|
211
|
0 |
0 |
unless chdir $currdir |
|
214
|
0 |
0 |
unless -f $manifest |
|
227
|
0 |
0 |
if ($Maintainers::Modules{$m}{'FILES'} =~ m[dist/]u) |
|
237
|
0 |
0 |
unless -f $self->{'distro_metadata_file'} |
|
242
|
0 |
0 |
unless open my $IN, "<", $self->{'distro_metadata_file'} |
|
245
|
0 |
0 |
if $l =~ /^(\#|\s*$)/u |
|
257
|
0 |
0 |
unless close $IN |
|
268
|
0 |
0 |
unless -f $self->{'older_perls_file'} |
|
360
|
0 |
0 |
unless (exists $self->{'distmodules'}{$m}{'DISTRIBUTION'}) |
|
374
|
0 |
0 |
unless ($makefile_pl_status{$d}) |
|
378
|
0 |
0 |
unless defined $tar |
|
383
|
0 |
0 |
if ($hasmpl) { } |
|
387
|
0 |
0 |
unless $hasmpl |
|
398
|
0 |
0 |
unless $f =~ m[^dist/]u |
|
400
|
0 |
0 |
if ($path =~ m[/(.*?)/Makefile\.PL$]u) |
|
403
|
0 |
0 |
unless $makefile_pl_status{$distro} |
|
412
|
0 |
0 |
if ($File::Find::name =~ /$pattern/u) |
|
414
|
0 |
0 |
if (not $makefile_pl_status{$distro}) |
|
428
|
0 |
0 |
unless exists $self->{'distmodules'}{$d}{'FILES'} |
|
430
|
0 |
0 |
unless (exists $makefile_pl_status{$distname}) |
|
472
|
0 |
0 |
if ($self->{'verbose'}) |
|
522
|
0 |
0 |
if (defined $distros) { } |
|
523
|
0 |
0 |
unless ref $distros eq "ARRAY" |
|
532
|
0 |
0 |
scalar @{$distros;} ? : |
|
533
|
0 |
0 |
if ($self->{'verbose'}) |
|
571
|
0 |
0 |
unless open my $IN1, "<", $self->{'older_perls_file'} |
|
574
|
0 |
0 |
if $l =~ /^(\#|\s*$)/u |
|
577
|
0 |
0 |
unless close $IN1 |
|
583
|
0 |
0 |
if $self->{'verbose'} |
|
586
|
0 |
0 |
unless -e $path_to_perl |
|
588
|
0 |
0 |
if $rv |
|
646
|
0 |
0 |
unless -d $results_dir |
|
660
|
0 |
0 |
unless chdir $self->{'temp_top_dir'} |
|
664
|
0 |
0 |
unless mkdir $temp_t_dir |
|
670
|
0 |
0 |
unless -f $testpl |
|
671
|
0 |
0 |
unless copy($testpl, $self->{'temp_t_dir'}) |
|
675
|
0 |
0 |
unless mkdir $temp_dist_dir |
|
684
|
0 |
0 |
unless chdir $self->{'currdir'} |
|
749
|
0 |
0 |
if (not defined $args) { } |
|
751
|
0 |
0 |
unless ref $args eq "HASH" |
|
761
|
0 |
0 |
if ($args->{'cat_summaries'}) |
|
807
|
0 |
0 |
if (not defined $thisrun{'configure'} || defined $thisrun{'make'} || defined $thisrun{'test'}) { } |
|
|
0 |
0 |
elsif ($thisrun{'configure'} and $thisrun{'make'} and $thisrun{'test'}) { } |
|
890
|
0 |
0 |
if $self->{'verbose'} |
|
895
|
0 |
0 |
unless mkdir $this_tempdir |
|
896
|
0 |
0 |
unless dircopy($source_dir, $this_tempdir) |
|
899
|
0 |
0 |
unless chdir $this_tempdir |
|
900
|
0 |
0 |
if $self->{'verbose'} |
|
907
|
0 |
0 |
if ($self->{'distro_metadata'}{$d}{'minimum_perl_version'} and $self->{'distro_metadata'}{$d}{'minimum_perl_version'} >= $p->{'canon'}) |
|
929
|
0 |
0 |
if ($self->{'verbose'}) |
|
939
|
0 |
0 |
if ($self->{'makefile_pl_status'}{$d} eq "cpan") |
|
941
|
0 |
0 |
if (-f $this_makefile_pl) |
|
950
|
0 |
0 |
unless $extract |
|
951
|
0 |
0 |
unless -f $destination |
|
953
|
0 |
0 |
unless -f $this_makefile_pl |
|
955
|
0 |
0 |
if ($self->{'distro_metadata'}{$d}{'needs_ppport_h'}) |
|
962
|
0 |
0 |
unless $extract |
|
963
|
0 |
0 |
unless -f $destination |
|
966
|
0 |
0 |
if ($self->{'distro_metadata'}{$d}{'needs_threads_h'}) |
|
973
|
0 |
0 |
unless $extract |
|
974
|
0 |
0 |
unless -f $destination |
|
977
|
0 |
0 |
if ($self->{'distro_metadata'}{$d}{'needs_shared_h'}) |
|
984
|
0 |
0 |
unless $extract |
|
985
|
0 |
0 |
unless -f $destination |
|
989
|
0 |
0 |
if $rv = system($cmd) |
|
990
|
0 |
0 |
$rv ? : |
|
991
|
0 |
0 |
unless ($$this_result{$p->{'canon'}}{'configure'}) |
|
997
|
0 |
0 |
if $rv = system(" make >> $debugfile 2>&1 ") |
|
999
|
0 |
0 |
$rv ? : |
|
1000
|
0 |
0 |
unless ($$this_result{$p->{'canon'}}{'make'}) |
|
1005
|
0 |
0 |
if $rv = system(" make test >> $debugfile 2>&1 ") |
|
1007
|
0 |
0 |
$rv ? : |
|
1009
|
0 |
0 |
if system " make clean 2>&1 1>/dev/null " |
|
1013
|
0 |
0 |
unless chdir $self->{'temp_top_dir'} |
|
1058
|
0 |
0 |
unless open my $OUT, ">", $output |
|
1062
|
0 |
0 |
unless close $OUT |
|
1065
|
0 |
0 |
if $self->{'verbose'} |
|
1082
|
0 |
0 |
unless opendir my $DIR, $id_dir |
|
1086
|
0 |
0 |
unless closedir $DIR |
|
1132
|
0 |
0 |
if ($distmodules->{$m}{'UPSTREAM'} ne "blead") |
|
1135
|
0 |
0 |
if ($distmodules->{$m}{'MAINTAINER'} ne "P5P") |
|
1140
|
0 |
0 |
if ($verbose) |
|
1184
|
0 |
0 |
unless open my $IN, "<", $manifest |
|
1186
|
0 |
0 |
unless close $IN |