Don't open already-open files on Windows

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

diff --git a/t/hash-block.t b/t/hash-block.t
index 78008ab5d0a08ff09191ecf2c918dc9287fcd2f6..3bf32617e0a15153339f0c9661b7d70677137af5 100644 (file)
--- a/t/hash-block.t
+++ b/t/hash-block.t
@@ -28,7 +28,7 @@ use Test::More;
 }
 
 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);
 
@@ -40,9 +40,9 @@ SKIP: {
         $write = File::KDBX::IO::HashBlock->new($write);
         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::HashBlock->new($read);