From 5a632fe532f355a2583970fefb2ed8ceec6c9460 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 23 Jul 1999 21:15:31 +0000
Subject: no_comment

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

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

diff --git a/perl-install/install_steps_stdio.pm b/perl-install/install_steps_stdio.pm
index 9db9b2f9f..4c4c74c84 100644
--- a/perl-install/install_steps_stdio.pm
+++ b/perl-install/install_steps_stdio.pm
@@ -64,15 +64,13 @@ sub choosePackages($$$) {
 			       [ map { $_->{selected} } @$comps ]);
     
     for (my $i = 0; $i < @$comps; $i++) {
-	$comps[$i]->{selected} = $r[$i];
+	$comps->[$i]->{selected} = $r[$i];
     }
 }
 
 sub installPackages {
     my $o = shift;
 
-    $::testing and exit 0;
-
     my $old = \&log::ld;
     local *log::ld = sub { 
 	my $m = shift;
@@ -187,7 +185,7 @@ sub ask_many_from_list {
     foreach (@t) { check_it($_, $n) or goto TRY_AGAIN }
 
     my @rr = (0) x @$list;
-    foreach (@t) { $rr[$_ - 1] = 1; }
+    $rr[$_ - 1] = 1 foreach @t;
     @rr;
 }
 
-- 
cgit v1.2.1