| Subject: | ->socketpair and ->pipequad have moved in IO::Async 0.56 |
As suggested, using IO::Async::OS->socketpair + ->pipequad instead works fine. With the attached path all tests pass cleanly, and again this is only in tests, nothing in the main code uses ->socketpair directly.
cheers,
Tom
(see also #84637)
| Subject: | io-async-os-socketpair.patch |
=== modified file 't/01upgrade.t'
--- t/01upgrade.t 2013-03-02 23:19:22 +0000
+++ t/01upgrade.t 2013-04-14 23:15:43 +0000
@@ -16,7 +16,7 @@
testing_loop( $loop );
{
- my ( $server_sock, $client_sock ) = $loop->socketpair or
+ my ( $server_sock, $client_sock ) = IO::Async::OS->socketpair or
die "Cannot socketpair - $!";
$server_sock->blocking( 0 );
@@ -82,7 +82,7 @@
}
{
- my ( $server_sock, $client_sock ) = $loop->socketpair or
+ my ( $server_sock, $client_sock ) = IO::Async::OS->socketpair or
die "Cannot socketpair - $!";
$server_sock->blocking( 0 );
@@ -105,7 +105,7 @@
}
{
- my ( $server_sock, $client_sock ) = $loop->socketpair or
+ my ( $server_sock, $client_sock ) = IO::Async::OS->socketpair or
die "Cannot socketpair - $!";
$server_sock->blocking( 0 );
=== modified file 't/02protocol-upgrade.t'
--- t/02protocol-upgrade.t 2013-03-02 23:19:22 +0000
+++ t/02protocol-upgrade.t 2013-04-14 23:15:49 +0000
@@ -16,7 +16,7 @@
testing_loop( $loop );
-my ( $server_sock, $client_sock ) = $loop->socketpair or
+my ( $server_sock, $client_sock ) = IO::Async::OS->socketpair or
die "Cannot socketpair - $!";
$server_sock->blocking( 0 );
=== modified file 't/10connect-openssl.t'
--- t/10connect-openssl.t 2013-03-02 23:19:22 +0000
+++ t/10connect-openssl.t 2013-04-14 23:16:11 +0000
@@ -20,7 +20,7 @@
testing_loop( $loop );
-my ( $my_rd, $ssl_wr, $ssl_rd, $my_wr ) = $loop->pipequad
+my ( $my_rd, $ssl_wr, $ssl_rd, $my_wr ) = IO::Async::OS->pipequad
or die "Cannot pipequad - $!";
my $kid = $loop->spawn_child(
=== modified file 't/10connect-socat.t'
--- t/10connect-socat.t 2013-03-02 23:19:22 +0000
+++ t/10connect-socat.t 2013-04-14 23:16:04 +0000
@@ -20,7 +20,7 @@
testing_loop( $loop );
-my ( $my_rd, $ssl_wr, $ssl_rd, $my_wr ) = $loop->pipequad
+my ( $my_rd, $ssl_wr, $ssl_rd, $my_wr ) = IO::Async::OS->pipequad
or die "Cannot pipequad - $!";
my $kid = $loop->spawn_child(
=== modified file 't/11listen-socat.t'
--- t/11listen-socat.t 2013-03-02 23:15:01 +0000
+++ t/11listen-socat.t 2013-04-14 23:16:18 +0000
@@ -40,7 +40,7 @@
wait_for { defined $listen_sock };
-my ( $my_rd, $ssl_wr, $ssl_rd, $my_wr ) = $loop->pipequad
+my ( $my_rd, $ssl_wr, $ssl_rd, $my_wr ) = IO::Async::OS->pipequad
or die "Cannot pipequad - $!";
my $kid = $loop->spawn_child(