compss is deprecated. use compssUsers for the tree

1 files changed, 1 insertions, 25 deletions

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index ddae5735b..f245a98d5 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -359,7 +359,7 @@ sub psUpdateHdlistsDeps {
 
     #- this is necessary for urpmi.
     install_any::getAndSaveFile("Mandrake/base/$_", "$prefix/var/lib/urpmi/$_")
-      foreach qw(depslist.ordered provides compss rpmsrate);
+      foreach qw(depslist.ordered provides rpmsrate);
 }
 
 sub psUsingHdlists {
@@ -572,30 +572,6 @@ sub getProvides($) {
     }
 }
 
-sub readCompss {
-    my ($prefix, $packages) = @_;
-    my ($p, @compss);
-
-    #- this is necessary for urpmi.
-    install_any::getAndSaveFile('Mandrake/base/compss', "$prefix/var/lib/urpmi/compss");
-
-    local *F; open F, "$prefix/var/lib/urpmi/compss" or die "can't find compss";
-    local $_;
-    while (<F>) {
-	/^\s*$/ || /^#/ and next;
-	s/#.*//;
-
-	if (/^(\S.*)/) {
-	    $p = $1;
-	} else {
-	    /(\S+)/;
-	    $packages->{names}{$1} or log::l("unknown package $1 in compss"), next;
-	    push @compss, "$p/$1";
-	}
-    }
-    \@compss;
-}
-
 sub read_rpmsrate {
     my ($packages, $f) = @_;
     my $line_nb = 0;