summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-04-09 13:23:14 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-04-09 13:23:14 +0000
commitb9d6263e1d1806a04ee58648c95db915e6cc0ad2 (patch)
tree28baa3faf70f40af47cfd82ec72884abeef0ae02
parentb2f4aa5858588095829660094a6f9c12a1883445 (diff)
downloaddrakx-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.pm6
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;