From 21ba800aefa91802836150371f77d459ababcc69 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 13 Mar 2001 13:04:18 +0000
Subject: compss is deprecated. use compssUsers for the tree

---
 perl-install/pkgs.pm | 26 +-------------------------
 1 file changed, 1 insertion(+), 25 deletions(-)

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

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