summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-08-25 13:58:56 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-08-25 13:58:56 +0000
commitf424fd90b063e53abfcca97d3544fcd590f00dd0 (patch)
tree88c2c92ba1d2f12da8e9e9ba7f7cd254d06176ee
parentd1a05d25ee99a0bd114f6854d13157126809d39e (diff)
downloaddrakx-f424fd90b063e53abfcca97d3544fcd590f00dd0.tar
drakx-f424fd90b063e53abfcca97d3544fcd590f00dd0.tar.gz
drakx-f424fd90b063e53abfcca97d3544fcd590f00dd0.tar.bz2
drakx-f424fd90b063e53abfcca97d3544fcd590f00dd0.tar.xz
drakx-f424fd90b063e53abfcca97d3544fcd590f00dd0.zip
Strange typing bug workaround
-rw-r--r--perl-install/pkgs.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 3ae45f94d..499d4bb17 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -247,7 +247,8 @@ sub packageRequest {
#- check for medium selection, if the medium has not been
#- selected, the package cannot be selected.
foreach (values %{$packages->{mediums}}) {
- !$_->selected && $pkg->id >= $_->{start} && $pkg->id <= $_->{end} and return;
+ #- XXX $_ should always be an object here
+ !$_->{selected} && $pkg->id >= $_->{start} && $pkg->id <= $_->{end} and return;
}
return { $pkg->id => 1 };