diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-14 14:31:13 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-14 14:31:13 +0000 |
| commit | 4b33b201b60b5d53f113e522295bf86ed462832d (patch) | |
| tree | da030bced0bb7071296bdf2c5d7eb47e6915fa2e | |
| parent | 5fdf32acfdfdfe6eb6a5109a68e1e5e43fab57fe (diff) | |
| download | drakx-4b33b201b60b5d53f113e522295bf86ed462832d.tar drakx-4b33b201b60b5d53f113e522295bf86ed462832d.tar.gz drakx-4b33b201b60b5d53f113e522295bf86ed462832d.tar.bz2 drakx-4b33b201b60b5d53f113e522295bf86ed462832d.tar.xz drakx-4b33b201b60b5d53f113e522295bf86ed462832d.zip | |
kill some "used undefined variable" warnings
| -rw-r--r-- | perl-install/pkgs.pm | 2 |
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 { |