-# List of partitions, LVs etc.
-my @partitions = get_partitions ($g);
-
-my @fses;
-my @not_mountable;
-my $dev;
-
-# Try and mount each one, to see what's mountable.
-foreach $dev (@partitions) {
- eval { $g->mount_ro ($dev, "/"); };
- my $mountable = $@ ? 0 : 1;
- $g->umount_all ();
- if ($mountable) {
- push @fses, $dev;
- } else {
- push @not_mountable, $dev;
- }
-}