Add regression test for bug #38475

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

diff --git a/t/io/nargv.t b/t/io/nargv.t
index f32e40d..97ab639 100755 (executable)
--- a/t/io/nargv.t
+++ b/t/io/nargv.t
@@ -44,6 +44,7 @@ sub show {
 }
 
 sub other {
+    no warnings 'once';
     print STDOUT "# Calling other\n";
     local *ARGV;
     local *ARGVOUT;
@@ -56,7 +57,7 @@ sub other {
 }
 
 sub mkfiles {
-    my @files = map { "scratch.$_" } @_;
+    my @files = map { "scratch$_" } @_;
     return wantarray ? @files : $files[-1];
 }