From b36ee8846775d088b3da142b41099bea9b1effab Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 3 Mar 2005 12:13:35 +0000
Subject: Avoid unnecessary stats.

---
 perl-install/commands.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/commands.pm')

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_("*");
-- 
cgit v1.2.1