diff options
Diffstat (limited to 'perl-install/loopback.pm')
-rw-r--r-- | perl-install/loopback.pm | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/perl-install/loopback.pm b/perl-install/loopback.pm index 1a90e1091..4eb14a9dc 100644 --- a/perl-install/loopback.pm +++ b/perl-install/loopback.pm @@ -72,31 +72,6 @@ sub create { $f; } -sub inspect { - my ($part, $prefix, $rw) = @_; - - isMountableRW($part) or return; - - my $dir = "/tmp/loopback_tmp"; - - if ($part->{isMounted}) { - $dir = ($prefix || '') . $part->{mntpoint}; - } elsif ($part->{notFormatted} && !$part->{isFormatted}) { - $dir = ''; - } else { - mkdir $dir, 0700; - fs::mount($part->{device}, $dir, type2fs($part->{type}), !$rw); - } - my $h = before_leaving { - if (!$part->{isMounted} && $dir) { - fs::umount($dir); - unlink($dir) - } - }; - $h->{dir} = $dir; - $h; -} - sub getFree { my ($dir, $part) = @_; my $freespace = $dir ? |