develooper Front page | perl.perl5.porters | Postings from September 2014

Re: [perl #122657] t/io/socket.t failing on hurd: peer from recv()should be empty or the remote name

Thread Previous | Thread Next
From:
Leon Timmermans
Date:
September 24, 2014 21:31
Subject:
Re: [perl #122657] t/io/socket.t failing on hurd: peer from recv()should be empty or the remote name
Message ID:
CAHhgV8iytw5++NGoadTE8Ntg7tX=UmCL7EsPaiFzuMySWBQ03Q@mail.gmail.com
From 34faf418933fa03c23374d777313a39238fea375 Mon Sep 17 00:00:00 2001
From: Leon Timmermans <fawaka@gmail.com>
Date: Wed, 24 Sep 2014 23:17:21 +0200
Subject: [PATCH] Compare recv return value to peername in socket test

---
 t/io/socket.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/io/socket.t b/t/io/socket.t
index b723e3c..345d196 100644
--- a/t/io/socket.t
+++ b/t/io/socket.t
@@ -102,7 +102,7 @@ SKIP: {
 	    my $buf;
 	    my $recv_peer = recv($child, $buf, 1000, 0);
 	    # [perl #118843]
-	    ok_child($recv_peer eq '' || $recv_peer eq $bind_name,
+	    ok_child($recv_peer eq '' || $recv_peer eq getpeername $child,
 	       "peer from recv() should be empty or the remote name");
 	    while(defined recv($child, my $tmp, 1000, 0)) {
 		last if length $tmp == 0;
-- 
2.1.1-391-g7a54a76


Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About