From e9746d5b1868e7ecdbabce94c47325e05c2f666d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 18 Nov 2002 16:44:52 +0000
Subject: make perl_checker happy

---
 perl-install/pkgs.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/pkgs.pm')

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;
-- 
cgit v1.2.1