diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-15 12:17:31 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-15 12:17:31 +0000 |
commit | b24ba9733c0f506d56e66c0e8b6e131f98be5dc0 (patch) | |
tree | ecdda88ba6de20c573cb99fba76793de68b4bebf | |
parent | fae7151624f74e035511b417cfca83eac21af7f0 (diff) | |
download | mgatools-b24ba9733c0f506d56e66c0e8b6e131f98be5dc0.tar mgatools-b24ba9733c0f506d56e66c0e8b6e131f98be5dc0.tar.gz mgatools-b24ba9733c0f506d56e66c0e8b6e131f98be5dc0.tar.bz2 mgatools-b24ba9733c0f506d56e66c0e8b6e131f98be5dc0.tar.xz mgatools-b24ba9733c0f506d56e66c0e8b6e131f98be5dc0.zip |
(cleanrpmsrate) rename a variable for better reading
-rw-r--r-- | pm/MGATools/rpmsrate.pm | 12 |
1 files changed, 6 insertions, 6 deletions
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; } |