diff options
Diffstat (limited to 'perl-install/fs/type.pm')
-rw-r--r-- | perl-install/fs/type.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm index 51b0e8503..1d036d7bb 100644 --- a/perl-install/fs/type.pm +++ b/perl-install/fs/type.pm @@ -380,3 +380,8 @@ sub guessed_by_mount() { sub directories_needed_to_boot() { qw(/ /usr /var /boot /tmp); } + +sub carry_root_loopback { + my ($part) = @_; + any { $_->{mntpoint} eq '/' } @{$part->{loopback} || []}; +} |