summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-08-31 16:45:46 +0000
committerThierry Vignaud <tv@mageia.org>2012-08-31 16:45:46 +0000
commit377b23ba5067fc180fe227bdd9302643c720746f (patch)
treea986146fb139927734ca9a46f1e59f70f27d50a1
parente2cfeee002f8de124a1bc0acbf2f7740d3413d29 (diff)
downloadurpmi-377b23ba5067fc180fe227bdd9302643c720746f.tar
urpmi-377b23ba5067fc180fe227bdd9302643c720746f.tar.gz
urpmi-377b23ba5067fc180fe227bdd9302643c720746f.tar.bz2
urpmi-377b23ba5067fc180fe227bdd9302643c720746f.tar.xz
urpmi-377b23ba5067fc180fe227bdd9302643c720746f.zip
perl_checker cleanup: kill unused variables
(they're unused since commit r5054 on 2012-06-28: "(find_packages_to_remove) simplify")
-rw-r--r--urpm/select.pm5
1 files changed, 1 insertions, 4 deletions
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) = @_;