From c0aaa0bd1eb57ad5786aa67da6c4e9ca016c0535 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 27 Nov 2006 13:21:09 +0000
Subject: perl_checker cleanup

---
 edit-urpm-sources.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/edit-urpm-sources.pl b/edit-urpm-sources.pl
index 7691b74f..eb887d1e 100755
--- a/edit-urpm-sources.pl
+++ b/edit-urpm-sources.pl
@@ -1048,7 +1048,7 @@ or to perform updates.")), yesno => 1) or myexit -1;
     push @$already_splashed, basename($0);
 }
 
-my $_lock;
+my $lock;
 {
     $urpm = urpm->new;
     local $urpm->{fatal} = sub {
@@ -1060,7 +1060,7 @@ packages as well?)."));
         myexit -1;
     };
     # lock urpmi DB
-    $_lock = urpm::lock::urpmi_db($urpm, 'exclusive');
+    $lock = urpm::lock::urpmi_db($urpm, 'exclusive');
 }
 
 mainwindow();
-- 
cgit v1.2.1