diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-26 18:21:41 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-26 18:21:41 +0000 |
commit | d62348801fa2eaae0c9fa96e5a6a0b9612fbc27d (patch) | |
tree | b1f10a40ab72173b1840ceca18a3a685e0abbb72 /Rpmdrake/pkg.pm | |
parent | 584e87663263b850c4a35247a762da1bf31cd90f (diff) | |
download | rpmdrake-d62348801fa2eaae0c9fa96e5a6a0b9612fbc27d.tar rpmdrake-d62348801fa2eaae0c9fa96e5a6a0b9612fbc27d.tar.gz rpmdrake-d62348801fa2eaae0c9fa96e5a6a0b9612fbc27d.tar.bz2 rpmdrake-d62348801fa2eaae0c9fa96e5a6a0b9612fbc27d.tar.xz rpmdrake-d62348801fa2eaae0c9fa96e5a6a0b9612fbc27d.zip |
(ensure_utf8) sync with genhdlist2 and use utf8:: functions instead of Encode
Diffstat (limited to 'Rpmdrake/pkg.pm')
-rw-r--r-- | Rpmdrake/pkg.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index b8c8a690..fb51cca1 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -83,7 +83,7 @@ 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 $ENV{$_} && $ENV{$_} !~ /UTF-8/; } - my @l = map { ensure_utf8($_) } run_program::get_stdout(@_); + my @l = map { ensure_utf8($_); $_ } run_program::get_stdout(@_); wantarray() ? @l : join('', @l); } |