summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorMatthias Badaire <mbadaire@mandriva.com>2001-07-04 19:22:04 +0000
committerMatthias Badaire <mbadaire@mandriva.com>2001-07-04 19:22:04 +0000
commit869cb4987910917929393a76311f6eb29d7b7306 (patch)
treeb767fe675debb268ed7a67fac71b2adbfc2148a1 /perl-install/common.pm
parentc9ccb71c94fd6a042bd354f874c685831d0448d3 (diff)
downloaddrakx-869cb4987910917929393a76311f6eb29d7b7306.tar
drakx-869cb4987910917929393a76311f6eb29d7b7306.tar.gz
drakx-869cb4987910917929393a76311f6eb29d7b7306.tar.bz2
drakx-869cb4987910917929393a76311f6eb29d7b7306.tar.xz
drakx-869cb4987910917929393a76311f6eb29d7b7306.zip
Ia64 adaptation
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 9ed9012ff..6c5cddd85 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -671,7 +671,7 @@ sub df {
my ($blocksize, $size, $free);
my $buf = ' ' x 20000;
syscall_('statfs', $mntpoint, $buf) or return;
- (undef, $blocksize, $size, $free, undef, undef) = unpack "L6", $buf;
+ (undef, $blocksize, $size, $free, undef, undef) = unpack "L!6", $buf;
map { $_ * ($blocksize / 1024) } $size, $free;
}