From cea079507818d85bcb8f8e5604267d32d949e9f4 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 10 Sep 2007 16:57:05 +0000 Subject: (extract_header) explicitely convert changelog to UTF-8 --- Rpmdrake/pkg.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Rpmdrake/pkg.pm') diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index f1de896a..4c3ba6ce 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -98,7 +98,7 @@ sub extract_header { my $name = urpm_name($pkg->{pkg}); if ($pkg->{pkg}->flag_installed && !$pkg->{pkg}->flag_upgrade) { add2hash($pkg, { files => [ split /\n/, chomp_(scalar(run_rpm("rpm -ql $name"))) || N("(none)") ], - changelog => $chg_prepro->(scalar(run_rpm("rpm -q --changelog $name"))) }); + changelog => $chg_prepro->(to_utf8(scalar(run_rpm("rpm -q --changelog $name")))) }); } else { my ($p, $medium) = ($pkg->{pkg}, pkg2medium($pkg->{pkg}, $urpm)); my $hdlist = urpm::media::any_hdlist($urpm, $medium); -- cgit v1.2.1