From 5ee5f745ef8b7e123e618cdf91f581d064c72e75 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 6 Mar 2003 13:10:05 +0000 Subject: fixed newer export methodology. --- urpmi | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'urpmi') diff --git a/urpmi b/urpmi index 7bf00d2b..06af1270 100755 --- a/urpmi +++ b/urpmi @@ -19,9 +19,6 @@ #use strict qw(subs vars refs); use urpm; -#- get I18N translation method. -import urpm N; - #- contains informations to parse installed system. my $urpm = new urpm; @@ -132,7 +129,7 @@ my $command_line = join " ", @ARGV; @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 }; /^--update$/ and do { $update = 1; next }; /^--media$/ and do { push @nextargv, \$media; next }; /^--mediums$/ and do { push @nextargv, \$media; next }; -- cgit v1.2.1