diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-03-01 14:03:28 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-03-01 14:03:28 +0000 |
| commit | d7b9582821fad5e0ff81b4abf1e39d4f779394f1 (patch) | |
| tree | 652274987724b8fb7d8f2ef585bde92c66961e72 /perl-install | |
| parent | 2a15045a56fd21c7935c3eecb35a4a09efb1b854 (diff) | |
| download | drakx-d7b9582821fad5e0ff81b4abf1e39d4f779394f1.tar drakx-d7b9582821fad5e0ff81b4abf1e39d4f779394f1.tar.gz drakx-d7b9582821fad5e0ff81b4abf1e39d4f779394f1.tar.bz2 drakx-d7b9582821fad5e0ff81b4abf1e39d4f779394f1.tar.xz drakx-d7b9582821fad5e0ff81b4abf1e39d4f779394f1.zip | |
only copy package in INSTALL category with a rate of at least 2.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 77d0492f4..2d0ad08e4 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -673,7 +673,7 @@ sub read_rpmsrate { my @m3 = ((grep { !/^\d$/ } @m), @m2); if (@m3 == 1 && $m3[0] eq 'INSTALL') { - push @{$packages->{needToCopy} ||= []}, $_; + $rate > 1 and push @{$packages->{needToCopy} ||= []}, $_; next; #- don't need to put INSTALL flag for a package. } if (packageRate($p)) { |