Add branch --set-upstream
[gitweb.git] / git-difftool.perl
index 948ff7f6fd2dacc41f10b2b92f6ad752001ea3be..ba5e60a45e2c4a8b54e6a58e656b3978dcb45633 100755 (executable)
@@ -82,4 +82,11 @@ sub generate_command
 }
 
 setup_environment();
-exec(generate_command());
+
+# ActiveState Perl for Win32 does not implement POSIX semantics of
+# exec* system call. It just spawns the given executable and finishes
+# the starting program, exiting with code 0.
+# system will at least catch the errors returned by git diff,
+# allowing the caller of git difftool better handling of failures.
+my $rc = system(generate_command());
+exit($rc | ($rc >> 8));