summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.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/commands.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/commands.pm')
-rw-r--r--perl-install/commands.pm13
1 files changed, 7 insertions, 6 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 11155f593..2c9324fd5 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -14,7 +14,8 @@ use vars qw($printable_chars);
#-######################################################################################
#- misc imports
#-######################################################################################
-use common qw(:common :file :system :constant);
+use MDK::Common::System;
+use common;
#-#####################################################################################
#- Globals
@@ -325,7 +326,7 @@ sub dd {
sub head_tail {
my ($h, $n) = getopts(\@_, qw(hn));
- $h || @_ < bool($n) and die "usage: $0 [-h] [-n lines] [<file>]\n";
+ $h || @_ < to_bool($n) and die "usage: $0 [-h] [-n lines] [<file>]\n";
$n = $n ? shift : 10;
local *F; @_ ? open(F, $_[0]) || die "error: can't open file $_[0]\n" : (*F = *STDIN);
@@ -497,7 +498,7 @@ $dev, $size, $used, $free, $use, $mntpoint
$h{$dev} = $mntpoint;
}
foreach $dev (sort keys %h) {
- ($size, $free) = common::df($mntpoint = $h{$dev});
+ ($size, $free) = MDK::Common::System::df($mntpoint = $h{$dev});
$size or next;
$use = int (100 * ($size - $free) / $size);
@@ -544,7 +545,7 @@ sub du {
my $f; $f = sub {
my ($e) = @_;
my $s = (lstat($e))[12];
- $s += sum map { &$f($_) } glob_("$e/*") if !-l $e && -d $e;
+ $s += sum(map { &$f($_) } glob_("$e/*")) if !-l $e && -d $e;
$s;
};
print &$f($_) >> 1, "\t$_\n" foreach @_ ? @_ : glob_("*");
@@ -576,9 +577,9 @@ sub bug {
mount devices::make(detect_devices::floppy()), "/fd0";
require install_any;
- output "/fd0/report.bug", install_any::report_bug("/mnt"); #- no other way :-(
+ output("/fd0/report.bug", install_any::report_bug("/mnt")); #- no other way :-(
umount "/fd0";
- sync;
+ sync();
}
sub loadkeys {