From d32716bbf24abee33ddf3c13e4e39a3d0d695fc6 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 13 Aug 2004 04:12:17 +0000 Subject: perl_checker fix --- perl-install/pkgs.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 17e2ccb8e..ca009f364 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -378,14 +378,14 @@ sub psUpdateHdlistsDeps { } sub psUsingHdlists { - my ($prefix, $method, $hdlistsfile, $packages) = @_; - my $listf = install_any::getFile($hdlistsfile || 'media/media_info/hdlists') + my ($prefix, $method, $o_hdlistsfile, $o_packages) = @_; + my $listf = install_any::getFile($o_hdlistsfile || 'media/media_info/hdlists') or die "no hdlists found"; my $suppl_CDs = 0; - if (!$packages) { - $packages = new URPM; + if (!$o_packages) { + $o_packages = new URPM; #- add additional fields used by DrakX. - @$packages{qw(count mediums)} = (0, {}); + @$o_packages{qw(count mediums)} = (0, {}); } #- parse hdlists file. @@ -401,15 +401,15 @@ sub psUsingHdlists { #- make sure the first medium is always selected! #- by default select all image. - psUsingHdlist($prefix, $method, $packages, $2, $medium_name, $3, $4, !$1); + psUsingHdlist($prefix, $method, $o_packages, $2, $medium_name, $3, $4, !$1); ++$medium_name; } - log::l("psUsingHdlists read " . int(@{$packages->{depslist}}) . - " headers on " . int(keys %{$packages->{mediums}}) . " hdlists"); + log::l("psUsingHdlists read " . int(@{$o_packages->{depslist}}) . + " headers on " . int(keys %{$o_packages->{mediums}}) . " hdlists"); - return $packages, $suppl_CDs; + return $o_packages, $suppl_CDs; } sub psUsingHdlist { -- cgit v1.2.1