X-Git-Url: https://git.proxmox.com/?p=pve-common.git;a=blobdiff_plain;f=src%2FPVE%2FTools.pm;h=da7da5d36146a51a5d95276faaa822284ecaf91d;hp=30322b2888246a8b6ae1c139f370582de936db7e;hb=a0ecb15991e5faf6aeaa221a7502d60f9eb45d51;hpb=c14960cc1d2dc3bf648f4c5a7eb22e7e4cbf4288

diff --git a/src/PVE/Tools.pm b/src/PVE/Tools.pm
index 30322b2..da7da5d 100644
--- a/src/PVE/Tools.pm
+++ b/src/PVE/Tools.pm
@@ -4,7 +4,8 @@ use strict;
 use warnings;
 use POSIX qw(EINTR EEXIST EOPNOTSUPP);
 use IO::Socket::IP;
-use Socket qw(AF_INET AF_INET6 AI_ALL AI_V4MAPPED AI_CANONNAME SOCK_DGRAM);
+use Socket qw(AF_INET AF_INET6 AI_ALL AI_V4MAPPED AI_CANONNAME SOCK_DGRAM
+	      IPPROTO_TCP);
 use IO::Select;
 use File::Basename;
 use File::Path qw(make_path);
@@ -789,7 +790,7 @@ sub next_unused_port {
 	my %sockargs = (Listen => 5,
 			ReuseAddr => 1,
 			Family    => $family,
-			Proto     => 0,
+			Proto     => IPPROTO_TCP,
 			GetAddrInfoFlags => 0);
 	$sockargs{LocalAddr} = $address if defined($address);