diff options
Diffstat (limited to 'lib/MDV/Draklive/Utils.pm')
| -rw-r--r-- | lib/MDV/Draklive/Utils.pm | 6 |
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) |