summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_stdio.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-23 21:15:31 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-23 21:15:31 +0000
commit5a632fe532f355a2583970fefb2ed8ceec6c9460 (patch)
tree53c1ddbe41a4e8dad28ca4382794803ae177fbc2 /perl-install/install_steps_stdio.pm
parentbc25ea4a6ee8505a77972e2a723607735a4e19f9 (diff)
downloaddrakx-5a632fe532f355a2583970fefb2ed8ceec6c9460.tar
drakx-5a632fe532f355a2583970fefb2ed8ceec6c9460.tar.gz
drakx-5a632fe532f355a2583970fefb2ed8ceec6c9460.tar.bz2
drakx-5a632fe532f355a2583970fefb2ed8ceec6c9460.tar.xz
drakx-5a632fe532f355a2583970fefb2ed8ceec6c9460.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_stdio.pm')
-rw-r--r--perl-install/install_steps_stdio.pm6
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;
}