summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/MDV/Draklive/Utils.pm6
1 files changed, 5 insertions, 1 deletions
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)