]> git.vpit.fr Git - perl/modules/rgit.git/blob - t/bin/git
Improve the class delegation mechanism in App::Rgit::Command, and test it
[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;