Convert all unimaginative (ie race condition) temporary file names to

[p5sagit/p5-mst-13.2.git] / t / io / layers.t

diff --git a/t/io/layers.t b/t/io/layers.t
index c399b2a..cddd436 100644 (file)
--- a/t/io/layers.t
+++ b/t/io/layers.t
@@ -125,17 +125,18 @@ SKIP: {
          $UTF8_STDIN ? [ "stdio", "utf8" ] : [ "stdio" ],
          "STDIN");
 
-    open(F, ">:crlf", "afile");
+    my $afile = tempfile();
+    open(F, ">:crlf", $afile);
 
     check([ PerlIO::get_layers(F) ],
          [ qw(stdio crlf) ],
          "open :crlf");
 
-    binmode(F, ":encoding(sjis)"); # "sjis" will be canonized to "shiftjis"
+    binmode(F, ":encoding(cp1047)"); 
 
     check([ PerlIO::get_layers(F) ],
-         [ qw[stdio crlf encoding(shiftjis) utf8] ],
-         ":encoding(sjis)");
+         [ qw[stdio crlf encoding(cp1047) utf8] ],
+         ":encoding(cp1047)");
     
     binmode(F, ":pop");
 
@@ -199,8 +200,8 @@ SKIP: {
     {
        use open(IN => ":crlf", OUT => ":encoding(cp1252)");
 
-       open F, "<afile";
-       open G, ">afile";
+       open F, '<', $afile;
+       open G, '>', $afile;
 
        check([ PerlIO::get_layers(F, input  => 1) ],
              [ qw(stdio crlf) ],
@@ -216,10 +217,8 @@ SKIP: {
 
     # Check that PL_sigwarn's reference count is correct, and that 
     # &PerlIO::Layer::NoWarnings isn't prematurely freed.
-    fresh_perl_like (<<'EOT', qr/^CODE/);
-open(UTF, "<:raw:encoding(utf8)", "afile") or die $!;
+    fresh_perl_like (<<"EOT", qr/^CODE/);
+open(UTF, "<:raw:encoding(utf8)", '$afile') or die \$!;
 print ref *PerlIO::Layer::NoWarnings{CODE};
 EOT
-
-    1 while unlink "afile";
 }