diff options
-rwxr-xr-x | rpmdrake | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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) }; } |