diff options
Diffstat (limited to 'URPM/Resolve.pm')
| -rw-r--r-- | URPM/Resolve.pm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index f2e2d4f..47de216 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -410,13 +410,15 @@ sub _choose_required { my @l = grep { ref $_ } $options{callback_choices}->($urpm, $db, $state, $chosen, _dep_to_name($urpm, $dep), $prefered); $urpm->{debug_URPM}("replacing " . _dep_to_name($urpm, $dep) . " with " . join(' ', map { $_->name } @l)) if $urpm->{debug_URPM}; - push @{$urpm->{_dudf}}, { - chosen => $chosen, - prefered => $prefered, - properties => $properties, - virtualpkgname => _dep_to_name($urpm, $dep), - list => '<' . $l[0]->fullname . '>', # Ugly hack, otherwise the hash is totally fuck'd up. - }; + if (@l) { + push @{$urpm->{_dudf}}, { + chosen => $chosen, + prefered => $prefered, + properties => $properties, + virtualpkgname => _dep_to_name($urpm, $dep), + list => '<' . $l[0]->fullname . '>', # Ugly hack, otherwise the hash is totally fuck'd up. + }; + } unshift @$properties, map { +{ required => $_->id, |