finish

[version-charset-test.git] / check

diff --git a/check b/check
index df4b83f411f64bbbfb296834fb86fda1deab805d..a7ae489e6d0f17339317df2232902e04b6fe5c3d 100755 (executable)
--- 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();
 '