Leave the printing up to &rewrap. --- tests/test-wrap-argv.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/test-wrap-argv.pl b/tests/test-wrap-argv.pl index 4e942cd..1f619cc 100755 --- a/tests/test-wrap-argv.pl +++ b/tests/test-wrap-argv.pl @@ -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 { -- 2.7.3 -- libvir-list mailing list libvir-list@xxxxxxxxxx https://www.redhat.com/mailman/listinfo/libvir-list