From 50a8f59314ba738d76b7f1552d79b853866a1f63 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 30 Oct 2008 20:25:34 +0000
Subject: use again du --apparent-size for some sparse files

---
 lib/MDV/Draklive/Utils.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib/MDV/Draklive/Utils.pm')

diff --git a/lib/MDV/Draklive/Utils.pm b/lib/MDV/Draklive/Utils.pm
index 7341e34..8e9ed65 100644
--- a/lib/MDV/Draklive/Utils.pm
+++ b/lib/MDV/Draklive/Utils.pm
@@ -10,7 +10,11 @@ use Exporter;
 our @ISA = qw(Exporter);
 our @EXPORT = qw(directory_usage run_ run_foreach);
 
-sub directory_usage { first(split /\s/, `du -s -B 1 $_[0]`) }
+sub directory_usage {
+    my ($dir, $o_apparent) = @_;
+    my $apparent = $o_apparent && "--apparent-size";
+    first(split /\s/, `du -s -B 1 $apparent $_[0]`);
+ }
 
 #- expand only if the pattern contains '*'
 #- and matches dot characters (like shell dotglob)
-- 
cgit v1.2.1