X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=perl%2Fexamples%2Finspect_vm.pl;h=6d95b6978097dbc705e8eb853c2eb7c287caae48;hp=447c8895f1b17ac9212a5ed64bdf3acca61d2e34;hb=HEAD;hpb=477eebc83dcd33d00d34398692692dae6af04f22

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.