From 76d3f1b58a4d1ffec3b57f115316d005cab105d5 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 26 Nov 2001 16:54:43 +0000
Subject: fixed compss file reading.

---
 rpmtools.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'rpmtools.pm')

diff --git a/rpmtools.pm b/rpmtools.pm
index 0cb0f8d..a3655d2 100644
--- a/rpmtools.pm
+++ b/rpmtools.pm
@@ -554,7 +554,7 @@ sub write_provides {
 #- read compss, look at DrakX for more info.
 sub read_compss {
     my ($params, $FILE) = @_;
-    my $p;
+    my ($p, %compss);
 
     local $_;
     while (<$FILE>) {
@@ -565,9 +565,15 @@ sub read_compss {
 	    $p = $1;
 	} else {
 	    /(\S+)/;
-	    $params->{info}{$1} and $params->{info}{$1}{group} = $p;
+	    $compss{$1} = $p;
 	}
     }
+
+    #- mark all packages which matching name with group.
+    foreach (@{$params->{depslist}}) {
+	$compss{$_->{name}} and $_->{group} = $compss{$_->{name}};
+    }
+
     1;
 }
 
-- 
cgit v1.2.1