X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Fbin%2Fgit;h=d93614d1c6cea3e3e0891d624c4b5591b51d3838;hb=HEAD;hp=6d769f6906c0be54033ce2e47ef8cb8dab2fdf03;hpb=19bee8f647bfe6c94c5cb3cf6a60d7a43cbca222;p=perl%2Fmodules%2Frgit.git

diff --git a/t/bin/git b/t/bin/git
index 6d769f6..d93614d 100755
--- a/t/bin/git
+++ b/t/bin/git
@@ -3,7 +3,10 @@
 # This has to work with olde perls
 
 my $filename = shift @ARGV;
+my $cmd = shift @ARGV;
 open FH, ">>$filename" or die "open($filename): $!";
-print FH join '|', @ARGV;
+print FH join '|', $cmd, @ARGV;
 print FH "\n";
 close FH;
+
+exit(($cmd && $cmd eq 'FAIL') ? 1 : 0);