diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-09-10 11:45:57 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-09-10 11:45:57 +0000 |
| commit | 5970762662e924d663c119913af7f7d722970e64 (patch) | |
| tree | 0aae18478f7943709aa1c223750410149f7bfb0c /URPM | |
| parent | 776fca1ebb14802559e0091ca0dd530356c4dfc8 (diff) | |
| download | perl-URPM-5970762662e924d663c119913af7f7d722970e64.tar perl-URPM-5970762662e924d663c119913af7f7d722970e64.tar.gz perl-URPM-5970762662e924d663c119913af7f7d722970e64.tar.bz2 perl-URPM-5970762662e924d663c119913af7f7d722970e64.tar.xz perl-URPM-5970762662e924d663c119913af7f7d722970e64.zip | |
fixed bad ARRAY reference (promote).
Diffstat (limited to 'URPM')
| -rw-r--r-- | URPM/Resolve.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 018d9c9..27106d8 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -212,7 +212,7 @@ sub backtrack_selected { dep => $dep, alternatives => $packages, %options) <= 0) { #- keep in mind a backtrack has happening here... $state->{rejected}{$_->fullname}{backtrack} ||= - { exists $dep->{promote} ? (promote => $dep->{promote}) : @{[]}, + { exists $dep->{promote} ? (promote => [ $dep->{promote} ]) : @{[]}, exists $dep->{psel} ? (psel => $dep->{psel}) : @{[]}, }; #- backtrack callback should return a strictly positive value if the selection of the new @@ -279,8 +279,7 @@ sub backtrack_selected { #- the package is already rejected, we assume we can add another reason here! defined $dep->{promote} and push @{$state->{rejected}{$dep->{psel}->fullname}{backtrack}{promote}}, $dep->{promote}; #- to simplify, a reference to list or standalone elements may be set in keep. - defined $dep->{keep} and push @{$state->{rejected}{$dep->{psel}->fullname}{backtrack}{keep}}, - ref $dep->{keep} ? @{$dep->{keep}} : $dep->{keep}; + defined $dep->{keep} and push @{$state->{rejected}{$dep->{psel}->fullname}{backtrack}{keep}}, @{$dep->{keep}}; } else { #- the backtrack need to examine diff_provides promotion on $n. $db->traverse_tag('whatrequires', [ $dep->{promote} ], sub { @@ -683,7 +682,7 @@ sub resolve_requested { } else { if ($options{keep}) { unshift @properties, $urpm->backtrack_selected($db, $state, - { keep => scalar $p->fullname, + { keep => [ scalar $p->fullname ], psel => $pkg, }, %options); |