From a3d551a6468bd1799197187d185689e3ac9cb4db Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 4 Aug 2000 00:29:32 +0000 Subject: no_comment --- perl-install/commands.pm | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'perl-install/commands.pm') 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); -- cgit v1.2.1