From 815e560840114d7c00db50192b825d27406df298 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.com>
Date: Fri, 11 Aug 2006 07:57:52 +0000
Subject: Localize $_ before magical while(<$file>) loops

---
 urpm/ldap.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'urpm/ldap.pm')

diff --git a/urpm/ldap.pm b/urpm/ldap.pm
index 34a387d3..e734c883 100644
--- a/urpm/ldap.pm
+++ b/urpm/ldap.pm
@@ -125,6 +125,7 @@ sub get_ldap_config_file($) {
     );
     # TODO more verbose error ?
     open my $conffh, $file or return;
+    local $_;
     while (<$conffh>) {
 	s/#.*//;
 	s/^\s*//;
-- 
cgit v1.2.1