Avoid leaving a VAR.txt after testing terminates on any platform where

you can't unlink an open file by instead opening $^X for read to get a
file handle for test purposes.

p4raw-id: //depot/perl@34639

diff --git a/ext/XS/APItest/t/svpeek.t b/ext/XS/APItest/t/svpeek.t
index 3afb039..69d80d7 100644 (file)
--- a/ext/XS/APItest/t/svpeek.t
+++ b/ext/XS/APItest/t/svpeek.t
@@ -58,11 +58,10 @@ like (DPeek ($1), qr'^PVMG\("',                     ' $1');
   is (DPeek (sub {}),  '\CV(__ANON__)',        'sub {}');
 
 { our ($VAR, @VAR, %VAR);
-  open VAR, ">VAR.txt";
+  open VAR, "<", $^X or die "Can't open $^X: $!";
   sub VAR {}
   format VAR =
 .
-  END { unlink "VAR.txt" };
 
   is (DPeek ( $VAR),   'UNDEF',                ' $VAR undef');
   is (DPeek (\$VAR),   '\UNDEF',               '\$VAR undef');