summaryrefslogtreecommitdiffstats
path: root/urpmf
diff options
context:
space:
mode:
Diffstat (limited to 'urpmf')
-rwxr-xr-xurpmf58
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;