diff options
author | Thierry Vignaud <tv@mandriva.org> | 2008-02-06 14:19:58 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2008-02-06 14:19:58 +0000 |
commit | a9d517a150aba982bf892d7b1d0fb80f35f80a6d (patch) | |
tree | f5690e4df68cab68c785a78f3e5b85fcfe0d6c17 /Rpmdrake/pkg.pm | |
parent | 1f84fde9f79576f90c27ac18cd299aed8154d283 (diff) | |
download | rpmdrake-a9d517a150aba982bf892d7b1d0fb80f35f80a6d.tar rpmdrake-a9d517a150aba982bf892d7b1d0fb80f35f80a6d.tar.gz rpmdrake-a9d517a150aba982bf892d7b1d0fb80f35f80a6d.tar.bz2 rpmdrake-a9d517a150aba982bf892d7b1d0fb80f35f80a6d.tar.xz rpmdrake-a9d517a150aba982bf892d7b1d0fb80f35f80a6d.zip |
(extract_header) fix file list of installed RPMS by forcing list
context (and simplfiy the code btw)
Diffstat (limited to 'Rpmdrake/pkg.pm')
-rw-r--r-- | Rpmdrake/pkg.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index f4956bce..68aa79cc 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -111,7 +111,8 @@ sub extract_header { $name =~ s!\.src!!; if ($p->flag_installed && !$p->flag_upgrade) { - add2hash($pkg, { files => [ split /\n/, chomp_(to_utf8(scalar(run_rpm("rpm -ql $name")))) || N("(none)") ], + my @files = map { chomp_(to_utf8($_)) } run_rpm("rpm -ql rpm"); + add2hash($pkg, { files => [ @files ? @files : N("(none)") ], changelog => $chg_prepro->(to_utf8(scalar(run_rpm("rpm -q --changelog $name")))) }); } else { my $medium = pkg2medium($p, $urpm); |