diff options
author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-16 07:36:15 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-16 07:36:15 +0000 |
commit | a4fe7d9c260ca9f732695edd2790cc806be5937d (patch) | |
tree | 21846fd89be1b71258848cd180eea39f6917b088 /urpm/download.pm | |
parent | 0d619a8d67fa2820e1b1ace2762448f5c733d5c0 (diff) | |
download | urpmi-a4fe7d9c260ca9f732695edd2790cc806be5937d.tar urpmi-a4fe7d9c260ca9f732695edd2790cc806be5937d.tar.gz urpmi-a4fe7d9c260ca9f732695edd2790cc806be5937d.tar.bz2 urpmi-a4fe7d9c260ca9f732695edd2790cc806be5937d.tar.xz urpmi-a4fe7d9c260ca9f732695edd2790cc806be5937d.zip |
perl_checker_fixes
Diffstat (limited to 'urpm/download.pm')
-rw-r--r-- | urpm/download.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/urpm/download.pm b/urpm/download.pm index e35538e8..734487d9 100644 --- a/urpm/download.pm +++ b/urpm/download.pm @@ -240,9 +240,9 @@ sub sync_curl { $nick =~ s/@/%40/; $_ = "$proto://$nick:$rest"; } - m|^ftp://.*/([^/]*)$| && -e $1 && -s _ > 8192 and do { + if (m|^ftp://.*/([^/]*)$| && -e $1 && -s _ > 8192) { #- manage time stamp for large file only push @ftp_files, $_; next; - }; #- manage time stamp for large file only. + } push @other_files, $_; } if (@ftp_files) { @@ -306,7 +306,7 @@ sub sync_curl { (map { m|/([^/]*)$| ? ("-z", $1, "-O", $_) : @{[]} } @other_files))) { my @l = (@ftp_files, @other_files); - my ($buf, $file) = (''); + my ($buf, $file); $buf = ''; my $curl_pid = open my $curl, join(" ", map { "'$_'" } "/usr/bin/curl", ($options->{limit_rate} ? ("--limit-rate", $options->{limit_rate}) : ()), ($options->{resume} ? ("--continue-at", "-") : ()), |