summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-07-20 15:13:58 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-07-20 15:13:58 +0000
commit21055ea43897a7d4ee4e151e6dfc254da2428b59 (patch)
tree508cbaa1928c8033b6084f33c0b9c0729e784857 /perl-install
parentf17896d1b996da13d21e07836de59cbb4d57e706 (diff)
downloaddrakx-21055ea43897a7d4ee4e151e6dfc254da2428b59.tar
drakx-21055ea43897a7d4ee4e151e6dfc254da2428b59.tar.gz
drakx-21055ea43897a7d4ee4e151e6dfc254da2428b59.tar.bz2
drakx-21055ea43897a7d4ee4e151e6dfc254da2428b59.tar.xz
drakx-21055ea43897a7d4ee4e151e6dfc254da2428b59.zip
cleanup
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/share/po/fake_c.pl5
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