diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-08-31 16:45:46 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-08-31 16:45:46 +0000 |
| commit | 377b23ba5067fc180fe227bdd9302643c720746f (patch) | |
| tree | a986146fb139927734ca9a46f1e59f70f27d50a1 | |
| parent | e2cfeee002f8de124a1bc0acbf2f7740d3413d29 (diff) | |
| download | urpmi-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.pm | 5 |
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) = @_; |