From b24ba9733c0f506d56e66c0e8b6e131f98be5dc0 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 15 Mar 2012 12:17:31 +0000 Subject: (cleanrpmsrate) rename a variable for better reading --- pm/MGATools/rpmsrate.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'pm') diff --git a/pm/MGATools/rpmsrate.pm b/pm/MGATools/rpmsrate.pm index 384b078..4e7a0e6 100644 --- a/pm/MGATools/rpmsrate.pm +++ b/pm/MGATools/rpmsrate.pm @@ -201,7 +201,7 @@ sub cleanrpmsrate { !/^[^ ]+ (.*)/ || $1 ne $f; } @{$done{$_}}; - my ($d) = /(.*)-[^-]+/; + my ($name) = /(.*)-[^-]+/; my ($e, $do); if (!$is_plain_flag) { @@ -228,11 +228,11 @@ sub cleanrpmsrate { } # process localized packages (eg: man-pages-XX, hunspell-XX, firefox-XX, ...) - if ($locale{$d} && $localized_pkg{$c}) { - foreach (sort @{$locale{$d}}) { - next if member($flat_path, @{$done{"$d-$_"}}); - push @{$done{"$d-$_"}}, $flat_path; - push @k , "$d-$_"; + if ($locale{$name} && $localized_pkg{$c}) { + foreach (sort @{$locale{$name}}) { + next if member($flat_path, @{$done{"$name-$_"}}); + push @{$done{"$name-$_"}}, $flat_path; + push @k , "$name-$_"; } next; } -- cgit v1.2.1