From 9091151d546e5d749b47e2efce3ff651784fcc8c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 6 Nov 2002 13:20:21 +0000 Subject: replace "_" with "N" and "__" with "N_" rationale: - currently, we use _("xxx") as a shorthand for gettext("xxx"). It also used to call xgettext with --keyword=_ - alas, function &_ is global and not by package (notice esp. that _ is not exported in common.pm) - this lead to big ugly pb with packages defining their own &_, overriding common.pm's &_ - a fix is to set @::textdomains to add a new domain (the default being "libDrakX") but relying on the global "_" is still dangerous! --- perl-install/share/po/fake_c.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/share/po/fake_c.pl') diff --git a/perl-install/share/po/fake_c.pl b/perl-install/share/po/fake_c.pl index 21cf25b04..cd80801eb 100755 --- a/perl-install/share/po/fake_c.pl +++ b/perl-install/share/po/fake_c.pl @@ -1,8 +1,8 @@ #!/usr/bin/perl -lp -s|^(__?\()| $1|; # add a blank at the beginning (?!) +s|^(N_?\()| $1|; # add a blank at the beginning (?!) -s|_\(\[(.*),\s*(.*),\s*(.*)\]|ngettext($2,$3,$1)|; # special plural form handling +s|N\(\[(.*),\s*(.*),\s*(.*)\]|ngettext($2,$3,$1)|; # special plural form handling s,\Qs/#.*//,,; # ugly special case -- cgit v1.2.1