12 #git commit --allow-empty -m 'Test object'
13 #head=`git rev-parse HEAD`
23 sub complete_batch () {
25 print STDERR "check completing batch\n";
26 close $file or die $!;
27 system "git update-ref --stdin <batch"
28 and die $? < 0 ? $! : $?;
35 #print STDERR ">$_<\n";
36 $file ||= new IO::File "batch", ">" or die $!;
38 print $file "delete refs/tags/$_\n" or die $!;
39 $count++ < 100000 or complete_batch;
41 #print STDERR "FOO\n";
42 STDIN->error and die $!;