From 3463a2d5b510f37b9ebe22a30e3b906b2922398c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 3 Jul 2008 11:23:57 +0000 Subject: remove unused vars --- URPM/Resolve.pm | 7 +++---- 1 file 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-/) { -- cgit v1.2.1