From b60c0cb8f67d745626fec6f0c8540818f24e91a6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 24 Jul 2001 22:39:28 +0000
Subject: move to MDK::Common, bool->to_bool

---
 perl-install/loopback.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/loopback.pm')

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} || []};
-- 
cgit v1.2.1