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

[Nicholas Clark]

Change 34639 by [EMAIL PROTECTED] on 2008/10/29 19:34:05

        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.

Affected files ...

... //depot/perl/ext/XS/APItest/t/svpeek.t#4 edit

Differences ...

==== //depot/perl/ext/XS/APItest/t/svpeek.t#4 (text) ====
Index: perl/ext/XS/APItest/t/svpeek.t
--- perl/ext/XS/APItest/t/svpeek.t#3~34433~     2008-09-27 02:27:59.000000000 
-0700
+++ perl/ext/XS/APItest/t/svpeek.t      2008-10-29 12:34:05.000000000 -0700
@@ -58,11 +58,10 @@
   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');
End of Patch.