For-non-perlio places we need STDOUT back.

[perl5.git] / t / io / nargv.t

diff --git a/t/io/nargv.t b/t/io/nargv.t
index f32e40d..fb13857 100755 (executable)
--- a/t/io/nargv.t
+++ b/t/io/nargv.t
@@ -56,7 +56,7 @@ sub other {
 }
 
 sub mkfiles {
-    my @files = map { "scratch.$_" } @_;
+    my @files = map { "scratch$_" } @_;
     return wantarray ? @files : $files[-1];
 }