From 5ee5f745ef8b7e123e618cdf91f581d064c72e75 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 6 Mar 2003 13:10:05 +0000
Subject: fixed newer export methodology.

---
 urpme | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'urpme')

diff --git a/urpme b/urpme
index 1110c177..6c914d71 100644
--- a/urpme
+++ b/urpme
@@ -25,9 +25,6 @@ use URPM;
 use URPM::Resolve;
 use urpm;
 
-#- get I18N translation method.
-import urpm N;
-
 my (@nextargv, $root, $test, $parallel, $auto, $matches, $maymatch, @l);
 my $askok = N("Is this OK?");
 # Translator: Add here the keys which might be pressed in the "No"-case.
@@ -53,7 +50,7 @@ usage:
 @ARGV or usage;
 while (defined($_ = shift @ARGV)) {
     /^--help$/ and do { usage; next };
-    /^--no-locales$/ and do { undef *_; undef *urpm::_; *_ = *urpm::_ = sub { sprintf(shift @_, @_) }; next };
+    /^--no-locales$/ and do { undef *N; undef *urpm::N; *N = *urpm::N = sub { sprintf(shift @_, @_) }; next };
     /^--?auto$/ and do { $auto = 1; next };
     /^--(no-)?test$/ and do { $test = !$1; next };
     /^--root$/ and do { push @nextargv, \$root; next };
-- 
cgit v1.2.1