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

should be ready for second pass now

Browse source
This commit is contained in:
Your Name 2017-04-18 15:02:48 -04:00
parent 0bf0c7bdf4
commit 879c4ac4e8
4 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
everything.stor
View file

Binary file not shown.

4
fixfailed.pl
View file

@ -13,6 +13,8 @@ for my $mod (keys $data->{jobstatus}->%*) {
} }
# Remove invalid names from the list # Remove invalid names from the list
$data->{modules} = [grep {m|[/ ]|} $data->{modules}-@*]; $data->{modules} = [grep {!m|[/ ]|} $data->{modules}->@*];
print Dumper($data->{modules});
store $data, 'everything.stor'; store $data, 'everything.stor';

BIN
modcache.stor
View file

Binary file not shown.

3
run.pl
View file

@ -32,7 +32,7 @@ GetOptions ("module=s" => \$opt_module,
if ((!$opt_module && !$opt_cpanfile) || ($opt_module && $opt_cpanfile) || $opt_help) { if ((!$opt_module && !$opt_cpanfile) || ($opt_module && $opt_cpanfile) || $opt_help) {
print "Call with either --cpanfile xor --module to specify what to test.\n", print "Call with either --cpanfile xor --module to specify what to test.\n",
"Use --perlbrew_env to specify which perl install to use, defaults to blead\n", "Use --perlbrew_env to specify which perl install to use, defaults to blead\n",
"Add --jobstor to save progress for resuming, and examining later\n"; "Add --jobstor to save progress for resuming, and examining later\n",
"Use --pass to do another pass on the modules, defaults to 1, only reruns failures\n"; "Use --pass to do another pass on the modules, defaults to 1, only reruns failures\n";
exit(1); exit(1);
} }
@ -71,7 +71,6 @@ sub __save_cache {
}; };
END {__save_cache}; END {__save_cache};
for my $mod (@modules) { for my $mod (@modules) {
print "Testing $mod\n"; print "Testing $mod\n";
my $status = $jobstatus{$mod}{status} // ""; my $status = $jobstatus{$mod}{status} // "";