Merge branch 'maint'

[git.git] / perl / Git.pm

diff --git a/perl/Git.pm b/perl/Git.pm
index 3f4080cbf84e16ab3dd21a82d9948c5646c1c40f..dca92c8adb52e212ef96410d3efd4deaa28e385f 100644 (file)
--- 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..])