From 6d90c0db464dca2763490f2dc03e58c7ac89720a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 12 Aug 2007 12:59:58 +0000
Subject: fix typo (from 2003-02-25)

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

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

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 4cc86e1af..9dc7a1c3c 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -506,7 +506,7 @@ sub computeGroupSize {
 			    exists $preferred{$ppkg->name} and $prefer_id = $_;
 			    $ppkg->name =~ /kernel-\d/ and $prefer_id ||= $_;
 			    foreach my $l ($ppkg->requires_nosense) {
-				/locales-/ or next;
+				$l =~ /locales-/ or next;
 				my $pppkg = packageByName($packages, $l) or next;
 				$pppkg->flag_available and $prefer_id ||= $_;
 			    }
-- 
cgit v1.2.1