Могу ли я подавить сообщение об ошибке от fetch.pm в Perl
При использовании Fetch для загрузки URL-адреса из Teamcity, я получил Fetch fail! ошибка. Но загрузка файла на самом деле работает.
Недавно они изменили разрешения нашего сервера Teamcity, поэтому я должен использовать имя пользователя и пароль при получении URL-адреса файла для загрузки. Мне просто интересно, если это вызывает проблему с проверкой извлечения шлюза, но как я могу скачать файл. Есть ли способ подавить эту ошибку или просто понизить ее до предупреждения?
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.