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

test-wrap-argv: return a string in rewrap_line

Leave the printing up to &rewrap.
上级 c8da1cbf
......@@ -59,7 +59,7 @@ sub rewrap {
# Now each @lines represents a single command, we
# can process them
foreach my $line (@lines) {
&rewrap_line ($line);
print &rewrap_line ($line);
}
}
......@@ -103,7 +103,7 @@ sub rewrap_line {
# We might have to split line argument values...
@args = map { &rewrap_arg($_) } @args;
# Print env + command first
print join(" \\\n", @env, $cmd, @args), "\n";
return 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.
先完成此消息的编辑!
想要评论请 注册