Try to help older Perls.

FGasper · Dec 21, 2022 · fe225fb · fe225fb
1 parent 920c8cc
commit fe225fb
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/t/round_trip.t b/t/round_trip.t
@@ -10,11 +10,13 @@ use Net::mbedTLS;
 use Test::More;
 use Test::FailWarnings;
 
+use IO::Socket::UNIX;
+
 my $mbedtls = Net::mbedTLS->new();
 
 my ($cln, $srv);
 
-eval { socketpair $cln, $srv, AF_UNIX, SOCK_STREAM, 0 } or do {
+eval { ($cln, $srv) = IO::Socket::UNIX->socketpair(AF_UNIX, SOCK_STREAM, 0) } or do {
     my $err = $@;
     plan skip_all => "socketpair failed: $err";
 };