From 336e4b45419d2f40b3e71e05ac3debf5e7607d25 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 18 Sep 2006 17:57:07 +0000
Subject: (run_rpm) make it behaves like `` regarding scalar/list contexts (fix
 only listing first line of changelog/files list)

---
 rpmdrake | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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) };
 }
 
 
-- 
cgit v1.2.1