diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-08-25 13:58:56 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-08-25 13:58:56 +0000 |
| commit | f424fd90b063e53abfcca97d3544fcd590f00dd0 (patch) | |
| tree | 88c2c92ba1d2f12da8e9e9ba7f7cd254d06176ee /perl-install/pkgs.pm | |
| parent | d1a05d25ee99a0bd114f6854d13157126809d39e (diff) | |
| download | drakx-f424fd90b063e53abfcca97d3544fcd590f00dd0.tar drakx-f424fd90b063e53abfcca97d3544fcd590f00dd0.tar.gz drakx-f424fd90b063e53abfcca97d3544fcd590f00dd0.tar.bz2 drakx-f424fd90b063e53abfcca97d3544fcd590f00dd0.tar.xz drakx-f424fd90b063e53abfcca97d3544fcd590f00dd0.zip | |
Strange typing bug workaround
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 3 |
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 }; |