From 21055ea43897a7d4ee4e151e6dfc254da2428b59 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 20 Jul 2001 15:13:58 +0000 Subject: cleanup --- perl-install/share/po/fake_c.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/share/po') 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 -- cgit v1.2.1