From b83d5e6d041c4ba6c2649ec017ee77019db4ba77 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 20 Sep 2012 21:04:02 +0000 Subject: (version_release) return epoch too (thus EVR) rationale: fix highlighting changelog for packages who have epochs as we are comparing installed version with version from changelog also it makes sense to display EVR in details like we do in changelogs (consistency) --- Rpmdrake/formatting.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Rpmdrake') diff --git a/Rpmdrake/formatting.pm b/Rpmdrake/formatting.pm index 7b4c0917..f5cc928d 100644 --- a/Rpmdrake/formatting.pm +++ b/Rpmdrake/formatting.pm @@ -93,8 +93,10 @@ sub my_fullname { } sub version_release { - my (undef, $version, $release) = $_[0]->fullname; - "$version-$release"; + my ($pkg) = @_; + my (undef, $version, $release) = $pkg->fullname; + my $epoch = $pkg->epoch; + $epoch ? "$epoch-$version-$release" : "$version-$release"; } sub urpm_name { -- cgit v1.2.1