simcop2387/treedeps
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Gather only the non-inc failed stuff

Browse source
This commit is contained in:
Your Name 2017-04-18 17:24:30 -04:00
parent f9d91eb50b
commit 49340313d2
3 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/Module.pm
View file

@ -82,6 +82,8 @@ sub _is_core {
my $module = shift;
my ($name, $version) = split (/[\-~]/, $module);
return 0 unless $name;
my $ret = ($name eq 'perl' || Module::CoreList->first_release($name)) // 0;
return $ret;
@ -101,7 +103,7 @@ sub get_deps {
my $out;
run \@cmd, '>&', \$out;
my $deps = [map {Module->new_module($_)} grep {!_is_core($_)} split($/, $out)];
my $deps = [map {Module->new_module($_)} grep {!_is_core($_)} grep {defined $_ && $_ !~ /^\s*$/} split($/, $out)];
__save_cache;
return $deps;
}
@ -146,7 +148,6 @@ sub get_failed_descendants {
return();
}
if (ref($rev_depcache{$self->name}) eq 'ARRAY') {
return $rev_depcache{$self->name}->@*;
}
@ -159,13 +160,14 @@ sub get_failed_descendants {
my $module = Module->new_module($mod_name);
if ($module->depends_on($self)) {
push @total, $module->get_failed_descendants($candidates, $level+1, [@$loop, $self]);
push @total, $module, $module->get_failed_descendants($candidates, $level+1, [@$loop, $self]);
}
}
print "\n";
$rev_depcache{$self->name} = \@total;
$rev_depcache{$self->name} = [@total];
__save_cache;
return @total;
}

BIN
modcache.stor
View file

Binary file not shown.

6
statfailures.pl
View file

@ -13,7 +13,7 @@ use Data::Dumper;
my $data = retrieve 'everything.stor';
my @failed_list = grep {$data->{jobstatus}{$_}{status} ne 'success'} grep {defined $_ && $_ ne ''} keys($data->{jobstatus}->%*);
my @failed_list = grep {my $s=$data->{jobstatus}{$_}{status}; $s ne 'success' && $s ne 'inc failed'} grep {defined $_ && $_ ne ''} keys($data->{jobstatus}->%*);
my %mods;
@ -25,7 +25,7 @@ LOOP: for my $mod ($data->{modules}->@*) {
my $module = Module->new_module($mod);
my @dependedonby = $module->get_failed_descendants(\@failed_list);
$mods{$mod} = \@dependedonby;
print Dumper(\@dependedonby);
$mods{$mod} = 0+@dependedonby;
print "Count $mod => $mods{$mod}\n";;
}
}