summaryrefslogtreecommitdiffstats
path: root/perl-install/modparm.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-06 13:20:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-06 13:20:21 +0000
commit9091151d546e5d749b47e2efce3ff651784fcc8c (patch)
tree2be2bec5e60f21ffe431eeef74095896ae5efe7f /perl-install/modparm.pm
parent68a1a2a6f2b9fdb1fd0c833cd9b3d8dcb9d8fd5c (diff)
downloaddrakx-9091151d546e5d749b47e2efce3ff651784fcc8c.tar
drakx-9091151d546e5d749b47e2efce3ff651784fcc8c.tar.gz
drakx-9091151d546e5d749b47e2efce3ff651784fcc8c.tar.bz2
drakx-9091151d546e5d749b47e2efce3ff651784fcc8c.tar.xz
drakx-9091151d546e5d749b47e2efce3ff651784fcc8c.zip
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!
Diffstat (limited to 'perl-install/modparm.pm')
-rw-r--r--perl-install/modparm.pm8
1 files changed, 4 insertions, 4 deletions
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 ];
}