diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-10 09:16:58 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-10 09:16:58 +0000 |
| commit | 198568aa99edbbe56a9ea085e3244521a076fb0e (patch) | |
| tree | 08674a651af022181abf641d06846925e4cbed06 /perl-install | |
| parent | fd82c0312a315599fb0d766fa5c6b7be4b211ba3 (diff) | |
| download | drakx-198568aa99edbbe56a9ea085e3244521a076fb0e.tar drakx-198568aa99edbbe56a9ea085e3244521a076fb0e.tar.gz drakx-198568aa99edbbe56a9ea085e3244521a076fb0e.tar.bz2 drakx-198568aa99edbbe56a9ea085e3244521a076fb0e.tar.xz drakx-198568aa99edbbe56a9ea085e3244521a076fb0e.zip | |
no_comment
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 6843a1a3b..7c859cb08 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -223,7 +223,6 @@ sub setSelectedFromCompssList($$$$$) { foreach (@places) { my $p = $packages[$_]; verif_lang($p, $lang) or next; - print "selecting $p->{name}\n"; &select($packages, $p); my $nb = 0; foreach (@packages) { @@ -231,13 +230,6 @@ sub setSelectedFromCompssList($$$$$) { } if ($nb > $size) { unselect($packages, $p, $nb - $size); - print "leaving auto selection (zsize was $nb > $size)\n"; - - my $nb = 0; foreach (@packages) { - $nb += $_->{size} if $_->{selected}; - } - print "leaving auto selection (zsize was $nb > $size)\n"; - last; } } |