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

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

@ -269,14 +269,7 @@ sub RunCentralCommitMode($) {
} }
} }
############################################################################## ##############################################################################
# Main line of script sub RunComprehensiveMode() {
if (defined $CENTRAL_COMMIT) {
RunCentralCommitMode($CENTRAL_COMMIT);
}
exit 0;
foreach my $commitId (keys %WHITELIST_COMMIT_IDS) { foreach my $commitId (keys %WHITELIST_COMMIT_IDS) {
my $remainingCount = scalar(keys %childProcesses); my $remainingCount = scalar(keys %childProcesses);
while ($remainingCount >= $FORK_LIMIT) { while ($remainingCount >= $FORK_LIMIT) {
@ -306,6 +299,15 @@ while (scalar(keys %childProcesses) > 0) {
sleep 10; sleep 10;
} }
##############################################################################
# Main line of script
if (defined $CENTRAL_COMMIT) {
RunCentralCommitMode($CENTRAL_COMMIT);
}
exit 0;
my $startCnt = scalar(keys %WHITELIST_COMMIT_IDS); my $startCnt = scalar(keys %WHITELIST_COMMIT_IDS);
my $doneCnt = scalar(keys %finishedOperations); my $doneCnt = scalar(keys %finishedOperations);
print STDERR "ERROR: all children completed but ", $doneCnt - $startCnt, " not completed\n"; print STDERR "ERROR: all children completed but ", $doneCnt - $startCnt, " not completed\n";