Import rgit-0.01

[perl/modules/rgit.git] / t / bin / git

#!/usr/bin/env perl

# This has to work with olde perls

my $filename = shift @ARGV;
open FH, ">>$filename" or die "open($filename): $!";
print FH join '|', @ARGV;
print FH "\n";
close FH;