changed name of _() function to N()

use of perl_checker to create pot file

1 files changed, 9 insertions, 9 deletions

diff --git a/_irpm b/_irpm
index b66301ee..354a1769 100755
--- a/_irpm
+++ b/_irpm
@@ -7,7 +7,7 @@ use Locale::gettext;
 setlocale (LC_ALL, "");
 textdomain ("urpmi");
 
-sub _ {
+sub N {
     my ($format, @params) = @_;
     sprintf(Locale::gettext::gettext($format), @params);
 }
@@ -20,7 +20,7 @@ $BASE = "$DIR/autoirpm";
 $INSTALL_SCRIPT_REP = "$BASE.scripts";
 
 $rpm = shift @ARGV;
-print STDERR "autoirpm: ", _("installing %s\n",$rpm);
+print STDERR "autoirpm: ", N("installing %s\n",$rpm);
 
 `xtest`;
 $X = ($? == 0);
@@ -30,18 +30,18 @@ $SIG{ALRM} = sub { $pid and kill 9, $pid; not_found(); };
 alarm $timeout;
 
 if (!$automatic) {
-    $interactive_mesg = _("Automatic installation of packages...\nYou requested installation of package %s\n",$rpm) . _("Is this OK?");
+    $interactive_mesg = N("Automatic installation of packages...\nYou requested installation of package %s\n",$rpm) . N("Is this OK?");
     if ($X) {
-	my $ok = _("Ok");
-	my $cancel = _("Cancel");
+	my $ok = N("Ok");
+	my $cancel = N("Cancel");
 	($pid = fork) or exec "gmessage", "-default", $ok, "-buttons", "$ok:0,$cancel:2", $interactive_mesg;
 	wait();
 	$? and not_found();
     } else {
 	if (isatty(0)) {
-	    $noexpr = _("Nn");
-	    $yesexpr = _("Yy");
-	    print $interactive_mesg, _(" (Y/n) ");
+	    $noexpr = N("Nn");
+	    $yesexpr = N("Yy");
+	    print $interactive_mesg, N(" (Y/n) ");
 	    <STDIN> =~ /[$yesexpr]/ or not_found();
 	} else {
 	    # Arghhh not in automatic and no way to contact the user... dying
@@ -60,7 +60,7 @@ fork or exec $urpmi, "--comment", $ARGV[0], $rpm; wait;
 not_found();
 
 sub not_found {
-    print STDERR _("%s: command not found\n",$rpm);
+    print STDERR N("%s: command not found\n",$rpm);
     exit 127;
 }