diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-03-03 12:13:35 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-03-03 12:13:35 +0000 |
| commit | b36ee8846775d088b3da142b41099bea9b1effab (patch) | |
| tree | e3ccc1e3b71c20ab0a65796e0cdbb4e53731539c /perl-install | |
| parent | b5692523a12d5be4e6e6f76c045b3bcedd0035a2 (diff) | |
| download | drakx-b36ee8846775d088b3da142b41099bea9b1effab.tar drakx-b36ee8846775d088b3da142b41099bea9b1effab.tar.gz drakx-b36ee8846775d088b3da142b41099bea9b1effab.tar.bz2 drakx-b36ee8846775d088b3da142b41099bea9b1effab.tar.xz drakx-b36ee8846775d088b3da142b41099bea9b1effab.zip | |
Avoid unnecessary stats.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/commands.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm index 4176766f3..2f2727047 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -450,7 +450,7 @@ sub du { my $f; $f = sub { my ($e) = @_; my $s = (lstat($e))[12]; - $s += sum(map { &$f($_) } glob_("$e/*")) if !-l $e && -d $e; + $s += sum(map { &$f($_) } glob_("$e/*")) if !-l _ && -d _; $s; }; print &$f($_) >> 1, "\t$_\n" foreach @_ ? @_ : glob_("*"); |