From 0c5fd6412ab47880ba2f1ea59d1a4692c7706d5e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 1 Dec 2006 12:05:44 +0000
Subject: perl_checker cleanups

---
 rpmdrake.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'rpmdrake.pm')

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 {
-- 
cgit v1.2.1