aboutsummaryrefslogtreecommitdiffstats
path: root/Rpmdrake
diff options
context:
space:
mode:
Diffstat (limited to 'Rpmdrake')
-rw-r--r--Rpmdrake/formatting.pm4
-rw-r--r--Rpmdrake/gui.pm2
-rw-r--r--Rpmdrake/pkg.pm2
3 files changed, 4 insertions, 4 deletions
diff --git a/Rpmdrake/formatting.pm b/Rpmdrake/formatting.pm
index f5cc928d..644c4ad8 100644
--- a/Rpmdrake/formatting.pm
+++ b/Rpmdrake/formatting.pm
@@ -36,6 +36,7 @@ our @ISA = qw(Exporter);
our @EXPORT = qw(
$spacing
ensure_utf8
+ evr
format_changelog_changelogs
format_changelog_string
format_field
@@ -50,7 +51,6 @@ our @EXPORT = qw(
rpm_description
split_fullname
urpm_name
- version_release
);
@@ -92,7 +92,7 @@ sub my_fullname {
"$name-$version-$release";
}
-sub version_release {
+sub evr {
my ($pkg) = @_;
my (undef, $version, $release) = $pkg->fullname;
my $epoch = $pkg->epoch;
diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index 98ff706f..f103fffa 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -207,7 +207,7 @@ sub get_details {
my ($pkg, $upkg, $installed_version, $raw_medium) = @_;
my $a = ugtk2::markup_to_TextView_format(
$spacing . join("\n$spacing",
- format_field(N("Version: ")) . version_release($upkg),
+ format_field(N("Version: ")) . evr($upkg),
($upkg->flag_installed ?
format_field(N("Currently installed version: ")) . $installed_version : ()
),
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 9b76baea..12ab3452 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -192,7 +192,7 @@ sub extract_header {
sub find_installed_version {
my ($p) = @_;
my $version;
- open_rpm_db()->traverse_tag_find('name', $p->name, sub { $version = version_release($_[0]) });
+ open_rpm_db()->traverse_tag_find('name', $p->name, sub { $version = evr($_[0]) });
$version || N("(none)");
}