From 377b23ba5067fc180fe227bdd9302643c720746f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 31 Aug 2012 16:45:46 +0000
Subject: perl_checker cleanup: kill unused variables

(they're unused since commit r5054 on 2012-06-28:
"(find_packages_to_remove) simplify")
---
 urpm/select.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'urpm')

diff --git a/urpm/select.pm b/urpm/select.pm
index 3f4ae577..0b5c7fb3 100644
--- a/urpm/select.pm
+++ b/urpm/select.pm
@@ -444,9 +444,6 @@ sub get_preferred {
     $best ? [$best] : [], [@prefer, @l];
 }
 
-my $fullname2name_re = qr/^(.*)-[^\-]*-[^\-]*\.[^\.\-]*$/;
-
-
 =item find_packages_to_remove($urpm, $state, $l, %options)
 
 Find packages to remove.
@@ -483,7 +480,7 @@ sub find_packages_to_remove {
 
 	if (!$options{matches}) {
 	    foreach (@$l) {
-		my ($n, $found);
+		my ($found);
 
 		$db->traverse_tag('nvra', [ $_ ], sub {
 			my ($p) = @_;
-- 
cgit v1.2.1