diff options
author | Eric Wong <e@80x24.org> | 2021-09-22 02:24:30 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-09-22 05:21:19 +0000 |
commit | 28d5a8d647e3ab56cc5570af0d6f3ccf75dc91f2 (patch) | |
tree | abc69aaba694c69febf53ef1965763464035e6bf /lib/PublicInbox/TestCommon.pm | |
parent | 30cc504b0e88302588ca26e91b8005ec62d5d6f2 (diff) | |
download | public-inbox-28d5a8d647e3ab56cc5570af0d6f3ccf75dc91f2.tar.gz |
This fixes the occasional t/lei-sigpipe.t infinite loop under "make check-run". Link: http://nntp.perl.org/group/perl.perl5.porters/258784 <CAHhgV8hPbcmkzWizp6Vijw921M5BOXixj4+zTh3nRS9vRBYk8w@mail.gmail.com> Followup-to: b552bb9150775fe4 ("daemon+watch: fix localization of %SIG for non-signalfd users")
Diffstat (limited to 'lib/PublicInbox/TestCommon.pm')
-rw-r--r-- | lib/PublicInbox/TestCommon.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm index 9e152394..92a7db36 100644 --- a/lib/PublicInbox/TestCommon.pm +++ b/lib/PublicInbox/TestCommon.pm @@ -317,7 +317,8 @@ sub run_script ($;$$) { # note: "local *STDIN = *STDIN;" and so forth did not work in # old versions of perl local %ENV = $env ? (%ENV, %$env) : %ENV; - local %SIG = %SIG; + local @SIG{keys %SIG} = map { undef } values %SIG; + local $SIG{FPE} = 'IGNORE'; # Perl default local $0 = join(' ', @$cmd); my $orig_io = _prepare_redirects($fhref); my $cwdfh = $lei_cwdfh; |