summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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_("*");