X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fgcf2.t;h=d12a4420b5c01099bbb0b8bbd0ef8d94460afb8a;hb=c2b4e6111a561095d5155402d6900dae09b704eb;hp=35b2f113e372320b964e9c2063291bfaa8c5a3a8;hpb=dc03cabb5d167618797e9e8a6ec615bda7b0638b;p=public-inbox.git
diff --git a/t/gcf2.t b/t/gcf2.t
index 35b2f113..d12a4420 100644
--- a/t/gcf2.t
+++ b/t/gcf2.t
@@ -1,5 +1,5 @@
#!perl -w
-# Copyright (C) 2020 all contributors
+# Copyright (C) 2020-2021 all contributors
# License: AGPL-3.0+
use strict;
use PublicInbox::TestCommon;
@@ -114,7 +114,7 @@ SKIP: {
$w->blocking($blk);
seek($fh, 0, SEEK_SET) or BAIL_OUT "seek: $!";
truncate($fh, 0) or BAIL_OUT "truncate: $!";
- defined(my $pid = fork) or BAIL_OUT "fork: $!";
+ my $pid = fork // BAIL_OUT "fork: $!";
if ($pid == 0) {
close $w;
tick; # wait for parent to block on writev