]> git.vpit.fr Git - perl/modules/rgit.git/blob - t/bin/git
Noop
[perl/modules/rgit.git] / t / bin / git
1 #!/usr/bin/env perl
2
3 # This has to work with olde perls
4
5 my $filename = shift @ARGV;
6 open FH, ">>$filename" or die "open($filename): $!";
7 print FH join '|', @ARGV;
8 print FH "\n";
9 close FH;