[perl.git] branch tonyc/cygwin-socket, updated. v5.19.7-267-gb3b9505

[Tony Cook]

In perl.git, the branch tonyc/cygwin-socket has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/b3b9505ffdbd1d4f8a59382bbe42bfbcdc294a3f?hp=2a2778d94a9029da827fe08e8d1394993380d25a>

- Log -----------------------------------------------------------------
commit b3b9505ffdbd1d4f8a59382bbe42bfbcdc294a3f
Author: Tony Cook <t...@develop-help.com>
Date:   Mon Jan 13 16:42:40 2014 +1100

    fix a race
-----------------------------------------------------------------------

Summary of changes:
 t/io/socket.t | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/t/io/socket.t b/t/io/socket.t
index 6ffb336..b723e3c 100644
--- a/t/io/socket.t
+++ b/t/io/socket.t
@@ -77,7 +77,7 @@ SKIP: {
                defined $sent or last;
                $sent_total += $sent;
            }
-           ok(shutdown($accept, 1), "shutdown() works");
+           my $shutdown = shutdown($accept, 1);
 
            # wait for the remote to close so data isn't lost in
            # transit on a certain broken implementation
@@ -85,9 +85,11 @@ SKIP: {
            # child tests are printed once we hit eof
            curr_test(curr_test()+5);
            waitpid($pid, 0);
+
+           ok($shutdown, "shutdown() works");
        }
        elsif (defined $pid) {
-           curr_test(curr_test()+3);
+           curr_test(curr_test()+2);
            #sleep 1;
            # child
            ok_child(close($serv), "close server socket in child");

--
Perl5 Master Repository