summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-24 00:26:22 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-24 00:26:22 +0000
commit63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5 (patch)
treedb9522b8dc1c02af74c6c5050a58e7fd002bdc55 /perl-install/lang.pm
parent685a29887953bf36c2d0dab4e7bce8a64bd8934e (diff)
downloaddrakx-backup-do-not-use-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar
drakx-backup-do-not-use-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.gz
drakx-backup-do-not-use-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.bz2
drakx-backup-do-not-use-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.xz
drakx-backup-do-not-use-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.zip
no_comment
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 7a4d77785..897305b8c 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -237,7 +237,13 @@ sub load_po($) {
if (/^(#|$)/ && $state != 3) {
$state = 3;
- $s .= qq("$from" => "$to",\n) if $from;
+ if (my @l = $to =~ /%(\d+)\$/g) {
+ $to =~ s/%(\d+)\$/%/g;
+ $to = qq([ "$to", ) . join(",", map { $_ - 1 } @l) . " ],";
+ } else {
+ $to = qq("$to");
+ }
+ $s .= qq("$from" => $to,\n) if $from;
$from = $to = '';
}
$to .= (/"(.*)"/)[0] if $state == 1;