From 2181d10142d7d1e2756afabfaa0752c1f282404f Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 21 Sep 2012 16:16:34 +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) (backported from trunk) --- Rpmdrake/formatting.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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