test tweak for VMS (from Craig A. Berry)

p4raw-id: //depot/perl@4634

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];
 }