t/bin/git.bat

   1 @rem = '--*-Perl-*--\r
   2 @echo off\r
   3 if "%OS%" == "Windows_NT" goto WinNT\r
   4 perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9\r
   5 goto endofperl\r
   6 :WinNT\r
   7 perl -x -S %0 %*\r
   8 if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl\r
   9 if %errorlevel% == 9009 echo You do not have Perl in your PATH.\r
  10 if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul\r
  11 goto endofperl\r
  12 @rem ';\r
  13 #!/usr/bin/env perl\r
  14 #line 15\r
  15 \r
  16 # This has to work with olde perls\r
  17 \r
  18 my $filename = shift @ARGV;\r
  19 my $cmd = shift @ARGV;\r
  20 open FH, ">>$filename" or die "open($filename): $!";\r
  21 print FH join '|', $cmd, @ARGV;\r
  22 print FH "\n";\r
  23 close FH;\r
  24 \r
  25 exit(($cmd && $cmd eq 'FAIL') ? 1 : 0);\r
  26 \r
  27 __END__\r
  28 :endofperl\r