From b9d6263e1d1806a04ee58648c95db915e6cc0ad2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 9 Apr 2001 13:23:14 +0000
Subject: (load_po): sets $lang::charset to the charset used in the po

---
 perl-install/lang.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 91535a88c..f3bbba8b6 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -450,7 +450,11 @@ sub load_po {
 	    } else {
 		$to = qq("$to");
 	    }
-	    $s .= qq("$from" => $to,\n) if $from;
+	    if ($from) {
+		$s .= qq("$from" => $to,\n);
+	    } elsif ($to =~ /charset=([\w-]+)/) {
+		$lang::charset = $1;
+	    }
 	    $from = $to = '';
 	}
 	$to .= (/"(.*)"/)[0] if $state == 1;
-- 
cgit v1.2.1