diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-07-24 22:39:28 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-07-24 22:39:28 +0000 |
| commit | b60c0cb8f67d745626fec6f0c8540818f24e91a6 (patch) | |
| tree | 783189547888703c391b1719cf9ceaacb1e1aa63 /perl-install/install_any.pm | |
| parent | 0a96d505550060312a1cd9a04a9ae9bf23ebdaa2 (diff) | |
| download | drakx-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/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 7 |
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"; |