From 7e25a49e0ddcf56c8abd6d5a9ed26c00f821d07a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 6 Aug 2004 02:41:57 +0000
Subject: fix typo

---
 perl-install/install_steps.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 3479fbbb4..32b12a0c6 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -369,8 +369,8 @@ sub beforeInstallPackages {
     my @should_not_be_dirs = qw(/usr/X11R6/lib/X11/xkb /usr/share/locale/zh_TW/LC_TIME /usr/include/GL);
     my @should_be_dirs = qw(/etc/X11/xkb);
     my @to_remove = (
-		     (grep { !-l $f && -d $f          } map { "$::prefix$_" } @should_not_be_dirs),
-		     (grep { -l $f || !-d $f && -e $f } map { "$::prefix$_" } @should_be_dirs),
+		     (grep { !-l $_ && -d $_          } map { "$::prefix$_" } @should_not_be_dirs),
+		     (grep { -l $_ || !-d $_ && -e $_ } map { "$::prefix$_" } @should_be_dirs),
 		    );
     rm_rf(@to_remove);
 
-- 
cgit v1.2.1