diff options
Diffstat (limited to 'perl-install/share')
| -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 |