summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-10 09:16:58 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-10 09:16:58 +0000
commit198568aa99edbbe56a9ea085e3244521a076fb0e (patch)
tree08674a651af022181abf641d06846925e4cbed06 /perl-install
parentfd82c0312a315599fb0d766fa5c6b7be4b211ba3 (diff)
downloaddrakx-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.pm8
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;
}
}