From fae7151624f74e035511b417cfca83eac21af7f0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 15 Mar 2012 12:17:28 +0000
Subject: (cleanrpmsrate)  reduce scope of some variables

---
 pm/MGATools/rpmsrate.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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"}) {
-- 
cgit v1.2.1