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.
This commit is contained in:
Ján Tomko 2016-05-30 18:59:42 +02:00
parent 2f071f1fca
commit c8da1cbf13

View File

@ -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 {