Я поддерживаю модуль XML-LibXSLT , и один из тестов должен получить доступ к несуществующему URL.Проблема заключалась в том, что кто-то сообщил, что в их системе существует URL, поэтому я решил выделить случайный порт на локальном хосте, где, я уверен, не будет веб-службы.Это было сделано так:
# We reserve a random port to make sure the localhost address is not
# valid. See:
#
# https://rt.cpan.org/Ticket/Display.html?id=52422
my $sock = IO::Socket::INET->new(
Proto => 'tcp',
);
my $port = $sock->sockport();
$file = "http://localhost:${port}/allow.xml";
Теперь проблема в том, что $ port определен и допустим (для значения зарезервированного порта) в Linux, но он не работает в Windows - см.этот отчет об ошибке - https://rt.cpan.org/Ticket/Display.html?id=71456.Мой вопрос: как я могу зарезервировать новый, случайный, еще не занятый порт для переноса через UNIX, Mac OS X и Windows в Perl 5?
С уважением,
Shlomi Fish