use a more portable df()

2 files changed, 4 insertions, 11 deletions

diff --git a/NEWS b/NEWS
index 9bcefe6..8829814 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,4 @@
+- use a more portable df()
 - substInFile:
   o do not unlink the symlink to recreate it later to the same target
 
diff --git a/lib/MDK/Common/System.pm b/lib/MDK/Common/System.pm
index f7d0f63..bd13629 100644
--- a/lib/MDK/Common/System.pm
+++ b/lib/MDK/Common/System.pm
@@ -307,17 +307,9 @@ sub syscall_ {
 #- return the size of the partition and its free space in KiB
 sub df {
     my ($mntpoint) = @_;
-    my ($blocksize, $size, $free);
-    my $buf = ' ' x 20000;
-    syscall_('statfs', $mntpoint, $buf) or return;
-    # at least on mips the statfs structure is different to x86
-    # Should we use bavail or bfree ?
-    if (arch() =~ /mips/) {
-        (undef, $blocksize, undef, $size, $free, undef, undef, $avail) = unpack "L!8", $buf;
-    } else {
-       (undef, $blocksize, $size, $free, undef, undef) = unpack "L!6", $buf;
-    }
-    map { $_ * ($blocksize / 1024) } $size, $free;
+    require Filesys::Df;
+    my $df = Filesys::Df::df("/", 1024); # ask 1kb values
+    @$df{qw(blocks bfree)};
 }
 
 sub sync() { syscall_('sync') }