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