From ac7138b62fa4ba47539b94949698a3fc2bae9140 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 18 Dec 2011 03:14:02 +0000
Subject: perl_checker cleanups

---
 urpmi | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'urpmi')

diff --git a/urpmi b/urpmi
index f6c63274..2dee31bc 100755
--- a/urpmi
+++ b/urpmi
@@ -563,7 +563,6 @@ have to be removed for others to be upgraded:\n%s\n", $list);
     if ($urpm->{options}{auto}) {
 	print "$msg\n";
     } else {
-	my $yesexpr = N("Yy");
 	$force || urpm::msg::ask_yes_or_no($msg) or exit 0;
     }
 }
@@ -671,7 +670,6 @@ my $exit_code = urpm::main_loop::run($urpm, $state,
 		print "$msg\n";
 		0;
 	    } else {
-		my $yesexpr = N("Yy");
 		$force || urpm::msg::ask_yes_or_no("$msg$msg2");
 	    }
     },                           
@@ -681,7 +679,6 @@ my $exit_code = urpm::main_loop::run($urpm, $state,
     },
     ask_yes_or_no => sub {
 	my ($_title, $msg) = @_; # graphical title
-	my $yesexpr = N("Yy");
 	$force || urpm::msg::ask_yes_or_no($msg);
     },
     need_restart => sub {
-- 
cgit v1.2.1