close the Peek.t temp file so the END block can unlink it

This was leaving detritus on Win32 builds

diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t
index 5a8efe3..6913d59 100644 (file)
--- a/ext/Devel-Peek/t/Peek.t
+++ b/ext/Devel-Peek/t/Peek.t
@@ -928,6 +928,7 @@ unless ($Config{useithreads}) {
     DeadCode();
     open(STDERR, ">&SAVERR") or die "Can't restore STDERR: $!";
     pass "no crash with DeadCode";
+    close OUT;
 }
 
 done_testing();