summaryrefslogtreecommitdiffstats
path: root/perl-install/loopback.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-07-24 22:39:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-07-24 22:39:28 +0000
commitb60c0cb8f67d745626fec6f0c8540818f24e91a6 (patch)
tree783189547888703c391b1719cf9ceaacb1e1aa63 /perl-install/loopback.pm
parent0a96d505550060312a1cd9a04a9ae9bf23ebdaa2 (diff)
downloaddrakx-backup-do-not-use-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar
drakx-backup-do-not-use-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.gz
drakx-backup-do-not-use-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.bz2
drakx-backup-do-not-use-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.xz
drakx-backup-do-not-use-b60c0cb8f67d745626fec6f0c8540818f24e91a6.zip
move to MDK::Common, bool->to_bool
Diffstat (limited to 'perl-install/loopback.pm')
-rw-r--r--perl-install/loopback.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/loopback.pm b/perl-install/loopback.pm
index 955019748..04c320ca3 100644
--- a/perl-install/loopback.pm
+++ b/perl-install/loopback.pm
@@ -6,7 +6,8 @@ use strict;
#-######################################################################################
#- misc imports
#-######################################################################################
-use common qw(:common :system :file :functional);
+use MDK::Common::System;
+use common;
use partition_table qw(:types);
use commands;
use fs;
@@ -75,7 +76,7 @@ sub create {
sub getFree {
my ($dir, $part) = @_;
my $freespace = $dir ?
- 2 * (common::df($dir))[1] : #- df in KiB
+ 2 * (MDK::Common::System::df($dir))[1] : #- df in KiB
$part->{size};
$freespace - sum map { $_->{size} } @{$part->{loopback} || []};