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 b42aa235e4d9699bb345da82236952402d711f68..3bf32617e0a15153339f0c9661b7d70677137af5 100644 (file)
--- a/t/hash-block.t
+++ b/t/hash-block.t
@@ -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);