t/bin/git

   1 #!/usr/bin/env perl
   2
   3 # This has to work with olde perls
   4
   5 my $filename = shift @ARGV;
   6 my $cmd = shift @ARGV;
   7 open FH, ">>$filename" or die "open($filename): $!";
   8 print FH join '|', $cmd, @ARGV;
   9 print FH "\n";
  10 close FH;
  11
  12 exit(($cmd && $cmd eq 'FAIL') ? 1 : 0);