diff --git a/extract-code-added-in-commits.plx b/extract-code-added-in-commits.plx
index 2cebd11..2e414ed 100755
--- a/extract-code-added-in-commits.plx
+++ b/extract-code-added-in-commits.plx
@@ -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";