Conservancy/gpl-compliance-tools
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Create a separate comprehensive mode

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-05-02 08:47:22 -07:00
parent cc10317ec7
commit ab33daa5d8
1 changed files with 19 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
extract-code-added-in-commits.plx
View file

@ -269,23 +269,16 @@ sub RunCentralCommitMode($) {
}
}
##############################################################################
# Main line of script
if (defined $CENTRAL_COMMIT) {
RunCentralCommitMode($CENTRAL_COMMIT);
}
exit 0;
foreach my $commitId (keys %WHITELIST_COMMIT_IDS) {
my $remainingCount = scalar(keys %childProcesses);
while ($remainingCount >= $FORK_LIMIT) {
print STDERR "Sleep a bit while $remainingCount children going for these commits ",
join(", ", sort values %childProcesses), "\n" if $VERBOSE;
sleep 10;
$remainingCount = scalar(keys %childProcesses);
}
my $forkCount = scalar(keys %childProcesses) + 1;
sub RunComprehensiveMode() {
foreach my $commitId (keys %WHITELIST_COMMIT_IDS) {
my $remainingCount = scalar(keys %childProcesses);
while ($remainingCount >= $FORK_LIMIT) {
print STDERR "Sleep a bit while $remainingCount children going for these commits ",
join(", ", sort values %childProcesses), "\n" if $VERBOSE;
sleep 10;
$remainingCount = scalar(keys %childProcesses);
}
my $forkCount = scalar(keys %childProcesses) + 1;
my $pid = fork();
die "cannot fork: $!" unless defined $pid;
if ($pid == 0) { # The new child process is here
@ -306,6 +299,15 @@ while (scalar(keys %childProcesses) > 0) {
sleep 10;
}
##############################################################################
# Main line of script
if (defined $CENTRAL_COMMIT) {
RunCentralCommitMode($CENTRAL_COMMIT);
}
exit 0;
my $startCnt = scalar(keys %WHITELIST_COMMIT_IDS);
my $doneCnt = scalar(keys %finishedOperations);
print STDERR "ERROR: all children completed but ", $doneCnt - $startCnt, " not completed\n";