summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-03 12:13:35 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-03 12:13:35 +0000
commitb36ee8846775d088b3da142b41099bea9b1effab (patch)
treee3ccc1e3b71c20ab0a65796e0cdbb4e53731539c /perl-install
parentb5692523a12d5be4e6e6f76c045b3bcedd0035a2 (diff)
downloaddrakx-backup-do-not-use-b36ee8846775d088b3da142b41099bea9b1effab.tar
drakx-backup-do-not-use-b36ee8846775d088b3da142b41099bea9b1effab.tar.gz
drakx-backup-do-not-use-b36ee8846775d088b3da142b41099bea9b1effab.tar.bz2
drakx-backup-do-not-use-b36ee8846775d088b3da142b41099bea9b1effab.tar.xz
drakx-backup-do-not-use-b36ee8846775d088b3da142b41099bea9b1effab.zip
Avoid unnecessary stats.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/commands.pm2
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_("*");