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; my $sdist = $self->_get_dist;
if (grep {$_->_get_dist eq $sdist} @$loop) { 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(); return();
} }
@ -156,7 +156,7 @@ sub get_failed_descendants {
my $c=1; my $c=1;
for my $mod_name (@$candidates) { 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); my $module = Module->new_module($mod_name);
if ($module->depends_on($self)) { if ($module->depends_on($self)) {
@ -164,7 +164,7 @@ sub get_failed_descendants {
} }
} }
print "\n"; print STDERR "\n";
$rev_depcache{$self->name} = [@total]; $rev_depcache{$self->name} = [@total];
__save_cache; __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; my %mods;
$|++;
LOOP: for my $mod ($data->{modules}->@*) { LOOP: for my $mod ($data->{modules}->@*) {
my $status = $data->{jobstatus}{$mod}{status} // ""; my $status = $data->{jobstatus}{$mod}{status} // "";
if ($status ne 'success') { if ($status ne 'success' && $status ne 'inc failed') {
print "DEP Checking $mod\n"; print STDERR "DEP Checking $mod\n";
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} = 0+@dependedonby; $mods{$mod} = 0+@dependedonby;
print "Count $mod => $mods{$mod}\n";; print "$mod $mods{$mod}\n";
} }
} }