diff options
-rw-r--r-- | perl/lib/Sys/Guestfs/Lib.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm index 42d2e819..2ccc09af 100644 --- a/perl/lib/Sys/Guestfs/Lib.pm +++ b/perl/lib/Sys/Guestfs/Lib.pm @@ -234,7 +234,11 @@ sub open_guest # Get the disk format (may not be set). my $format = $p->find ('./driver/@type', $node); - $format = $format->to_literal if $format; + if ($format) { + $format = $format->to_literal; + } else { + undef $format; # RHBZ#701814. + } push @disks, [ $filename, $format ]; } |