my $mountable = $@ ? 0 : 1;
$g->umount_all ();
if ($mountable) {
- push @fses, $dev;
+ push @fses, $dev;
} else {
- push @not_mountable, $dev;
+ push @not_mountable, $dev;
}
}
foreach $dev (@fses) {
print canonicalize($dev);
if ($long) {
- my $fstype;
- eval { $fstype = $g->vfs_type ($dev); };
- if ($fstype) {
- print " $fstype";
- } else {
- print " unknown";
- }
+ my $fstype;
+ eval { $fstype = $g->vfs_type ($dev); };
+ if ($fstype) {
+ print " $fstype";
+ } else {
+ print " unknown";
+ }
}
print "\n";
}
# If asked, look in the not_mountable list for potential swap devices.
if ($all) {
foreach $dev (@not_mountable) {
- my $file;
- eval { $file = $g->file ($dev); };
- if ($file && $file =~ /\bswap\b/) {
- print canonicalize($dev);
- print " swap" if $long;
- print "\n"
- }
+ my $file;
+ eval { $file = $g->file ($dev); };
+ if ($file && $file =~ /\bswap\b/) {
+ print canonicalize($dev);
+ print " swap" if $long;
+ print "\n"
+ }
}
}
local $_ = shift;
if (m{^/dev/[hv]d([a-z]\d)$}) {
- return "/dev/sd$1";
+ return "/dev/sd$1";
}
$_;
}
L<guestfish(1)>,
L<virt-cat(1)>,
L<virt-tar(1)>,
+L<virt-list-partitions(1)>,
L<Sys::Guestfs(3)>,
L<Sys::Guestfs::Lib(3)>,
L<Sys::Virt(3)>,
=head1 AUTHOR
-Richard W.M. Jones L<http://et.redhat.com/~rjones/>
+Richard W.M. Jones L<http://people.redhat.com/~rjones/>
=head1 COPYRIGHT