3 files changed, 3 insertions, 3 deletions
diff --git a/t/gcf2.t b/t/gcf2.t
index fa907c8b..d12a4420 100644
--- a/t/gcf2.t
+++ b/t/gcf2.t
@@ -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
diff --git a/t/imap_tracker.t b/t/imap_tracker.t
index be7c6e65..90dea99f 100644
--- a/t/imap_tracker.t
+++ b/t/imap_tracker.t
@@ -29,7 +29,7 @@ SKIP: {
          diag "TEST_STRESS_NPROC=$nproc TEST_STRESS_NR=$nr";
          require POSIX;
          for my $n (1..$nproc) {
-                defined(my $pid = fork) or BAIL_OUT "fork: $!";
+                my $pid = fork // BAIL_OUT "fork: $!";
                  if ($pid == 0) {
                          my $url = "imap://example.com/INBOX.$$";
                          my $uidval = time;
diff --git a/t/run.perl b/t/run.perl
index b7cb988b..96db3045 100755
--- a/t/run.perl
+++ b/t/run.perl
@@ -128,7 +128,7 @@ my $eof; # we stop respawning if true
  
  my $start_worker = sub {
          my ($i, $j, $rd, $todo) = @_;
-        defined(my $pid = fork) or DIE "fork: $!";
+        my $pid = fork // DIE "fork: $!";
          if ($pid == 0) {
                  $worker = $$;
                  while (1) {