diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-07-03 11:23:57 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-07-03 11:23:57 +0000 |
| commit | 3463a2d5b510f37b9ebe22a30e3b906b2922398c (patch) | |
| tree | b919472c982d2cf5bda675cfe6134c1d5810359e | |
| parent | 253ddfa8416e92b5e1da4497b102acfcf5d3ad2a (diff) | |
| download | perl-URPM-3463a2d5b510f37b9ebe22a30e3b906b2922398c.tar perl-URPM-3463a2d5b510f37b9ebe22a30e3b906b2922398c.tar.gz perl-URPM-3463a2d5b510f37b9ebe22a30e3b906b2922398c.tar.bz2 perl-URPM-3463a2d5b510f37b9ebe22a30e3b906b2922398c.tar.xz perl-URPM-3463a2d5b510f37b9ebe22a30e3b906b2922398c.zip | |
remove unused vars
| -rw-r--r-- | URPM/Resolve.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index e989b68..d62df93 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -104,7 +104,6 @@ sub strict_arch_check_installed { sub strict_arch_check { my ($installed_pkg, $pkg) = @_; if ($pkg->arch ne 'src' && $pkg->arch ne 'noarch') { - my $n = $pkg->name; if ($installed_pkg->arch ne 'noarch') { $pkg->arch eq $installed_pkg->arch or return; } @@ -282,7 +281,7 @@ sub _find_required_package__kernel_source { $choices->[0]->name =~ /^kernel-(.*source-|.*-devel-)/ or return; - my @l = grep { + grep { if ($_->name =~ /^kernel-.*source-stripped-(.*)/) { my $version = quotemeta($1); find { @@ -307,8 +306,8 @@ sub _find_required_package__kmod { $choices->[0]->name =~ /^dkms-|-kernel-2\./ or return; - my @l = grep { - if (my ($name, $version, $flavor, $release) = $_->name =~ /(.*)-kernel-(2\..*)-(.*)-(.*)/) { + grep { + if (my ($_name, $version, $flavor, $release) = $_->name =~ /(.*)-kernel-(2\..*)-(.*)-(.*)/) { my $kernel = "kernel-$flavor-$version-$release"; _is_selected_or_installed($urpm, $db, $kernel); } elsif ($_->name =~ /^dkms-/) { |