From 5fed1373c236b8d91e969d02c89990233ec12461 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 6 Feb 2008 17:21:50 +0000 Subject: (extract_header) fix formating of file list of non installed packages --- Rpmdrake/pkg.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Rpmdrake/pkg.pm') diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 750370c8..d2755e01 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -166,7 +166,8 @@ sub extract_header { if ($xml_info eq 'info') { add2hash($pkg, { description => rpm_description($xml_info_pkgs{$name}{description}) }); } elsif ($xml_info eq 'files') { - add2hash($pkg, { files => [ $xml_info_pkgs{$name}{files} || N("(none)") ] }); + my @files = map { chomp_(to_utf8($_)) } split("\n", $xml_info_pkgs{$name}{files}); + add2hash($pkg, { files => [ @files ? @files : N("(none)") ] }); } elsif ($xml_info eq 'changelog') { add2hash($pkg, { changelog => $chg_prepro->(join("\n", map { -- cgit v1.2.1