diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-03-01 14:11:02 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-03-01 14:11:02 +0000 |
| commit | c9f1865568c9d5f4c1696efd30c4b5f6519a4939 (patch) | |
| tree | e851df8ecb9bbfa5d5f60c588aba519039237c77 /perl-install/pkgs.pm | |
| parent | d7b9582821fad5e0ff81b4abf1e39d4f779394f1 (diff) | |
| download | drakx-c9f1865568c9d5f4c1696efd30c4b5f6519a4939.tar drakx-c9f1865568c9d5f4c1696efd30c4b5f6519a4939.tar.gz drakx-c9f1865568c9d5f4c1696efd30c4b5f6519a4939.tar.bz2 drakx-c9f1865568c9d5f4c1696efd30c4b5f6519a4939.tar.xz drakx-c9f1865568c9d5f4c1696efd30c4b5f6519a4939.zip | |
added pixel comments for handling INSTALL category and NOCOPY handling.
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 2d0ad08e4..1398ad94f 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -672,8 +672,8 @@ sub read_rpmsrate { map { packageById($packages, $_) } packageDepsId($p); my @m3 = ((grep { !/^\d$/ } @m), @m2); - if (@m3 == 1 && $m3[0] eq 'INSTALL') { - $rate > 1 and push @{$packages->{needToCopy} ||= []}, $_; + if (member('INSTALL', @m3)) { + member('NOCOPY', @m3) or push @{$packages->{needToCopy} ||= []}, $_; next; #- don't need to put INSTALL flag for a package. } if (packageRate($p)) { |