X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=check;h=a7ae489e6d0f17339317df2232902e04b6fe5c3d;hb=8562fabbfecb6a9635e90646c1a8b356cec2e375;hp=df4b83f411f64bbbfb296834fb86fda1deab805d;hpb=216a59654bf1e26c414287f6c47e384456439982;p=version-charset-test.git

diff --git a/check b/check
index df4b83f..a7ae489 100755
--- a/check
+++ b/check
@@ -9,8 +9,8 @@ cd stunt
 #exec 3<&0 </dev/null
 
 git init
-git commit --allow-empty -m 'Test object'
-head=`git rev-parse HEAD`
+#git commit --allow-empty -m 'Test object'
+#head=`git rev-parse HEAD`
 
 #exec <&3 3<&-
 
@@ -22,23 +22,23 @@ perl -we '
 
     sub complete_batch () {
         if ($file) {
-            print STDERR "completing batch ($_)\n";
+            print STDERR "check completing batch\n";
             close $file or die $!;
-            system "git update-ref --stdin <batch"
-                and die "$? $!";
+	    system "git update-ref --stdin <batch"
+                and die $? < 0 ? $! : $?;
         }
 	$file = undef;
 	$count = 0;
     }
 
     while (<>) {
-print STDERR ">$_<\n";
+#print STDERR ">$_<\n";
         $file ||= new IO::File "batch", ">" or die $!;
         chomp;
-	print $file "create refs/tags/$_ '$head'\n" or die $!;
-	$count++ < 1000 or complete_batch;
+	print $file "delete refs/tags/$_\n" or die $!;
+	$count++ < 100000 or complete_batch;
     }
-print STDERR "FOO\n";
+#print STDERR "FOO\n";
     STDIN->error and die $!;
     complete_batch();
 '