From 36214d5fb31f111b9108de59cfd5b86baa2fe8f7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 6 Oct 2008 16:22:41 +0000
Subject: (upgrade) perl_checker cleanup

---
 mdkapplet | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'mdkapplet')

diff --git a/mdkapplet b/mdkapplet
index 42fd6789..96d4bc6f 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -400,7 +400,7 @@ sub upgrade() {
 
     my $urpm = Rpmdrake::open_db::fast_open_urpmi_db();
 
-    my $_urpmi_lock = eval {
+    my $urpmi_lock = eval {
         local $urpm->{fatal} = sub { die @_ };
         urpm::lock::urpmi_db($urpm, 'exclusive');
     };
@@ -409,7 +409,7 @@ sub upgrade() {
         logIt(sprintf("locking urpmi database failed: %s"), $err);
         return;
     }
-    undef $_urpmi_lock;
+    undef $urpmi_lock;
 
     logIt("removing all existing urpmi media for upgrade");
     run_program::run('urpmi.removemedia', if_($root, '--urpmi-root', $root), '-a');
-- 
cgit v1.2.1