diff options
| -rw-r--r-- | Rpmdrake/formatting.pm | 6 | ||||
| -rw-r--r-- | Rpmdrake/pkg.pm | 3 |
2 files changed, 7 insertions, 2 deletions
diff --git a/Rpmdrake/formatting.pm b/Rpmdrake/formatting.pm index 2bdfc67a..6a617778 100644 --- a/Rpmdrake/formatting.pm +++ b/Rpmdrake/formatting.pm @@ -43,6 +43,7 @@ our @EXPORT = qw( format_list format_name_n_summary format_size + format_filesize format_update_field my_fullname pkg2medium @@ -167,6 +168,11 @@ sub format_size { N("%s of disk space will be freed.", formatXiB(-$size)); } +sub format_filesize { + my ($filesize) = @_; + $filesize ? N("%s of packages will be retrieved.", formatXiB($filesize)) : (); +} + sub format_list { join("\n", map { s/^(\s)/ $1/mg; "- $_" } sort { uc($a) cmp uc($b) } @_) } 1; diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 0739c417..40e96d61 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -695,8 +695,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-( : N("The following packages have to be removed for others to be upgraded:")), $r), if_($to_install, $to_install)) : $to_install), format_size($size), - $filesize ? N("%s of packages will be retrieved.", formatXiB($filesize)) - : (), + format_filesize($filesize), N("Is it ok to continue?")), scroll => 1, yesno => 1) or return 1; |