diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-08-04 00:29:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-08-04 00:29:32 +0000 |
| commit | a3d551a6468bd1799197187d185689e3ac9cb4db (patch) | |
| tree | 4e07ef60416129b6bd1b514536346c33c922791b /perl-install/commands.pm | |
| parent | 299573a7ecaf76b17411611dabd08c822f9b6f53 (diff) | |
| download | drakx-backup-do-not-use-a3d551a6468bd1799197187d185689e3ac9cb4db.tar drakx-backup-do-not-use-a3d551a6468bd1799197187d185689e3ac9cb4db.tar.gz drakx-backup-do-not-use-a3d551a6468bd1799197187d185689e3ac9cb4db.tar.bz2 drakx-backup-do-not-use-a3d551a6468bd1799197187d185689e3ac9cb4db.tar.xz drakx-backup-do-not-use-a3d551a6468bd1799197187d185689e3ac9cb4db.zip | |
no_comment
Diffstat (limited to 'perl-install/commands.pm')
| -rw-r--r-- | perl-install/commands.pm | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm index f2ec0d154..dd8393e12 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -472,7 +472,7 @@ $l{Destination}, $l{Gateway}, $l{Mask}, $l{Iface} sub df { my ($h) = getopts(\@_, qw(h)); - my ($dev, $blocksize, $size, $free, $used, $use, $mntpoint); + my ($dev, $size, $free, $used, $use, $mntpoint); open DF, ">&STDOUT"; format DF_TOP = Filesystem Size Used Avail Use Mounted on @@ -487,12 +487,7 @@ $dev, $size, $used, $free, $use, $mntpoint $h{$dev} = $mntpoint; } foreach $dev (sort keys %h) { - $mntpoint = $h{$dev}; - my $buf = ' ' x 20000; - syscall_('statfs', $mntpoint, $buf) or next; - (undef, $blocksize, $size, undef, $free, undef) = unpack "L2L4", $buf; - $_ *= $blocksize / 1024 foreach $size, $free; - + ($size, $free) = common::df($mntpoint = $h{$dev}); $size or next; $use = int (100 * ($size - $free) / $size); |