From 198568aa99edbbe56a9ea085e3244521a076fb0e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 10 Sep 1999 09:16:58 +0000
Subject: no_comment

---
 perl-install/pkgs.pm | 8 --------
 1 file changed, 8 deletions(-)

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

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;
 	}
     }
-- 
cgit v1.2.1