aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2014-08-27 16:25:52 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-09-12 23:11:58 +0200
commitd5b42ba119c58e8d57929357fbc3e4002c133096 (patch)
tree3d03b0dbbb348b22186bd09a0eebe0de4c92ea62
parentb485d3094b5cad9cb59cb4a6d19a9cb1a8a95bf9 (diff)
downloadperl-URPM-d5b42ba119c58e8d57929357fbc3e4002c133096.tar
perl-URPM-d5b42ba119c58e8d57929357fbc3e4002c133096.tar.gz
perl-URPM-d5b42ba119c58e8d57929357fbc3e4002c133096.tar.bz2
perl-URPM-d5b42ba119c58e8d57929357fbc3e4002c133096.tar.xz
perl-URPM-d5b42ba119c58e8d57929357fbc3e4002c133096.zip
add aliases for compatibility
-rw-r--r--URPM/Resolve.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm
index a3d68bc..3752215 100644
--- a/URPM/Resolve.pm
+++ b/URPM/Resolve.pm
@@ -1109,6 +1109,7 @@ Select newly suggested package is installed as if (hard) required.
=cut
+sub resolve_requested_suggests { goto \&resolve_requested_recommends } #COMPAT
sub resolve_requested_recommends {
my ($urpm, $db, $state, $selected, %options) = @_;
my @todo = @$selected;
@@ -1153,6 +1154,7 @@ Like resolve_requested() but doesn't handle recommends
# see resolve_requested above for information about usage (modulo 'no_recommends' option)
#- side-effects: flag_requested
#- + those of resolve_requested__no_recommends_
+sub resolve_requested__no_suggests { goto \&resolve_requested__no_recommends } #COMPAT
sub resolve_requested__no_recommends {
my ($urpm, $db, $state, $requested, %options) = @_;
@@ -1176,6 +1178,7 @@ sub resolve_requested__no_recommends {
#- + those of backtrack_selected_psel_keep (flag_requested, $state->{whatrequires})
#- + those of _handle_diff_provides (flag_requested, $state->{rejected}, $state->{whatrequires})
#- + those of _no_more_recent_installed_and_providing ($state->{rejected})
+sub resolve_requested__no_suggests_ { goto \&resolve_requested__no_recommends_ } #COMPAT
sub resolve_requested__no_recommends_ {
my ($urpm, $db, $state, $requested, %options) = @_;