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.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'urpm.pm')

diff --git a/urpm.pm b/urpm.pm
index 9ff0ae63..6f34c998 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -244,6 +244,7 @@ sub read_config {
     #- read MD5 sums (usually not in urpmi.cfg but in a separate file)
     my $md5sum = $urpm->open_safe("<", "$urpm->{statedir}/MD5SUM");
     if ($md5sum) {
+	local $_;
 	while (<$md5sum>) {
 	    my ($md5sum, $file) = /(\S*)\s+(.*)/;
 	    foreach (@{$urpm->{media}}) {
@@ -972,6 +973,7 @@ sub reconfig_urpmi {
     #- the first line of reconfig.urpmi must be magic, to be sure it's not an error file
     my $magic = <$fh>;
     $magic =~ /^# this is an urpmi reconfiguration file/ or return undef;
+    local $_;
     while (<$fh>) {
 	chomp;
 	s/^\s*//; s/#.*$//; s/\s*$//;
@@ -2497,6 +2499,7 @@ sub get_source_packages {
 	    if ($listfile && -r $listfile) {
 		my $fh = $urpm->open_safe('<', $listfile);
 		if ($fh) {
+		    local $_;
 		    while (<$fh>) {
 			chomp;
 			if (my ($filename) = m|/([^/]*\.rpm)$|) {
-- 
cgit v1.2.1