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 $module = shift;
my ($name, $version) = split (/[\-~]/, $module); my ($name, $version) = split (/[\-~]/, $module);
return 0 unless $name;
my $ret = ($name eq 'perl' || Module::CoreList->first_release($name)) // 0; my $ret = ($name eq 'perl' || Module::CoreList->first_release($name)) // 0;
return $ret; return $ret;
@ -101,7 +103,7 @@ sub get_deps {
my $out; my $out;
run \@cmd, '>&', \$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; __save_cache;
return $deps; return $deps;
} }
@ -146,7 +148,6 @@ sub get_failed_descendants {
return(); return();
} }
if (ref($rev_depcache{$self->name}) eq 'ARRAY') { if (ref($rev_depcache{$self->name}) eq 'ARRAY') {
return $rev_depcache{$self->name}->@*; return $rev_depcache{$self->name}->@*;
} }
@ -159,13 +160,14 @@ sub get_failed_descendants {
my $module = Module->new_module($mod_name); my $module = Module->new_module($mod_name);
if ($module->depends_on($self)) { 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"; print "\n";
$rev_depcache{$self->name} = \@total; $rev_depcache{$self->name} = [@total];
__save_cache;
return @total; 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 $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; my %mods;
@ -25,7 +25,7 @@ LOOP: for my $mod ($data->{modules}->@*) {
my $module = Module->new_module($mod); my $module = Module->new_module($mod);
my @dependedonby = $module->get_failed_descendants(\@failed_list); my @dependedonby = $module->get_failed_descendants(\@failed_list);
$mods{$mod} = \@dependedonby; $mods{$mod} = 0+@dependedonby;
print Dumper(\@dependedonby); print "Count $mod => $mods{$mod}\n";;
} }
} }