Tab to space (whitespace fixes only).

[libguestfs.git] / tools / virt-df

diff --git a/tools/virt-df b/tools/virt-df
index 78eb25c..5a064cc 100755 (executable)
--- a/tools/virt-df
+++ b/tools/virt-df
@@ -26,7 +26,6 @@ use Sys::Guestfs::Lib qw(open_guest get_partitions resolve_windows_path
 use Pod::Usage;
 use Getopt::Long;
 use Data::Dumper;
-use File::Temp qw/tempdir/;
 use XML::Writer;
 use Locale::TextDomain 'libguestfs';
 
@@ -160,12 +159,16 @@ if (@ARGV == 0) {
     my @doms = $conn->list_defined_domains ();
     push @doms, $conn->list_domains ();
 
+    # https://bugzilla.redhat.com/show_bug.cgi?id=538041
+    @doms = grep { $_->get_id () != 0 } @doms;
+
     my @domnames = map { $_->get_name () } @doms;
 
     if (@domnames) {
         print_title ();
         foreach (@domnames) {
-            do_df ($_);
+            eval { do_df ($_); };
+            warn $@ if $@;
         }
     }
 } else {