From aa40ddc296c709c7282b3be1c3ad0bb7d49105eb Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 21 Feb 2008 14:25:43 +0000 Subject: (formatlistpkg) move from pkg.pm into formatting.pm (more logical place & will be reused by edit-urpm-sources) --- Rpmdrake/formatting.pm | 3 +++ Rpmdrake/pkg.pm | 3 --- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'Rpmdrake') diff --git a/Rpmdrake/formatting.pm b/Rpmdrake/formatting.pm index 43b72312..07ad40fc 100644 --- a/Rpmdrake/formatting.pm +++ b/Rpmdrake/formatting.pm @@ -40,6 +40,7 @@ our @EXPORT = qw( format_changelog_string format_field format_header + formatlistpkg format_name_n_summary format_size format_update_field @@ -164,4 +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) } @_) } + 1; diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 2fd79c4a..b95e7a68 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -52,7 +52,6 @@ our @EXPORT = qw( download_callback extract_header find_installed_version - formatlistpkg get_pkgs parse_compssUsers_flat perform_installation @@ -193,8 +192,6 @@ sub find_installed_version { @version ? join(',', sort @version) : N("(none)"); } -sub formatlistpkg { join("\n", map { s/^(\s)/ $1/mg; "- $_" } sort { uc($a) cmp uc($b) } @_) } - my $canceled; sub download_callback { my ($gurpm, $mode, $file, $percent, $total, $eta, $speed) = @_; -- cgit v1.2.1