diff options
| -rw-r--r-- | urpm/select.pm | 4 | ||||
| -rwxr-xr-x | urpmi | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/urpm/select.pm b/urpm/select.pm index 11e36e56..133eb274 100644 --- a/urpm/select.pm +++ b/urpm/select.pm @@ -605,7 +605,7 @@ sub rejected_unsatisfied { } sub conflicting_packages_msg_ { - my ($_urpm, $_state, $removed_packages_msgs) = @_; + my ($removed_packages_msgs) = @_; my $list = join("\n", @$removed_packages_msgs) or return; @$removed_packages_msgs == 1 ? @@ -614,7 +614,7 @@ sub conflicting_packages_msg_ { } sub conflicting_packages_msg { my ($urpm, $state) = @_; - conflicting_packages_msg_($urpm, $state, [ removed_packages_msgs($urpm, $state) ]); + conflicting_packages_msg_([ removed_packages_msgs($urpm, $state) ]); } sub removed_packages_msgs { @@ -556,7 +556,7 @@ have to be removed for others to be upgraded:\n%s\n", $list); exit 0; } - my $msg = urpm::select::conflicting_packages_msg_($urpm, $state, \@conflicting_pkgs_msgs); + my $msg = urpm::select::conflicting_packages_msg_(\@conflicting_pkgs_msgs); if ($test) { $msg = "$msg\n" . N("(test only, removal will not be actually done)"); } |