提交 c8da1cbf 编写于 作者: J Ján Tomko

test-wrap-argv: use map and join instead of a for cycle

We have a list of parameters in @args, that need to be rewrapped
and separated by a space and escaped newline: " \\\n", with the
exception of the last one, which only needs a newline.

Instead of a for cycle, rewrap the individual arguments using map,
and interleave them with escaped newlines by using join.
上级 2f071f1f
......@@ -100,18 +100,10 @@ sub rewrap_line {
}
}
# Print env + command first
print join(" \\\n", @env, $cmd), " \\\n";
# We might have to split line argument values...
for (my $i = 0; $i <= $#args; $i++) {
print &rewrap_arg($args[$i]);
if ($i != $#args) {
print " \\\n";
} else {
print "\n";
}
}
@args = map { &rewrap_arg($_) } @args;
# Print env + command first
print join(" \\\n", @env, $cmd, @args), "\n";
}
sub rewrap_arg {
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册