From 301ab0a298cc5e0ef4033546a65ed40a7484aec5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 6 Jan 2012 19:43:56 +0000
Subject: (df) fix checking available space of mount point

(cautgh by perl_checker, might help mga#1342)

introduced by cfergeau in r261869 on 2009-10-13
("add df function to urpm/sys.pm")
---
 NEWS        | 1 +
 urpm/sys.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 5691343b..2d892b71 100644
--- a/NEWS
+++ b/NEWS
@@ -3,6 +3,7 @@
 - urpmi
   o do not compute orphan packages when handling priority upgrades
   o disable dudf support (we've nothing server side)
+  o fix checking available space of mount point (mga#1342)
 
 Version 6.42 - 05 November 2011
 
diff --git a/urpm/sys.pm b/urpm/sys.pm
index 44b48d33..3e40151f 100644
--- a/urpm/sys.pm
+++ b/urpm/sys.pm
@@ -96,7 +96,7 @@ sub _find_a_mntpoint {
 sub df {
     my ($mntpoint) = @_;
     require Filesys::Df;
-    my $df = Filesys::Df::df("/", 1024); # ask 1kb values
+    my $df = Filesys::Df::df($mntpoint || "/", 1024); # ask 1kb values
     @$df{qw(blocks bfree)};
 }
 
-- 
cgit v1.2.1