diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-07-20 15:13:58 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-07-20 15:13:58 +0000 |
| commit | 21055ea43897a7d4ee4e151e6dfc254da2428b59 (patch) | |
| tree | 508cbaa1928c8033b6084f33c0b9c0729e784857 /perl-install/share/po/fake_c.pl | |
| parent | f17896d1b996da13d21e07836de59cbb4d57e706 (diff) | |
| download | drakx-21055ea43897a7d4ee4e151e6dfc254da2428b59.tar drakx-21055ea43897a7d4ee4e151e6dfc254da2428b59.tar.gz drakx-21055ea43897a7d4ee4e151e6dfc254da2428b59.tar.bz2 drakx-21055ea43897a7d4ee4e151e6dfc254da2428b59.tar.xz drakx-21055ea43897a7d4ee4e151e6dfc254da2428b59.zip | |
cleanup
Diffstat (limited to 'perl-install/share/po/fake_c.pl')
| -rwxr-xr-x | perl-install/share/po/fake_c.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/share/po/fake_c.pl b/perl-install/share/po/fake_c.pl index 86146bdaf..64f20ca9c 100755 --- a/perl-install/share/po/fake_c.pl +++ b/perl-install/share/po/fake_c.pl @@ -1,8 +1,9 @@ #!/usr/bin/perl -lp -s|_\(\[(.*),\s*(.*),\s*(.*)\]| ngettext($2,$3,$1)|; # special plural form handling - s|^(__?\()| $1|; # add a blank at the beginning (?!) + +s|_\(\[(.*),\s*(.*),\s*(.*)\]|ngettext($2,$3,$1)|; # special plural form handling + s,\Qs/#.*//,,; # ugly special case s|//|/""/|g; # ensure // or not understood as comments |