Close the file so it can be (a) removed (b) reopened.

p4raw-id: //depot/perl@15309

diff --git a/ext/B/t/xref.t b/ext/B/t/xref.t
index 10f868a..8b14355 100644 (file)
--- a/ext/B/t/xref.t
+++ b/ext/B/t/xref.t
@@ -94,6 +94,7 @@ is(
 );
 
 END {
+    close XREF;
     1 while unlink $file;
 }