From 9572b39868a6f3dbe9bb34a15dc757bbd9fd823d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 20 Mar 2012 19:52:16 +0000
Subject: (get_pkgs) reduce scope of some variables

---
 Rpmdrake/pkg.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Rpmdrake')

diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index baef2ea6..c9aecfec 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -486,7 +486,6 @@ sub get_pkgs {
     # find out availlable packages:
 
     $urpm->{state} = {};
-    my (@installable_pkgs, @updates);
 
     $gurpm->label(N("Please wait, finding available packages..."));
     $gurpm->progress($level = 0.66);
@@ -511,6 +510,7 @@ sub get_pkgs {
     $urpm->{rpmdrake_state} = $state; #- Don't forget it
     $gurpm->progress($level = 0.7);
 
+    my @installable_pkgs;
     reset_pbar_count(1);
     foreach my $pkg (@{$urpm->{depslist}}) {
         update_pbar($gurpm);
@@ -543,7 +543,7 @@ sub get_pkgs {
           $all_pkgs{$name} = { pkg => $pkg };
       }
     }
-    @updates = @requested;
+    my @updates = @requested;
     # selecting updates by default but skipped ones (MageiaUpdate only):
     foreach (@requested_strict) {
 	$all_pkgs{$_}{selected} = 1;
-- 
cgit v1.2.1