From dad25588ed26afe49277032b8b1b24b063e34efa Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 22 Apr 2003 21:59:30 +0000 Subject: perl_checker compliance for optional method arguments --- perl-install/install_steps_gtk.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/install_steps_gtk.pm') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 577e78654..589828e49 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -284,7 +284,7 @@ sub reallyChooseGroups { } sub choosePackagesTree { - my ($o, $packages, $limit_to_medium) = @_; + my ($o, $packages, $o_limit_to_medium) = @_; my $available = install_any::getAvailableSpace($o); my $availableCorrected = pkgs::invCorrectSize($available / sqr(1024)) * sqr(1024); @@ -304,7 +304,7 @@ sub choosePackagesTree { build_tree => sub { my ($add_node, $flat) = @_; if ($flat) { - foreach (sort map { $_->name } grep { !$limit_to_medium || pkgs::packageMedium($packages, $_) == $limit_to_medium } + foreach (sort map { $_->name } grep { !$o_limit_to_medium || pkgs::packageMedium($packages, $_) == $o_limit_to_medium } @{$packages->{depslist}}) { $add_node->($_, undef); } @@ -314,7 +314,7 @@ sub choosePackagesTree { #$fl{$_} = $o->{compssUsersChoice}{$_} foreach @{$o->{compssUsers}{$root}{flags}}; #- FEATURE:improve choce of packages... $fl{$_} = 1 foreach @{$o->{compssUsers}{$root}{flags}}; foreach my $p (@{$packages->{depslist}}) { - !$limit_to_medium || pkgs::packageMedium($packages, $p) == $limit_to_medium or next; + !$o_limit_to_medium || pkgs::packageMedium($packages, $p) == $o_limit_to_medium or next; my @flags = $p->rflags; next if !($p->rate && any { any { !/^!/ && $fl{$_} } split('\|\|') } @flags); $p->rate >= 3 ? @@ -423,7 +423,7 @@ sub choosePackagesTree { ], state => { auto_deps => 1, - flat => $limit_to_medium, + flat => $o_limit_to_medium, }, }; -- cgit v1.2.1