perl Git.pm: don't ignore signalled failure in _cmd_close()
Fix misbehavior in Git.pm that dates back to the very first version of the library in git.git added inb1edc53d06
(Introduce Git.pm (v4), 2006-06-24). When we fail to execute a command we shouldn't ignore all signals, those can happen e.g. if abort() is called, or if the command segfaults. Because of this we'd consider e.g. a command that died due to LSAN exiting with abort() successful, as is the case with the tests listed as running successfully with SANITIZE=leak in9081a421a6
(checkout: fix "branch info" memory leaks, 2021-11-16). We did run them successfully, but only because we ignored these errors. This was then made worse by the use of "abort_on_error=1" for LSAN added in85b81b35ff
(test-lib: set LSAN_OPTIONS to abort by default, 2017-09-05). Doing that makes sense, but without providing that option we'd have a "$? >> 8" of "23" on failure, with abort_on_error=1 we'll get "0". All of our tests pass even without the SIGPIPE exception being added here, but as the code appears to have been trying to ignore it let's keep ignoring it for now. Signed-off-by: Ævar Arnfjörð Bjarmason <avarab@gmail.com> Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
parent
4c53a8c20f
commit
6798b08e84
21
perl/Git.pm
21
perl/Git.pm
@ -1686,6 +1686,16 @@ sub _setup_git_cmd_env {
|
||||
# by searching for it at proper places.
|
||||
sub _execv_git_cmd { exec('git', @_); }
|
||||
|
||||
sub _is_sig {
|
||||
my ($v, $n) = @_;
|
||||
|
||||
# We are avoiding a "use POSIX qw(SIGPIPE SIGABRT)" in the hot
|
||||
# Git.pm codepath.
|
||||
require POSIX;
|
||||
no strict 'refs';
|
||||
$v == *{"POSIX::$n"}->();
|
||||
}
|
||||
|
||||
# Close pipe to a subprocess.
|
||||
sub _cmd_close {
|
||||
my $ctx = shift @_;
|
||||
@ -1698,9 +1708,16 @@ sub _cmd_close {
|
||||
} elsif ($? >> 8) {
|
||||
# The caller should pepper this.
|
||||
throw Git::Error::Command($ctx, $? >> 8);
|
||||
} elsif ($? & 127 && _is_sig($? & 127, "SIGPIPE")) {
|
||||
# we might e.g. closed a live stream; the command
|
||||
# dying of SIGPIPE would drive us here.
|
||||
} elsif ($? & 127 && _is_sig($? & 127, "SIGABRT")) {
|
||||
die sprintf('BUG?: got SIGABRT ($? = %d, $? & 127 = %d) when closing pipe',
|
||||
$?, $? & 127);
|
||||
} elsif ($? & 127) {
|
||||
die sprintf('got signal ($? = %d, $? & 127 = %d) when closing pipe',
|
||||
$?, $? & 127);
|
||||
}
|
||||
# else we might e.g. closed a live stream; the command
|
||||
# dying of SIGPIPE would drive us here.
|
||||
}
|
||||
}
|
||||
|
||||
|
@ -1,7 +1,6 @@
|
||||
#!/bin/sh
|
||||
test_description='git svn rmdir'
|
||||
|
||||
TEST_PASSES_SANITIZE_LEAK=true
|
||||
. ./lib-git-svn.sh
|
||||
|
||||
test_expect_success 'initialize repo' '
|
||||
|
@ -5,7 +5,6 @@
|
||||
|
||||
test_description='git svn respects rewriteRoot during rebuild'
|
||||
|
||||
TEST_PASSES_SANITIZE_LEAK=true
|
||||
. ./lib-git-svn.sh
|
||||
|
||||
mkdir import
|
||||
|
@ -5,7 +5,6 @@
|
||||
|
||||
test_description='git svn partial-rebuild tests'
|
||||
|
||||
TEST_PASSES_SANITIZE_LEAK=true
|
||||
. ./lib-git-svn.sh
|
||||
|
||||
test_expect_success 'initialize svnrepo' '
|
||||
|
@ -5,7 +5,6 @@
|
||||
|
||||
test_description='git svn branch for subproject clones'
|
||||
|
||||
TEST_PASSES_SANITIZE_LEAK=true
|
||||
. ./lib-git-svn.sh
|
||||
|
||||
test_expect_success 'initialize svnrepo' '
|
||||
|
Loading…
Reference in New Issue
Block a user