diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-02-04 13:20:35 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-02-04 13:20:35 +0000 |
| commit | eebc655cff14366482025954bf2861ef6ef587f6 (patch) | |
| tree | d42ffed8bbe71fdcf24f44c159889826abf6caae | |
| parent | d81f0c251e8c4cd1322fcd1cb9ca8ad1d33dc7c8 (diff) | |
| download | rpmdrake-eebc655cff14366482025954bf2861ef6ef587f6.tar rpmdrake-eebc655cff14366482025954bf2861ef6ef587f6.tar.gz rpmdrake-eebc655cff14366482025954bf2861ef6ef587f6.tar.bz2 rpmdrake-eebc655cff14366482025954bf2861ef6ef587f6.tar.xz rpmdrake-eebc655cff14366482025954bf2861ef6ef587f6.zip | |
(extract_header) do not include architecture in SRPM names, thus fixing
extracting info for SRPMS and RPM GPG keys
| -rw-r--r-- | Rpmdrake/pkg.pm | 3 |
1 files changed, 3 insertions, 0 deletions
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")))) }); |