diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-15 12:17:28 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-15 12:17:28 +0000 |
| commit | fae7151624f74e035511b417cfca83eac21af7f0 (patch) | |
| tree | f64028fde5a4c813ce07e709d0166049677b8aa8 | |
| parent | 81849e8742c98a0bddd9c54c9522e8356cc446c8 (diff) | |
| download | mgatools-fae7151624f74e035511b417cfca83eac21af7f0.tar mgatools-fae7151624f74e035511b417cfca83eac21af7f0.tar.gz mgatools-fae7151624f74e035511b417cfca83eac21af7f0.tar.bz2 mgatools-fae7151624f74e035511b417cfca83eac21af7f0.tar.xz mgatools-fae7151624f74e035511b417cfca83eac21af7f0.zip | |
(cleanrpmsrate) reduce scope of some variables
| -rw-r--r-- | pm/MGATools/rpmsrate.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pm/MGATools/rpmsrate.pm b/pm/MGATools/rpmsrate.pm index 4cd35e4..384b078 100644 --- a/pm/MGATools/rpmsrate.pm +++ b/pm/MGATools/rpmsrate.pm @@ -202,12 +202,14 @@ sub cleanrpmsrate { } @{$done{$_}}; my ($d) = /(.*)-[^-]+/; - my ($a, $b, $e, $do); + my ($e, $do); if (!$is_plain_flag) { + my ($a, $b); if ((s/(-devel)// ? ($b = "-devel") : /^$kernel_like/) && ($rpms{$_} || (defined $rpms{"lib$_"} and $a = "lib") || (defined $rpms{"lib64$_"} and $a = "lib64") || (s/^lib(.*?)[_-]*[\d._]*(-.*)?$/$1$2/g && defined $rpms{"lib64$_"} and $a = 'lib64'))) { + warn ">> looking at $c\n"; $e = $rpms{"$a$_"}[1] . $rpms{"$a$_"}[0] . $rpms{"$a$_"}[2] . $b; $do = 1; } elsif (/^$rpmsrate_dkms_like$/ && $rpms{"$1$2"}) { |