changed name of _() function to N()

use of perl_checker to create pot file

1 files changed, 29 insertions, 29 deletions

diff --git a/urpmf b/urpmf
index 1e6c1906..bb621543 100755
--- a/urpmf
+++ b/urpmf
@@ -20,42 +20,42 @@
 use urpm;
 
 #- get I18N translation method.
-import urpm _;
+import urpm N;
 
 sub usage {
-    print STDERR _("urpmf version %s
+    print STDERR N("urpmf version %s
 Copyright (C) 2002 MandrakeSoft.
 This is free software and may be redistributed under the terms of the GNU GPL.
 
 usage:
-", $urpm::VERSION) . _("  --help         - print this help message.
-") . _("  --update       - use only update media.
-") . _("  --media        - use only the given media, separated by comma.
-") . _("  --synthesis    - use the synthesis given instead of urpmi db.
-") . _("  --verbose      - verbose mode.
-") . _("  --quiet        - do not print tag name (default if no tag given on command
+", $urpm::VERSION) . N("  --help         - print this help message.
+") . N("  --update       - use only update media.
+") . N("  --media        - use only the given media, separated by comma.
+") . N("  --synthesis    - use the synthesis given instead of urpmi db.
+") . N("  --verbose      - verbose mode.
+") . N("  --quiet        - do not print tag name (default if no tag given on command
                    line, incompatible with interactive mode).
-") . _("  --all          - print all tags.
-") . _("  --name         - print tag name: rpm filename (assumed if no tag given on
+") . N("  --all          - print all tags.
+") . N("  --name         - print tag name: rpm filename (assumed if no tag given on
                    command line but without package name).
-") . _("  --group        - print tag group: group.
-") . _("  --size         - print tag size: size.
-") . _("  --epoch        - print tag epoch: epoch.
-") . _("  --summary      - print tag summary: summary.
-") . _("  --description  - print tag description: description.
-") . _("  --provides     - print tag provides: all provides (multiple lines).
-") . _("  --requires     - print tag requires: all requires (multiple lines).
-") . _("  --files        - print tag files: all files (multiple lines).
-") . _("  --conflicts    - print tag conflicts: all conflicts (multiple lines).
-") . _("  --obsoletes    - print tag obsoletes: all obsoletes (multiple lines).
-") . _("  -i             - ignore case distinctions in every pattern.
-") . _("  -f             - print version, release and arch with name.
-") . _("  -e             - include perl code directly as perl -e.
-") . _("  -a             - binary AND operator, true if both expression are true.
-") . _("  -o             - binary OR operator, true if one expression is true.
-") . _("  !              - unary NOT, true if expression is false.
-") . _("  (              - left parenthesis to open group expression.
-") . _("  )              - right parenthesis to close group expression.
+") . N("  --group        - print tag group: group.
+") . N("  --size         - print tag size: size.
+") . N("  --epoch        - print tag epoch: epoch.
+") . N("  --summary      - print tag summary: summary.
+") . N("  --description  - print tag description: description.
+") . N("  --provides     - print tag provides: all provides (multiple lines).
+") . N("  --requires     - print tag requires: all requires (multiple lines).
+") . N("  --files        - print tag files: all files (multiple lines).
+") . N("  --conflicts    - print tag conflicts: all conflicts (multiple lines).
+") . N("  --obsoletes    - print tag obsoletes: all obsoletes (multiple lines).
+") . N("  -i             - ignore case distinctions in every pattern.
+") . N("  -f             - print version, release and arch with name.
+") . N("  -e             - include perl code directly as perl -e.
+") . N("  -a             - binary AND operator, true if both expression are true.
+") . N("  -o             - binary OR operator, true if one expression is true.
+") . N("  !              - unary NOT, true if expression is false.
+") . N("  (              - left parenthesis to open group expression.
+") . N("  )              - right parenthesis to close group expression.
 ");
     exit(0);
 }
@@ -112,7 +112,7 @@ foreach (qw(group size epoch summary description provides requires files conflic
     $params{$_} and $callback .= 'foreach my $e ($pkg->'.$_.') { local $_ = $pkg->'.$full.'name."'.(!$quiet && ":$_").':$e"; '.$expr.' or next; print "$_\n" }';
 }
 $callback .= ' 1; }';
-$urpm->{log}(_("callback is :\n%s\n", $callback));
+$urpm->{log}(N("callback is :\n%s\n", $callback));
 $callback = eval $callback;
 $@ and usage;