From 41e7676d8b316a5a7425cd9d9ee433f52d6a338d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 12 May 2015 04:28:41 -0400
Subject: enables to get raw available space (mga15257)

---
 perl-install/fs/any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/fs')

diff --git a/perl-install/fs/any.pm b/perl-install/fs/any.pm
index ce85c616a..5133cae2a 100644
--- a/perl-install/fs/any.pm
+++ b/perl-install/fs/any.pm
@@ -106,11 +106,11 @@ sub getNeededMinSpace {
 }
 
 sub getAvailableSpace {
-    my ($fstab, $o_skip_mounted) = @_;
+    my ($fstab, $o_skip_mounted, $o_skip_min_space) = @_;
 
     my $n = !$::testing && !$o_skip_mounted && getAvailableSpace_mounted($::prefix) || 
             getAvailableSpace_raw($fstab) * 512 / 1.07;
-    $n - getNeededMinSpace($n);
+    $o_skip_min_space ? $n : $n - getNeededMinSpace($n);
 }
 
 sub getAvailableSpace_mounted {
-- 
cgit v1.2.1