From c791fd9ecc60b7bd6f41b18f928279f8df5cc733 Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Fri, 28 Apr 2023 01:08:19 +0000
Subject: [PATCH] t/gzip_filter: enhance diagnostics on missing SIGPIPE

I encountered this SIGPIPE test not working as intended on
FreeBSD 12.4 once (out of hundreds of runs); but can't reproduce
it...
---
 t/gzip_filter.t | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/t/gzip_filter.t b/t/gzip_filter.t
index b349ae58c..97eac2d04 100644
--- a/t/gzip_filter.t
+++ b/t/gzip_filter.t
@@ -1,7 +1,7 @@
-# Copyright (C) 2020-2021 all contributors <meta@public-inbox.org>
+#!perl -w
+# Copyright (C) all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
-use strict;
-use Test::More;
+use v5.12;
 use IO::Handle (); # autoflush
 use Fcntl qw(SEEK_SET);
 use PublicInbox::TestCommon;
@@ -31,7 +31,7 @@ require_ok 'PublicInbox::GzipFilter';
 	open my $fh, '<', 'COPYING' or die "open(COPYING): $!";
 	my $buf = do { local $/; <$fh> };
 	while ($filter->write($buf .= rand)) {}
-	ok($sigpipe, 'got SIGPIPE');
+	ok($sigpipe, 'got SIGPIPE') or diag "\$!=$!";
 	close $w;
 }
 done_testing;
-- 
2.47.3