diff options
| -rw-r--r-- | perl-install/pkgs.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index d793ae87d..f8e9c8583 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -1481,11 +1481,11 @@ sub new { my ($class, %h) = @_; bless \%h, $class } #- retrieve medium by id (usually a number) or an empty placeholder sub by_id { - my ($medium_id, $packages) = @_; - $packages = $::o->{packages} unless defined $packages; - log::l("select $medium_id among ".join(",",keys%{$packages->{mediums}})); - defined $packages->{mediums}{$medium_id} - ? $packages->{mediums}{$medium_id} + my ($medium_id, $o_packages) = @_; + $o_packages = $::o->{packages} unless defined $o_packages; + log::l("select $medium_id among ".join(",",keys%{$o_packages->{mediums}})); + defined $o_packages->{mediums}{$medium_id} + ? $o_packages->{mediums}{$medium_id} : bless { invalid => 1 }; } |