summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-09-14 14:31:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-09-14 14:31:13 +0000
commit4b33b201b60b5d53f113e522295bf86ed462832d (patch)
treeda030bced0bb7071296bdf2c5d7eb47e6915fa2e
parent5fdf32acfdfdfe6eb6a5109a68e1e5e43fab57fe (diff)
downloaddrakx-backup-do-not-use-4b33b201b60b5d53f113e522295bf86ed462832d.tar
drakx-backup-do-not-use-4b33b201b60b5d53f113e522295bf86ed462832d.tar.gz
drakx-backup-do-not-use-4b33b201b60b5d53f113e522295bf86ed462832d.tar.bz2
drakx-backup-do-not-use-4b33b201b60b5d53f113e522295bf86ed462832d.tar.xz
drakx-backup-do-not-use-4b33b201b60b5d53f113e522295bf86ed462832d.zip
kill some "used undefined variable" warnings
-rw-r--r--perl-install/pkgs.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 760c4225b..df1171718 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -100,7 +100,7 @@ sub read_rpmsrate {
my $p;
if ($::isInstall) {
$p = install::pkgs::packageByName($packages, $_) or next;
- if (my @l = map { if_(/locales-(.*)/, qq(LOCALES"$1")) } $p->requires_nosense) {
+ if (my @l = map { /locales-(.*)/ ? qq(LOCALES"$1") : () } $p->requires_nosense) {
if (@l > 1) {
log::l("ERROR: package $_ is requiring many locales") if $_ ne 'lsb';
} else {