fix some callers of run_rpm() so that it knows the proper context

(fix only listing first line of changelog/files list)

1 files changed, 2 insertions, 2 deletions

diff --git a/rpmdrake b/rpmdrake
index 48cf85a8..5e763ab9 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -425,8 +425,8 @@ sub extract_header {
     };
     my $name = my_fullname($pkg->{pkg});
     if ($pkg->{pkg}->flag_installed) {
-	add2hash($pkg, { files => [ split /\n/, chomp_(run_rpm(scalar("rpm -ql $name"))) || N("(none)") ],
-                         changelog => $chg_prepro->(run_rpm(scalar("rpm -q --changelog $name"))) });
+	add2hash($pkg, { files => [ split /\n/, chomp_(scalar(run_rpm("rpm -ql $name"))) || N("(none)") ],
+                         changelog => $chg_prepro->(scalar(run_rpm("rpm -q --changelog $name"))) });
     } else {
 	my ($p, $medium) = ($pkg->{pkg}, pkg2medium($pkg->{pkg}, $urpm));
 	my $hdlist = $medium->{virtual} ? "$medium->{url}/$medium->{with_hdlist}" : "$urpm->{statedir}/$medium->{hdlist}";