From 45d469f6f90a11079a8f00a0d062457ca46743ef Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 8 Feb 2008 16:06:11 +0000 Subject: (extract_header) fix querying file list of installed packages (regression introduced in r233988 on 2008-02-06 ("fix file list of installed RPMS...") --- Rpmdrake/pkg.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Rpmdrake') diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 8dbd11ea..36bfc244 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -106,7 +106,7 @@ sub extract_header { $name =~ s!\.src!!; if ($p->flag_installed && !$p->flag_upgrade) { - my @files = map { chomp_(to_utf8($_)) } run_rpm("rpm -ql rpm"); + my @files = map { chomp_(to_utf8($_)) } run_rpm("rpm -ql $name"); add2hash($pkg, { files => [ @files ? @files : N("(none)") ], changelog => format_changelog_string(to_utf8(scalar(run_rpm("rpm -q --changelog $name")))) }); } else { -- cgit v1.2.1