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!

1 files changed, 7 insertions, 7 deletions

diff --git a/perl-install/diskdrake/removable.pm b/perl-install/diskdrake/removable.pm
index f781f43d0..f0222d10e 100644
--- a/perl-install/diskdrake/removable.pm
+++ b/perl-install/diskdrake/removable.pm
@@ -21,10 +21,10 @@ sub main {
 
 sub actions {
     (
-     __("Mount point") => \&mount_point,
-     __("Options") => \&options,
-     __("Type") => \&type,
-     __("Done") => \&done,
+     N_("Mount point") => \&mount_point,
+     N_("Options") => \&options,
+     N_("Type") => \&type,
+     N_("Done") => \&done,
     );
 }
 
@@ -44,9 +44,9 @@ sub type {
     my ($in, $raw_hd) = @_;
     my @fs = ('auto', fs::auto_fs());
     my $type = $raw_hd->{type};
-    $in->ask_from(_("Change type"),
-			      _("Which filesystem do you want?"),
-			      [ { label => _("Type"), val => \$type, list => [@fs], not_edit => !$::expert } ]) or return;
+    $in->ask_from(N("Change type"),
+			      N("Which filesystem do you want?"),
+			      [ { label => N("Type"), val => \$type, list => [@fs], not_edit => !$::expert } ]) or return;
     $raw_hd->{type} = $type;
 }