Bug #84862 for Net-SFTP-Foreign: Appending newline character to downloaded file.

>> Queue: Net-SFTP-Foreign >> Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=84862 > >> >> The ftp module is tied into an automation agent, which spawns multiple ftp handles and forks, cycling through each one and downloading the detected files for multiple detect locations that have the same ftp site. >> >> Here's some snippets of the connection and download calls. >> >> $Net::SFTP::Foreign::debug = -1; >> >> $args{host} = $host; >> $args{user} = $login; >> $args{password} = $password unless ($use_secure eq 'K'); >> $args{port} = defined($port) ? $port : 22; >> $args{timeout} = 300; >> $args{more} = '-v'; >> $args{late_set_perm} = 1; >> $args{block_size} = 65536; >> $connection = Net::SFTP::Foreign->new(%args); >> $connection->error >> and connection_failure($detection_id >> ,$login_failure . "[" . $connection->error . "]" >> ,$dbh >> ,1 >> ,undef >> ,$connection->status); >> >> >> $ftp_handle->get($source_path >> . "/" >> . $filename >> ,$download_staging_path >> . "/" >> . $renamed_file >> ,callback => $callback) >> or ($ftp_handle->get($source_path >> . "/" >> . $filename >> ,$download_staging_path >> . "/" >> . $renamed_file >> ,callback => $callback) >> or download_failure($filename >> ,$download_staging_path >> ,$renamed_file >> ,\%det >> ,$file_prelog_id >> ,$dbh) >> and next); >> my callback hook.. >> >> >> sub sftp_callback { >> my ($sftp, $data, $offset, $size) = @_; >> >> my $gigabytes = sprintf("%.4f", $size/1024/1024/1024); >> my $block_size = $sftp->{_block_size}; >> >> if ($size eq 0) { >> ## avoid division by zero >> $size = 1; >> } >> ## total full blocks >> my $total_blocks = int($size/$block_size); >> >> if ($offset eq 0) { >> vprint ("Starting transfer of $gigabytes GB file"); >> vprint ("Block Size = $block_size" ); >> >> } >> my $dyn_percent= sprintf("%.1f",$offset/$size); >> >> my $print_flag = undef; >> >> my $calc_offset = int($total_blocks*$dyn_percent+.1)*$block_size; >> $print_flag = 1 if ($offset eq $calc_offset); >> >> if ($offset eq $size || defined($print_flag) ) { >> my $percent = sprintf("%.4f",$offset / $size)*100; >> >> vprint("Transferred [$percent\%] -- [$offset bytes] "); >> >> } >> }