perl_checker cleanups

1 files changed, 0 insertions, 3 deletions

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 {