From 260fe6ccef437482f2e1e40655a9100a1e8f18df Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 8 Jun 2001 18:04:41 +0000
Subject: - c::iconv replace c::from_utf8 and c::to_utf8 - handle po files in
 any charset, iconv'ed to the right charset

---
 perl-install/lang.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/lang.pm')

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 80e87fbc1..92b653548 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -448,7 +448,7 @@ sub load_po {
 		$to = qq("$to");
 	    }
 	    if ($from) {
-		$s .= qq("$from" => $to,\n);
+		$s .= qq("$from" => ) . c::iconv($to, $lang::charset, c::standard_charset()) . ",\n";
 	    } elsif ($to =~ /charset=([\w-]+)/) {
 		$lang::charset = $1;
 	    }
-- 
cgit v1.2.1