#!/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 "check completing batch\n";
            close $file or die $!;
	    system "git update-ref --stdin <batch"
                and die $? < 0 ? $! : $?;
        }
	$file = undef;
	$count = 0;
    }

    while (<>) {
#print STDERR ">$_<\n";
        $file ||= new IO::File "batch", ">" or die $!;
        chomp;
	print $file "delete refs/tags/$_\n" or die $!;
	$count++ < 100000 or complete_batch;
    }
#print STDERR "FOO\n";
    STDIN->error and die $!;
    complete_batch();
'