diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-12-07 16:48:31 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-12-07 16:48:31 +0000 |
| commit | f6d62bb960449bb118b006b4f688be1840f4060f (patch) | |
| tree | afbb85cd88d2c8d900638ac6df104c23b7970dff /URPM | |
| parent | 3d81648195c943c6cbd827975b47c5c8c3455a61 (diff) | |
| download | perl-URPM-f6d62bb960449bb118b006b4f688be1840f4060f.tar perl-URPM-f6d62bb960449bb118b006b4f688be1840f4060f.tar.gz perl-URPM-f6d62bb960449bb118b006b4f688be1840f4060f.tar.bz2 perl-URPM-f6d62bb960449bb118b006b4f688be1840f4060f.tar.xz perl-URPM-f6d62bb960449bb118b006b4f688be1840f4060f.zip | |
Fix longstanding epoch promotion bug, caused by braindead API design
Diffstat (limited to 'URPM')
| -rw-r--r-- | URPM/Resolve.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 0c18dbb..b5ce035 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -23,6 +23,7 @@ sub min { my $n = shift; $_ < $n and $n = $_ foreach @_; $n } sub find_candidate_packages { my ($urpm, $dep, %options) = @_; my %packages; + $options{nopromoteepoch} = 1 unless defined $options{nopromoteepoch}; foreach (split /\|/, $dep) { if (/^\d+$/) { @@ -184,6 +185,7 @@ sub sort_package_result { $b->compare_pkg($a) || $a->id <=> $b->id } sub unsatisfied_requires { my ($urpm, $db, $state, $pkg, %options) = @_; my %properties; + $options{nopromoteepoch} = 1 unless defined $options{nopromoteepoch}; #- all requires should be satisfied according to selected packages or installed packages, #- or the package itself. |