diff options
Diffstat (limited to 'urpm/sys.pm')
-rw-r--r-- | urpm/sys.pm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/urpm/sys.pm b/urpm/sys.pm index c056af73..bfe0e719 100644 --- a/urpm/sys.pm +++ b/urpm/sys.pm @@ -162,23 +162,6 @@ sub proc_mounts() { @l; } - -=item first_free_loopdev() - -Returns the first unused loop device, or an empty string if none is found. - -=cut - -sub first_free_loopdev () { - my %loopdevs = map { $_ => 1 } grep { ! -d $_ } glob('/dev/loop*'); - foreach (proc_mounts()) { - (our $dev) = split ' '; - delete $loopdevs{$dev} if $dev =~ m!^/dev/loop!; - } - my @l = keys %loopdevs; - @l ? $l[0] : ''; -} - sub trim_until_d { my ($dir) = @_; foreach (proc_mounts()) { |