summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-10-15 16:23:18 +0000
committerThierry Vignaud <tv@mageia.org>2012-10-15 16:23:18 +0000
commit905b0ea312cc08b1fdfdc5ea177f4f4f14896add (patch)
treef770d0466ce04b746b65bb8465cdf60ec9f04788
parent0733113c22660dc051c369d755a7e248520fdd9a (diff)
downloadurpmi-905b0ea312cc08b1fdfdc5ea177f4f4f14896add.tar
urpmi-905b0ea312cc08b1fdfdc5ea177f4f4f14896add.tar.gz
urpmi-905b0ea312cc08b1fdfdc5ea177f4f4f14896add.tar.bz2
urpmi-905b0ea312cc08b1fdfdc5ea177f4f4f14896add.tar.xz
urpmi-905b0ea312cc08b1fdfdc5ea177f4f4f14896add.zip
rename a variable for reality
-rw-r--r--urpm/orphans.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/urpm/orphans.pm b/urpm/orphans.pm
index 70850883..a43f11e8 100644
--- a/urpm/orphans.pm
+++ b/urpm/orphans.pm
@@ -363,7 +363,7 @@ sub _get_current_kernel_package() {
# do not care about (eg: kernel-devel, kernel-firmware, kernel-latest)
# so it's useless to look at them
#
-my (@latest_kernels, %requested_kernels, %kernels);
+my (@req_by_latest_kernels, %requested_kernels, %kernels);
sub _kernel_callback {
my ($pkg, $unreq_list) = @_;
my $shortname = $pkg->name;
@@ -386,7 +386,7 @@ sub _kernel_callback {
# keep track of packages required by latest kernels in order not to try removing requested kernels:
if ($n =~ /latest/) {
- push @latest_kernels, $pkg->requires;
+ push @req_by_latest_kernels, $pkg->requires;
} else {
$kernels{$shortname} = $pkg;
}
@@ -396,7 +396,7 @@ sub _kernel_callback {
# - returns list of orphan kernels
sub _get_orphan_kernels() {
# keep kernels required by kernel-*-latest:
- delete $kernels{$_} foreach @latest_kernels;
+ delete $kernels{$_} foreach @req_by_latest_kernels;
# return list of unused/orphan kernels:
%kernels;
}