From eebc655cff14366482025954bf2861ef6ef587f6 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 4 Feb 2008 13:20:35 +0000 Subject: (extract_header) do not include architecture in SRPM names, thus fixing extracting info for SRPMS and RPM GPG keys --- Rpmdrake/pkg.pm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Rpmdrake/pkg.pm') diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 0ba57602..28907b6f 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -98,6 +98,9 @@ sub extract_header { [ map { [ "$spacing$_\n", if_(/^\*/, { 'weight' => Gtk2::Pango->PANGO_WEIGHT_BOLD }) ] } split("\n", $_[0]) ]; }; my $name = urpm_name($pkg->{pkg}); + # fix extracting info for SRPMS and RPM GPG keys: + $name =~ s!\.src!!; + if ($pkg->{pkg}->flag_installed && !$pkg->{pkg}->flag_upgrade) { add2hash($pkg, { files => [ split /\n/, chomp_(scalar(run_rpm("rpm -ql $name"))) || N("(none)") ], changelog => $chg_prepro->(to_utf8(scalar(run_rpm("rpm -q --changelog $name")))) }); -- cgit v1.2.1