no_comment

1 files changed, 2 insertions, 4 deletions

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;
 }