proxmox-mirrors/pve-common
1
0
Fork 0
mirror of https://git.proxmox.com/git/pve-common synced 2025-08-14 17:22:24 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Use IO::Socket::IP instead of INET

Browse Source
This commit is contained in:
Wolfgang Bumiller 2015-05-08 12:24:41 +02:00 committed by Dietmar Maurer
parent 93276209cc
commit 00dc9d0fa9
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/PVE/Daemon.pm
View File

@ -24,7 +24,7 @@ use PVE::INotify;
use POSIX ":sys_wait_h"; use POSIX ":sys_wait_h";
use Fcntl ':flock'; use Fcntl ':flock';
use Socket qw(IPPROTO_TCP TCP_NODELAY SOMAXCONN); use Socket qw(IPPROTO_TCP TCP_NODELAY SOMAXCONN);
use IO::Socket::INET; use IO::Socket::IP;
use Getopt::Long; use Getopt::Long;
use Time::HiRes qw (gettimeofday); use Time::HiRes qw (gettimeofday);
@ -795,13 +795,13 @@ sub create_reusable_socket {
if $sockfd !~ m/^(\d+)$/; if $sockfd !~ m/^(\d+)$/;
$sockfd = $1; # untaint $sockfd = $1; # untaint
$socket = IO::Socket::INET->new; $socket = IO::Socket::IP->new;
$socket->fdopen($sockfd, 'w') || $socket->fdopen($sockfd, 'w') ||
die "cannot fdopen file descriptor '$sockfd' - $!\n"; die "cannot fdopen file descriptor '$sockfd' - $!\n";
} else { } else {
$socket = IO::Socket::INET->new( $socket = IO::Socket::IP->new(
LocalAddr => $host, LocalAddr => $host,
LocalPort => $port, LocalPort => $port,
Listen => SOMAXCONN, Listen => SOMAXCONN,

4
src/PVE/Tools.pm
View File

@ -3,7 +3,7 @@ package PVE::Tools;
use strict; use strict;
use warnings; use warnings;
use POSIX qw(EINTR); use POSIX qw(EINTR);
use IO::Socket::INET; use IO::Socket::IP;
use IO::Select; use IO::Select;
use File::Basename; use File::Basename;
use File::Path qw(make_path); use File::Path qw(make_path);
@ -691,7 +691,7 @@ sub next_unused_port {
for (my $p = $range_start; $p < $range_end; $p++) { for (my $p = $range_start; $p < $range_end; $p++) {
next if $ports->{$p}; # reserved next if $ports->{$p}; # reserved
my $sock = IO::Socket::INET->new(Listen => 5, my $sock = IO::Socket::IP->new(Listen => 5,
LocalAddr => '0.0.0.0', LocalAddr => '0.0.0.0',
LocalPort => $p, LocalPort => $p,
ReuseAddr => 1, ReuseAddr => 1,