diff options
Diffstat (limited to 'Rpmdrake')
| -rw-r--r-- | Rpmdrake/formatting.pm | 4 | ||||
| -rw-r--r-- | Rpmdrake/gui.pm | 8 | ||||
| -rw-r--r-- | Rpmdrake/pkg.pm | 4 |
3 files changed, 8 insertions, 8 deletions
diff --git a/Rpmdrake/formatting.pm b/Rpmdrake/formatting.pm index 07ad40fc..b3e7eb5b 100644 --- a/Rpmdrake/formatting.pm +++ b/Rpmdrake/formatting.pm @@ -40,7 +40,7 @@ our @EXPORT = qw( format_changelog_string format_field format_header - formatlistpkg + format_list format_name_n_summary format_size format_update_field @@ -165,6 +165,6 @@ sub format_size { N("%s of disk space will be freed.", formatXiB(-$size)); } -sub formatlistpkg { join("\n", map { s/^(\s)/ $1/mg; "- $_" } sort { uc($a) cmp uc($b) } @_) } +sub format_list { join("\n", map { s/^(\s)/ $1/mg; "- $_" } sort { uc($a) cmp uc($b) } @_) } 1; diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index 3418d32c..63a8f0ff 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -540,7 +540,7 @@ sub deps_msg { deps_msg_again: my $results = interactive_msg( $title, $msg . - formatlistpkg(map { scalar(urpm::select::translate_why_removed_one($urpm, $urpm->{state}, $_)) } @deps) + format_list(map { scalar(urpm::select::translate_why_removed_one($urpm, $urpm->{state}, $_)) } @deps) . "\n\n" . format_size($urpm->selected_size($urpm->{state})), yesno => [ N("Cancel"), N("More info"), N("Ok") ], scroll => 1, @@ -593,7 +593,7 @@ sub toggle_nodes { } @impossible_to_remove and interactive_msg(N("Some packages can't be removed"), N("Removing these packages would break your system, sorry:\n\n") . - formatlistpkg(@impossible_to_remove)); + format_list(@impossible_to_remove)); @nodes_with_deps = difference2(\@nodes_with_deps, \@impossible_to_remove); } else { slow_func($widget, @@ -653,8 +653,8 @@ sub toggle_nodes { interactive_msg( ($count == 1 ? N("One package cannot be installed") : N("Some packages can't be installed")), ($count == 1 ? - N("Sorry, the following package cannot be selected:\n\n%s", formatlistpkg(@reasons)) - : N("Sorry, the following packages can't be selected:\n\n%s", formatlistpkg(@reasons))), + N("Sorry, the following package cannot be selected:\n\n%s", format_list(@reasons)) + : N("Sorry, the following packages can't be selected:\n\n%s", format_list(@reasons))), scroll => 1, ); foreach (@cant) { diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index b95e7a68..70b04e14 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -598,13 +598,13 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-( @{$urpm->{ask_remove}} = sort urpm::select::removed_packages($urpm, $urpm->{state}); my @to_remove = map { if_($pkgs->{$_}{selected} && !$pkgs->{$_}{pkg}->flag_upgrade, $pkgs->{$_}{urpm_name}) } keys %$pkgs; - my $r = formatlistpkg(map { scalar(urpm::select::translate_why_removed_one($urpm, $urpm->{state}, $_)) } @to_remove); + my $r = format_list(map { scalar(urpm::select::translate_why_removed_one($urpm, $urpm->{state}, $_)) } @to_remove); my $size = $urpm->selected_size($state); my $install_count = int(@pkgs); my $to_install = $install_count == 0 ? '' : (P("The following package is going to be installed:", "The following %d packages are going to be installed:", $install_count, $install_count) - . "\n\n" . formatlistpkg(map { s!.*/!!; $_ } @pkgs)); + . "\n\n" . format_list(map { s!.*/!!; $_ } @pkgs)); my $remove_count = scalar(@to_remove); interactive_msg(($to_install ? N("Confirmation") : N("Some packages need to be removed")), join("\n\n", |