From ae995eac3513b57d701c1050a5a0371772bf6f15 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 13 Sep 2006 09:55:27 +0000 Subject: (extract_header) fix extracting info for installed packages --- rpmdrake | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rpmdrake b/rpmdrake index c75a596e..99d8027e 100755 --- a/rpmdrake +++ b/rpmdrake @@ -409,7 +409,7 @@ sub extract_header { [ map { [ "$_\n", if_(/^\*/, { 'weight' => Gtk2::Pango->PANGO_WEIGHT_BOLD }) ] } split("\n", $_[0]) ]; }; my $name = my_fullname($pkg->{pkg}); - if ($MODE eq 'remove') { + if ($pkg->{pkg}->flag_installed) { add2hash($pkg, { files => [ split /\n/, chomp_(scalar(`rpm -ql $name`)) || N("(none)") ], changelog => $chg_prepro->(to_utf8(scalar(`rpm -q --changelog $name`))) }); } else { -- cgit v1.2.1