diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-08-24 16:14:17 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-08-24 16:14:17 +0000 |
| commit | 749da7f388db2f6f37e2b238f34aa4b39384cb4a (patch) | |
| tree | 382f795d186eb4fa886784c85fa0f6016061de30 /Rpmdrake | |
| parent | 44ba14a0d18d9802658a468b97963297cf154344 (diff) | |
| download | rpmdrake-749da7f388db2f6f37e2b238f34aa4b39384cb4a.tar rpmdrake-749da7f388db2f6f37e2b238f34aa4b39384cb4a.tar.gz rpmdrake-749da7f388db2f6f37e2b238f34aa4b39384cb4a.tar.bz2 rpmdrake-749da7f388db2f6f37e2b238f34aa4b39384cb4a.tar.xz rpmdrake-749da7f388db2f6f37e2b238f34aa4b39384cb4a.zip | |
(version_release) factorize some code
also needed for next commit
Diffstat (limited to 'Rpmdrake')
| -rw-r--r-- | Rpmdrake/formatting.pm | 9 | ||||
| -rw-r--r-- | Rpmdrake/gui.pm | 3 | ||||
| -rw-r--r-- | Rpmdrake/pkg.pm | 2 |
3 files changed, 10 insertions, 4 deletions
diff --git a/Rpmdrake/formatting.pm b/Rpmdrake/formatting.pm index 6f581b9e..7b4c0917 100644 --- a/Rpmdrake/formatting.pm +++ b/Rpmdrake/formatting.pm @@ -49,7 +49,9 @@ our @EXPORT = qw( pkg2medium rpm_description split_fullname - urpm_name); + urpm_name + version_release + ); # from rpmtools, #37482: @@ -90,6 +92,11 @@ sub my_fullname { "$name-$version-$release"; } +sub version_release { + my (undef, $version, $release) = $_[0]->fullname; + "$version-$release"; +} + sub urpm_name { return '?-?-?.?' unless ref $_[0]; scalar $_[0]->fullname; diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index 19c7e58a..bed4a9a0 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -204,10 +204,9 @@ sub get_main_text { sub get_details { my ($key, $pkg, $upkg, $installed_version, $raw_medium) = @_; - my (undef, $version, $release) = split_fullname($key); my $a = ugtk2::markup_to_TextView_format( $spacing . join("\n$spacing", - format_field(N("Version: ")) . $version . '-' . $release, + format_field(N("Version: ")) . version_release($upkg), ($upkg->flag_installed ? format_field(N("Currently installed version: ")) . $installed_version : () ), diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 6889d5f2..c8073d09 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -195,7 +195,7 @@ sub find_installed_version { # FIXME: make it faster # 1) reuse $db if set # 2) s/traverse_tag/traverse_tag_find/ and time it - open_rpm_db()->traverse_tag('name', [ $p->name ], sub { push @version, $_[0]->version . '-' . $_[0]->release }); + open_rpm_db()->traverse_tag('name', [ $p->name ], sub { push @version, version_release($_[0])}); @version ? join(',', sort @version) : N("(none)"); } |