From 570f6d0e0a526c72e509f9dac8afc1a08915e6b2 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 2 Mar 2007 13:31:22 +0000
Subject: perl_checker cleanup

---
 Rpmdrake/pkg.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 3ded358a..9476bf20 100755
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -528,6 +528,7 @@ sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
 
         my $progress_nb;
 
+    my ($nok, @rpms_install, @rpms_upgrade, $verbose);
     my $transaction;
     my $callback_inst = sub {
         my ($urpm, $type, $id, $subtype, $amount, $total) = @_;
@@ -544,7 +545,6 @@ sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
         }
     };
     
-    my ($nok, @rpms_install, @rpms_upgrade);
     foreach my $set (@{$state->{transaction} || []}) {
         my (@transaction_list, %transaction_sources);
         $transaction = $set;
-- 
cgit v1.2.1