diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-11-26 16:54:43 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-11-26 16:54:43 +0000 |
| commit | 76d3f1b58a4d1ffec3b57f115316d005cab105d5 (patch) | |
| tree | 970a690febe43a6bd3cb53440d5cac4028833b11 /rpmtools.pm | |
| parent | 92a0f0f8ee279a28d2854b76dfd041d57902c0a5 (diff) | |
| download | rpmtools-76d3f1b58a4d1ffec3b57f115316d005cab105d5.tar rpmtools-76d3f1b58a4d1ffec3b57f115316d005cab105d5.tar.gz rpmtools-76d3f1b58a4d1ffec3b57f115316d005cab105d5.tar.bz2 rpmtools-76d3f1b58a4d1ffec3b57f115316d005cab105d5.tar.xz rpmtools-76d3f1b58a4d1ffec3b57f115316d005cab105d5.zip | |
fixed compss file reading.3.1.8
Diffstat (limited to 'rpmtools.pm')
| -rw-r--r-- | rpmtools.pm | 10 |
1 files changed, 8 insertions, 2 deletions
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; } |