From: Jim Cromie Date: Tue, 4 Apr 2006 11:07:03 +0000 (-0400) Subject: Re: Making IO::Socket pass test on Win32 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f84b4b2280d4b9be59985f87c051feb108823dff;p=p5sagit%2Fp5-mst-13.2.git 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 --- 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