diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.com> | 2006-08-11 07:57:52 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.com> | 2006-08-11 07:57:52 +0000 |
| commit | 815e560840114d7c00db50192b825d27406df298 (patch) | |
| tree | a0155870bf114b6343ed4002adcd811562a32280 /urpm/download.pm | |
| parent | 446690cc92c337319cc6e385dcc0a7f12d5083ac (diff) | |
| download | urpmi-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.pm | 4 |
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") { |