From 2908e65bf01e6da425beb2e667b95d2b3f502a2d Mon Sep 17 00:00:00 2001
From: Kenneth Olwing <knth@cpan.org>
Date: Sun, 28 Aug 2022 21:14:02 +0200
Subject: [PATCH 1/2] 'TBD'

---
 dist/IO/t/io_unix.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/dist/IO/t/io_unix.t b/dist/IO/t/io_unix.t
index cb442dbef394..67178246d327 100644
--- a/dist/IO/t/io_unix.t
+++ b/dist/IO/t/io_unix.t
@@ -71,6 +71,7 @@ my $listen = IO::Socket::UNIX->new(Local => $PATH, Listen => 0);
 # local sockets.  Therefore we will retry with a File::Temp
 # generated filename from a temp directory.
 unless (defined $listen) {
+print STDERR "KEN1 TEMP\n";
     eval { require File::Temp };
     unless ($@) {
 	File::Temp->import( 'mktemp' );
@@ -100,7 +101,7 @@ if (my $pid = fork()) {
 	$sock->close;
 
 	waitpid($pid,0);
-	unlink($PATH) || $^O eq 'os2' || warn "Can't unlink $PATH: $!";
+	unlink($PATH) || $^O =~ /^(?:os2|MSWin32)$/ || warn "Can't unlink $PATH: $!";
 
 	print "ok 5\n";
     } else {
@@ -123,3 +124,4 @@ if (my $pid = fork()) {
 } else {
  die;
 }
+system('cmd.exe', '/c', 'del', $PATH) if $^O eq 'MSWin32';

From 27f5e997db787a80f597409bca2c4da48fd0b310 Mon Sep 17 00:00:00 2001
From: Kenneth Olwing <knth@cpan.org>
Date: Sun, 28 Aug 2022 21:17:28 +0200
Subject: [PATCH 2/2] 'TBD'

---
 dist/IO/t/io_unix.t | 1 -
 1 file changed, 1 deletion(-)

diff --git a/dist/IO/t/io_unix.t b/dist/IO/t/io_unix.t
index 67178246d327..e3720b197348 100644
--- a/dist/IO/t/io_unix.t
+++ b/dist/IO/t/io_unix.t
@@ -71,7 +71,6 @@ my $listen = IO::Socket::UNIX->new(Local => $PATH, Listen => 0);
 # local sockets.  Therefore we will retry with a File::Temp
 # generated filename from a temp directory.
 unless (defined $listen) {
-print STDERR "KEN1 TEMP\n";
     eval { require File::Temp };
     unless ($@) {
 	File::Temp->import( 'mktemp' );