diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-05-22 22:13:46 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-05-22 22:17:10 +0200 |
| commit | 786171ebb7723a74b841f7c1c1457bd825783a16 (patch) | |
| tree | 459ba49d5b26ecfe2d63a19eefeaee2fadb9bba7 /lib/MDV/Draklive/Utils.pm | |
| parent | 3f5f93364ec62e6384780d993d7ae24f27a43bda (diff) | |
| download | draklive-786171ebb7723a74b841f7c1c1457bd825783a16.tar draklive-786171ebb7723a74b841f7c1c1457bd825783a16.tar.gz draklive-786171ebb7723a74b841f7c1c1457bd825783a16.tar.bz2 draklive-786171ebb7723a74b841f7c1c1457bd825783a16.tar.xz draklive-786171ebb7723a74b841f7c1c1457bd825783a16.zip | |
perl_checker cleanups
Diffstat (limited to 'lib/MDV/Draklive/Utils.pm')
| -rw-r--r-- | lib/MDV/Draklive/Utils.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/MDV/Draklive/Utils.pm b/lib/MDV/Draklive/Utils.pm index f98074a..7637d32 100644 --- a/lib/MDV/Draklive/Utils.pm +++ b/lib/MDV/Draklive/Utils.pm @@ -13,7 +13,7 @@ our @EXPORT = qw(directory_usage run_ run_foreach); sub directory_usage { my ($dir, $o_apparent) = @_; my $apparent = $o_apparent && "--apparent-size"; - first(split /\s/, `du -s -B 1 $apparent $_[0]`); + first(split /\s/, `du -s -B 1 $apparent $dir`); } #- expand only if the pattern contains '*' @@ -42,7 +42,7 @@ sub run_foreach { my $selector = IO::Select->new($cmd_out); while (my @ready = $selector->can_read) { foreach my $fh (@ready) { - local $_ = scalar<$fh>; + local $_ = scalar <$fh>; return if /^open3:/; $foreach->(); $selector->remove($fh) if eof($fh); |