diff options
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index a5e9b119b..111139316 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -676,7 +676,7 @@ sub computeGroupSize { #- installed and upgrade flags must have been computed (see compute_installed_flags). my %newSelection; unless ($p->flag_available) { - my @l2 = ($p->id); + my @l2 = $p->id; my $id; while (defined($id = shift @l2)) { @@ -864,7 +864,7 @@ sub installTransactionClosure { } while (defined($id = shift @l)) { - my @l2 = ($id); + my @l2 = $id; while (defined($id = shift @l2)) { exists $closure{$id} and next; |