#!/bin/bash
set -e
set -o pipefail

rm -rf stunt
mkdir stunt
cd stunt

#exec 3<&0 </dev/null

git init
git commit --allow-empty -m 'Test object'
head=`git rev-parse HEAD`

#exec <&3 3<&-

perl -we '
    use strict;

    our $file;
    our $count;

    sub complete_batch () {
        if ($file) {
            print STDERR "completing batch ($_)\n";
            close $file or die $!;
            system "git update-ref --stdin <batch"
                and die "$? $!";
        }
	$file = undef;
	$count = 0;
    }

    while (<>) {
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 STDERR "FOO\n";
    STDIN->error and die $!;
    complete_batch();
'