Don't open already-open files on Windows

[chaz/p5-File-KDBX] / t / hmac-block.t

diff --git a/t/hmac-block.t b/t/hmac-block.t
index d0488c6ea0bff0894a02f104cf96c0e10565283d..035d43319170dc90341d5f31fcf1e88b2d4bae8d 100644 (file)
--- a/t/hmac-block.t
+++ b/t/hmac-block.t
@@ -32,7 +32,7 @@ my $KEY = "\x01" x 64;
 }
 
 SKIP: {
-    skip 'Tests require fork' if !can_fork;
+    skip 'fork required to test long data streams' if !can_fork;
 
     my $expected_plaintext = "\x64" x (1024*1024*12 - 57);
 
@@ -44,9 +44,9 @@ SKIP: {
         $write = File::KDBX::IO::HmacBlock->new($write, key => $KEY);
         print $write $expected_plaintext;
         close($write) or die "close failed: $!";
-        # exit;
-        require POSIX;
-        POSIX::_exit(0);
+        exit;
+        # require POSIX;
+        # POSIX::_exit(0);
     }
 
     $read = File::KDBX::IO::HmacBlock->new($read, key => $KEY);