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

Better output, and its working. going to do long run

Browse source
This commit is contained in:
Your Name 2017-04-18 17:29:14 -04:00
parent 49340313d2
commit e4be125b85
2 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/Module.pm
View file

@ -144,7 +144,7 @@ sub get_failed_descendants {
my $sdist = $self->_get_dist;
if (grep {$_->_get_dist eq $sdist} @$loop) {
print "Loop detected with ", $self->name, ". Short circuiting\n";
print STDERR "Loop detected with ", $self->name, ". Short circuiting\n";
return();
}
@ -156,7 +156,7 @@ sub get_failed_descendants {
my $c=1;
for my $mod_name (@$candidates) {
printf "%03d %05d\r", $level, $c++;
print STDERR sprintf "%03d %05d\r", $level, $c++;
my $module = Module->new_module($mod_name);
if ($module->depends_on($self)) {
@ -164,7 +164,7 @@ sub get_failed_descendants {
}
}
print "\n";
print STDERR "\n";
$rev_depcache{$self->name} = [@total];
__save_cache;

8
statfailures.pl
View file

@ -17,15 +17,17 @@ my @failed_list = grep {my $s=$data->{jobstatus}{$_}{status}; $s ne 'success' &&
my %mods;
$|++;
LOOP: for my $mod ($data->{modules}->@*) {
my $status = $data->{jobstatus}{$mod}{status} // "";
if ($status ne 'success') {
print "DEP Checking $mod\n";
if ($status ne 'success' && $status ne 'inc failed') {
print STDERR "DEP Checking $mod\n";
my $module = Module->new_module($mod);
my @dependedonby = $module->get_failed_descendants(\@failed_list);
$mods{$mod} = 0+@dependedonby;
print "Count $mod => $mods{$mod}\n";;
print "$mod $mods{$mod}\n";
}
}