fixed newer export methodology.

1 files changed, 1 insertions, 4 deletions

diff --git a/urpmf b/urpmf
index bb621543..522f3910 100755
--- a/urpmf
+++ b/urpmf
@@ -19,9 +19,6 @@
 #use strict qw(subs vars refs);
 use urpm;
 
-#- get I18N translation method.
-import urpm N;
-
 sub usage {
     print STDERR N("urpmf version %s
 Copyright (C) 2002 MandrakeSoft.
@@ -75,7 +72,7 @@ my $expr;
 my @nextargv;
 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 };
     /^--update$/ and do { $update = 1; next };
     /^--media$/ and do { push @nextargv, \$media; next };
     /^--mediums$/ and do { push @nextargv, \$media; next };