diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2006-12-01 12:05:44 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2006-12-01 12:05:44 +0000 |
| commit | 0c5fd6412ab47880ba2f1ea59d1a4692c7706d5e (patch) | |
| tree | 84935dfe84f3eca8c0eabec7cb8b9440df8d9a39 /rpmdrake.pm | |
| parent | db43bd49dac0a713bded640afd919a7c7312da6f (diff) | |
| download | rpmdrake-0c5fd6412ab47880ba2f1ea59d1a4692c7706d5e.tar rpmdrake-0c5fd6412ab47880ba2f1ea59d1a4692c7706d5e.tar.gz rpmdrake-0c5fd6412ab47880ba2f1ea59d1a4692c7706d5e.tar.bz2 rpmdrake-0c5fd6412ab47880ba2f1ea59d1a4692c7706d5e.tar.xz rpmdrake-0c5fd6412ab47880ba2f1ea59d1a4692c7706d5e.zip | |
perl_checker cleanups
Diffstat (limited to 'rpmdrake.pm')
| -rw-r--r-- | rpmdrake.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/rpmdrake.pm b/rpmdrake.pm index 0cd546b9..400f2b78 100644 --- a/rpmdrake.pm +++ b/rpmdrake.pm @@ -39,6 +39,7 @@ use strict; use c; use POSIX qw(_exit); use common; +use Locale::gettext; use curl_download; @@ -87,7 +88,7 @@ unshift @::textdomains, 'rpmdrake', 'urpmi'; eval { require ugtk2; ugtk2->import(qw(:all)) }; if ($@) { print "This program cannot be run in console mode.\n"; - _exit(0); #- skip ugtk2::END + POSIX::_exit(0); #- skip ugtk2::END } ugtk2::add_icon_path('/usr/share/rpmdrake/icons'); @@ -502,7 +503,7 @@ sub mirrors { require timezone; my $tz = ${timezone::read()}{timezone}; foreach my $mirror (@mirrors) { - my ($land, $goodness); + my $goodness; each_index { $_ = $u2l{$_} || $_; $_ eq $mirror->{country} and $goodness ||= 100-$::i } (map { if_($tz =~ /^$_$/, @{$t2l{$_}}) } keys %t2l), @$us; $mirror->{goodness} = $goodness + rand(); $mirror->{country} = translate($mirror->{country}); @@ -615,7 +616,7 @@ by Mandriva Linux Official Updates.")), %options sub make_url_mirror { my ($mirror) = @_; # because updates media do not provide media.cfg yet - $mirror . '/media/main/updates' + $mirror . '/media/main/updates'; } sub make_url_mirror_dist { |