diff options
Diffstat (limited to 'regress/sys/kern/sosplice/error/args-splice-ENOTCONN.pl')
| -rw-r--r-- | regress/sys/kern/sosplice/error/args-splice-ENOTCONN.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/regress/sys/kern/sosplice/error/args-splice-ENOTCONN.pl b/regress/sys/kern/sosplice/error/args-splice-ENOTCONN.pl index 4a04c16cb76..b30ccaee7e5 100644 --- a/regress/sys/kern/sosplice/error/args-splice-ENOTCONN.pl +++ b/regress/sys/kern/sosplice/error/args-splice-ENOTCONN.pl @@ -2,25 +2,25 @@ use strict; use warnings; -use IO::Socket; +use IO::Socket::IP; use BSD::Socket::Splice "SO_SPLICE"; our %args = ( errno => 'ENOTCONN', func => sub { - my $sl = IO::Socket::INET->new( + my $sl = IO::Socket::IP->new( Proto => "tcp", Listen => 5, LocalAddr => "127.0.0.1", ) or die "socket listen failed: $!"; - my $s = IO::Socket::INET->new( + my $s = IO::Socket::IP->new( Proto => "tcp", PeerAddr => $sl->sockhost(), PeerPort => $sl->sockport(), ) or die "socket failed: $!"; - my $ss = IO::Socket::INET->new( + my $ss = IO::Socket::IP->new( Proto => "tcp", ) or die "socket splice failed: $!"; |