fix missing Net::SFTP::Foreign::debug warning

pull/1323/head
Andy Bauer 2016-03-04 17:21:32 -06:00
parent de85e18829
commit ab3c35c629
1 changed files with 4 additions and 2 deletions

View File

@ -935,10 +935,12 @@ sub uploadArchFile
if $Config{ZM_UPLOAD_PORT};
$sftpOptions{timeout} = $Config{ZM_UPLOAD_TIMEOUT}
if $Config{ZM_UPLOAD_TIMEOUT};
$sftpOptions{more} = [ '-o'=>'StrictHostKeyChecking=no' ]
my @more_ssh_args;
push @more_ssh_args, ['-o'=>'StrictHostKeyChecking=no']
if ! $Config{ZM_UPLOAD_STRICT};
$Net::SFTP::Foreign::debug = -1
push @more_ssh_args, ['-v']
if $Config{ZM_UPLOAD_DEBUG};
$sftpOptions{more} = [@more_ssh_args];
my $sftp = Net::SFTP::Foreign->new( $Config{ZM_UPLOAD_HOST}, %sftpOptions );
if ( $sftp->error )
{