daemon: debug segv correct use of dereferencing NULL.

[libguestfs.git] / perl / examples / inspect_vm.pl

diff --git a/perl/examples/inspect_vm.pl b/perl/examples/inspect_vm.pl
index 447c889..6d95b69 100755 (executable)
--- 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.