From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 4 Nov 2016 15:38:21 +0000 (+0000)
Subject: check better output smaller batches
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=version-charset-test.git;a=commitdiff_plain;h=d295f1e582b0c2e87d233f4aa2218296bc26821c

check better output smaller batches
---

diff --git a/check b/check
index 0a809e0..7ffa2da 100755
--- a/check
+++ b/check
@@ -53,7 +53,7 @@ perl -we '
 	waitpid $pid, 0 == $pid or die $!;
 	die "$oldbatch $?" if $?;
 	unlink "b$oldbatch" or die "$oldbatch $!";
-        print STDERR "check completed $oldbatch [$pid] #$cpu\n";
+#        print STDERR "check completed $oldbatch [$pid] #$cpu\n";
 	push @freecpus, $cpu;
     }
 
@@ -62,7 +62,7 @@ perl -we '
 
 	close $file or die $!;
 
-        print STDERR "check closing $batch ($count)\n";
+#        print STDERR "check closing $batch ($count)\n";
 
 	await_task unless @freecpus;
 
@@ -78,7 +78,7 @@ perl -we '
 	    exec qw(eatmydata git update-ref --stdin);
 	    die $!;
 	}
-        print STDERR "check spawned $batch ($count) [$pid] #$cpu\n";
+#        print STDERR "check spawned $batch ($count) [$pid] #$cpu\n";
     	push @tasks, [ $pid, $cpu, $batch ];
 	$batch++;
 	$file = undef;
@@ -90,10 +90,11 @@ perl -we '
         $file ||= new IO::File "b$batch", ">" or die $!;
         chomp;
 	print $file "delete refs/tags/$_\n" or die $!;
-	$count++ < 100000 or complete_batch;
+	$count++ < 1000 or complete_batch;
     }
 #print STDERR "FOO\n";
     STDIN->error and die $!;
     complete_batch();
     await_task while @tasks;
+    print STDERR "check happy all done\n";
 '