diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-04-09 13:23:14 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-04-09 13:23:14 +0000 |
| commit | b9d6263e1d1806a04ee58648c95db915e6cc0ad2 (patch) | |
| tree | 28baa3faf70f40af47cfd82ec72884abeef0ae02 | |
| parent | b2f4aa5858588095829660094a6f9c12a1883445 (diff) | |
| download | drakx-backup-do-not-use-b9d6263e1d1806a04ee58648c95db915e6cc0ad2.tar drakx-backup-do-not-use-b9d6263e1d1806a04ee58648c95db915e6cc0ad2.tar.gz drakx-backup-do-not-use-b9d6263e1d1806a04ee58648c95db915e6cc0ad2.tar.bz2 drakx-backup-do-not-use-b9d6263e1d1806a04ee58648c95db915e6cc0ad2.tar.xz drakx-backup-do-not-use-b9d6263e1d1806a04ee58648c95db915e6cc0ad2.zip | |
(load_po): sets $lang::charset to the charset used in the po
| -rw-r--r-- | perl-install/lang.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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; |