summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorAsk Bjørn Hansen <ask@develooper.com>2007-11-06 02:54:01 -0800
committerJunio C Hamano <gitster@pobox.com>2007-11-07 11:39:37 -0800
commit6aaa65da20a8f0a4c95834f73f0b20d5dc3aa3c6 (patch)
tree156dad9dfff5d084d723999ef99536543ffa3233 /perl
parentf49439e1e16713d8d531e8a0bbc3b0bd7df5a407 (diff)
downloadgit-6aaa65da20a8f0a4c95834f73f0b20d5dc3aa3c6.tar.gz
When exec() fails include the failing command in the error message
git-svn occasionally fails with no details as to what went wrong - this should help debug those situations. Signed-off-by: Ask Bjørn Hansen <ask@develooper.com> Signed-off-by: Junio C Hamano <gitster@pobox.com>
Diffstat (limited to 'perl')
-rw-r--r--perl/Git.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Git.pm b/perl/Git.pm
index 3f4080cbf8..dca92c8adb 100644
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -812,7 +812,7 @@ sub _cmd_exec {
$self->wc_subdir() and chdir($self->wc_subdir());
}
_execv_git_cmd(@args);
- die "exec failed: $!";
+ die qq[exec "@args" failed: $!];
}
# Execute the given Git command ($_[0]) with arguments ($_[1..])