summaryrefslogtreecommitdiffstats
path: root/urpm/download.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.com>2006-08-11 07:57:52 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.com>2006-08-11 07:57:52 +0000
commit815e560840114d7c00db50192b825d27406df298 (patch)
treea0155870bf114b6343ed4002adcd811562a32280 /urpm/download.pm
parent446690cc92c337319cc6e385dcc0a7f12d5083ac (diff)
downloadurpmi-815e560840114d7c00db50192b825d27406df298.tar
urpmi-815e560840114d7c00db50192b825d27406df298.tar.gz
urpmi-815e560840114d7c00db50192b825d27406df298.tar.bz2
urpmi-815e560840114d7c00db50192b825d27406df298.tar.xz
urpmi-815e560840114d7c00db50192b825d27406df298.zip
Localize $_ before magical while(<$file>) loops
Diffstat (limited to 'urpm/download.pm')
-rw-r--r--urpm/download.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/urpm/download.pm b/urpm/download.pm
index 909bcb37..e8d92825 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -235,6 +235,7 @@ sub sync_wget {
) . " |";
my $wget_pid = open my($wget), $wget_command;
local $/ = \1; #- read input by only one char, this is slow but very nice (and it works!).
+ local $_;
while (<$wget>) {
$buf .= $_;
if ($_ eq "\r" || $_ eq "\n") {
@@ -297,6 +298,7 @@ sub sync_curl {
}
if (@ftp_files) {
my ($cur_ftp_file, %ftp_files_info);
+ local $_;
eval { require Date::Manip };
@@ -376,6 +378,7 @@ sub sync_curl {
"--stderr", "-", # redirect everything to stdout
@all_files) . " |";
local $/ = \1; #- read input by only one char, this is slow but very nice (and it works!).
+ local $_;
while (<$curl>) {
$buf .= $_;
if ($_ eq "\r" || $_ eq "\n") {
@@ -452,6 +455,7 @@ sub sync_rsync {
(defined $options->{'rsync-options'} ? split /\s+/, $options->{'rsync-options'} : ()),
"'$file' '$options->{dir}' |");
local $/ = \1; #- read input by only one char, this is slow but very nice (and it works!).
+ local $_;
while (<$rsync>) {
$buf .= $_;
if ($_ eq "\r" || $_ eq "\n") {