diff options
Diffstat (limited to 'Rpmdrake')
| -rw-r--r-- | Rpmdrake/gui.pm | 2 | ||||
| -rw-r--r-- | Rpmdrake/pkg.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index f103fffa..95d90df1 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: ")) . evr($upkg), + format_field(N("Version: ")) . $upkg->EVR, ($upkg->flag_installed ? format_field(N("Currently installed version: ")) . $installed_version : () ), diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 12ab3452..3b171c4d 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 = evr($_[0]) }); + open_rpm_db()->traverse_tag_find('name', $p->name, sub { $version = $_[0]->EVR }); $version || N("(none)"); } |