Re: Making IO::Socket pass test on Win32

Message-ID: <44328B97.2060903@gmail.com>

p4raw-id: //depot/perl@27714

diff --git a/ext/B/t/concise-xs.t b/ext/B/t/concise-xs.t
index 9a69030..2ae87a1 100644 (file)
--- a/ext/B/t/concise-xs.t
+++ b/ext/B/t/concise-xs.t
@@ -118,7 +118,7 @@ use Carp;
 use Test::More tests => ( # per-pkg tests (function ct + require_ok)
                          40 + 16       # Data::Dumper, Digest::MD5
                          + 511 + 235   # B::Deparse, B
-                         + 588 + 189   # POSIX, IO::Socket
+                         + 588 + 190   # POSIX, IO::Socket
                          + 3 * ($] > 5.009)
                          + 14 * ($] >= 5.009003)
                          - 22);        # fudge
@@ -205,7 +205,7 @@ my $testpkgs = {
                      /],
               },
 
-    IO::Socket => { dflt => 'constant',                # 157/188
+    IO::Socket => { dflt => 'constant',                # 157/190
 
                    perl => [qw/ timeout socktype sockopt sockname
                             socketpair socket sockdomain sockaddr_un
@@ -213,7 +213,7 @@ my $testpkgs = {
                             register_domain recv protocol peername
                             new listen import getsockopt croak
                             connected connect configure confess close
-                            carp bind atmark accept
+                            carp bind atmark accept blocking
                             /],
 
                    XS => [qw/ unpack_sockaddr_un unpack_sockaddr_in