Posso suprimir a mensagem de erro do fetch.pm no Perl
Ao usar a Buscar para baixar um URL do Teamcity, recebo uma Busca com falha! erro. Mas o download do arquivo realmente funciona.
Eles alteraram recentemente as permissões do nosso servidor Teamcity, portanto, devo usar um nome de usuário e senha ao obter o URL do arquivo para download. Só estou me perguntando se isso está causando um problema com a validação de busca do Gateway, mas como posso baixar o arquivo. Existe uma maneira de suprimir esse erro ou apenas fazer o downgrade para um aviso?
Perl Code:
my $ff = File::Fetch->new(uri => "$uri");
my $where = $ff->fetch ( to => "$DOWNLOAD_LOCATION" );
print Dumper($ff);
Output:
Fetch failed! HTTP response: 502 Bad Gateway [502 notresolvable] at
<path>\myfile.pl line 249.
Dumper Output:
$VAR1 = bless( {'vol' => '',
'file_default' => 'file_default',
'_error_msg' => 'Fetch failed! HTTP response: 502 Bad Gateway [502 notresolvable]',
'file' => 'myfilename.zip',
'scheme' => 'http',
'path' => '/repository/download/buildlabel/1042086:id/',
'_error_msg_long' => 'Fetch failed! HTTP response: 502 Bad Gateway [502 notresolvable] at C:/Perl/lib/File/Fetch.pm line 598.