From 5079e0fff3f3c150818adb6febad6393b674f126 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Mon, 31 Jan 2011 09:34:47 +0000 Subject: [PATCH] guestfs-perl: Fix missing \n This updates commit 477eebc83dcd33d00d34398692692dae6af04f22. --- perl/examples/inspect_vm.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/examples/inspect_vm.pl b/perl/examples/inspect_vm.pl index 447c889..6d95b69 100755 --- a/perl/examples/inspect_vm.pl +++ b/perl/examples/inspect_vm.pl @@ -56,7 +56,7 @@ for my $root (@roots) { if ($g->is_file ($filename)) { printf "--- %s ---\n", $filename; my @lines = $g->head_n (3, $filename); - print $_ foreach @lines; + print "$_\n" foreach @lines; } # Unmount everything. -- 1.8.3.1