summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.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/install_any.pm
parent0a96d505550060312a1cd9a04a9ae9bf23ebdaa2 (diff)
downloaddrakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.gz
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.bz2
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.xz
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.zip
move to MDK::Common, bool->to_bool
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 979216b8f..9ea9ee746 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -14,7 +14,8 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @needToCopy @needToCopyIfRequiresSatisf
#-######################################################################################
#- misc imports
#-######################################################################################
-use common qw(:common :system :functional :file);
+use MDK::Common::System;
+use common;
use run_program;
use partition_table qw(:types);
use partition_table_raw;
@@ -283,7 +284,7 @@ sub getAvailableSpace {
sub getAvailableSpace_mounted {
my ($prefix) = @_;
my $dir = -d "$prefix/usr" ? "$prefix/usr" : "$prefix";
- my (undef, $free) = common::df($dir) or return;
+ my (undef, $free) = MDK::Common::System::df($dir) or return;
log::l("getAvailableSpace_mounted $free KB");
$free * 1024 || 1;
}
@@ -865,7 +866,7 @@ sub getHds {
sub log_sizes {
my ($o) = @_;
- my @df = common::df($o->{prefix});
+ my @df = MDK::Common::System::df($o->{prefix});
log::l(sprintf "Installed: %s(df), %s(rpm)",
formatXiB($df[0] - $df[1], 1024),
formatXiB(sum(`$ENV{LD_LOADER} rpm --root $o->{prefix}/ -qa --queryformat "%{size}\n"`))) if -x "$o->{prefix}/bin/rpm";