diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-24 00:26:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-24 00:26:22 +0000 |
| commit | 63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5 (patch) | |
| tree | db9522b8dc1c02af74c6c5050a58e7fd002bdc55 /perl-install/lang.pm | |
| parent | 685a29887953bf36c2d0dab4e7bce8a64bd8934e (diff) | |
| download | drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.gz drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.bz2 drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.xz drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.zip | |
no_comment
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 8 |
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; |