(run_rpm) make it behaves like `` regarding scalar/list contexts (fix

only listing first line of changelog/files list)

1 files changed, 2 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index 914eb545..48cf85a8 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -412,7 +412,8 @@ sub run_rpm {
     foreach (qw(LANG LC_CTYPE LC_NUMERIC LC_TIME LC_COLLATE LC_MONETARY LC_MESSAGES LC_PAPER LC_NAME LC_ADDRESS LC_TELEPHONE LC_MEASUREMENT LC_IDENTIFICATION LC_ALL)) {
         local $ENV{$_} = $ENV{$_} . '.UTF-8' if !/UTF-8/;
     }
-    map { to_utf8($_) } `@_`
+    my @l = map { to_utf8($_) } `@_`;
+    wantarray() ? do { print "ARRAY\n" ; @l } : do { print "SCALAR\n"; join('', @l) };
 }