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/modparm.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/modparm.pm') diff --git a/perl-install/modparm.pm b/perl-install/modparm.pm index fcfd3093e..70da67c47 100644 --- a/perl-install/modparm.pm +++ b/perl-install/modparm.pm @@ -15,7 +15,7 @@ sub parameters { my $modinfo = '/sbin/modinfo'; -x $modinfo or $modinfo = '/usr/bin/modinfo'; - -x $modinfo or die _('modinfo is not available'); + -x $modinfo or die N("modinfo is not available"); if (!$::isStandalone && !$::testing) { modules::extract_modules('/tmp', $module); @@ -47,11 +47,11 @@ sub parameters { #- print "STILL HAVE ($_)\n" if $_; my $format = $min == 1 && $max == 1 ? - ($is_a_number ? _("a number") : '') : + ($is_a_number ? N("a number") : '') : $min == $max ? - ($is_a_number ? _("%d comma separated numbers", $min) : _("%d comma separated strings", $min)) : + ($is_a_number ? N("%d comma separated numbers", $min) : N("%d comma separated strings", $min)) : $min == 1 ? - ($is_a_number ? _("comma separated numbers") : _("comma separated strings")) : + ($is_a_number ? N("comma separated numbers") : N("comma separated strings")) : ''; #- too weird and buggy, do not display it push @parameters, [ $name, $format, $description ]; } -- cgit v1.2.1