projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Re: Named-capture regex syntax
[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];
}