From e5c8f387193723a108c2fcc38e80890de280e733 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Sun, 1 Jan 2023 19:06:33 +0100
Subject: [PATCH] fix for RT #145672

---
 t/NetServerTest.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/t/NetServerTest.pm b/t/NetServerTest.pm
index fd499e3..9f0b78c 100644
--- a/t/NetServerTest.pm
+++ b/t/NetServerTest.pm
@@ -53,7 +53,10 @@ sub prepare_test {
 
     if ($args->{'threads'}) {
         warn "# Checking can_thread\n" if debug;
-        ok(can_thread(), "Can thread on this platform".($@ ? " ($@)" : '')) || do { SKIP: { skip("Threads don't work on this platform", $N - 1) }; exit; };
+	if (!can_thread()) {
+	    diag("Cannot threads on this platform".($@ ? " ($@)" : ''));
+	    do { SKIP: { skip("Threads don't work on this platform", $N) }; exit; };
+	}
         warn "# Checked can_thread\n"  if debug;
     } else {
         warn "# Checking can_fork\n" if debug;
-- 
2.11.0