use Carp;
use Test::More tests => ( # per-pkg tests (function ct + require_ok)
40 + 16 # Data::Dumper, Digest::MD5
- + 511 + 233 # B::Deparse, B
- + 588 + 189 # POSIX, IO::Socket
- + 3 * ($] > 5.009)
- + 14 * ($] >= 5.009003)
- - 22); # fudge
+ + 517 + 262 # B::Deparse, B
+ + 595 + 190 # POSIX, IO::Socket
+ + 323 * ($] > 5.009)
+ + 17 * ($] >= 5.009003)
+ - 344); # fudge
require_ok("B::Concise");
Data::Dumper => { XS => [qw/ bootstrap Dumpxs /],
dflt => 'perl' },
B => {
- dflt => 'constant', # all but 47/274
+ dflt => 'constant', # all but 47/297
skip => [ 'regex_padav' ], # threaded only
perl => [qw(
walksymtable walkoptree_slow walkoptree_exec
formfeed end_av dowarn diehook defstash curstash
cstring comppadlist check_av cchar cast_I32 bootstrap
begin_av amagic_generation sub_generation address
- )],
+ ), $] > 5.009 ? ('unitcheck_av') : ()],
},
B::Deparse => { dflt => 'perl', # 235 functions
OPpSORT_REVERSE OPpTARGET_MY OPpTRANS_COMPLEMENT
OPpTRANS_DELETE OPpTRANS_SQUASH PMf_CONTINUE
PMf_EVAL PMf_EXTENDED PMf_FOLD PMf_GLOBAL PMf_KEEP
- PMf_MULTILINE PMf_ONCE PMf_SINGLELINE PMf_SKIPWHITE
+ PMf_MULTILINE PMf_ONCE PMf_SINGLELINE RXf_SKIPWHITE
POSTFIX SVf_FAKE SVf_IOK SVf_NOK SVf_POK SVf_ROK
- SVpad_OUR SVs_RMG SVs_SMG SWAP_CHILDREN
+ SVpad_OUR SVs_RMG SVs_SMG SWAP_CHILDREN OPpPAD_STATE
/],
},
/],
},
- IO::Socket => { dflt => 'constant', # 157/188
+ IO::Socket => { dflt => 'constant', # 157/190
perl => [qw/ timeout socktype sockopt sockname
socketpair socket sockdomain sockaddr_un
new listen import getsockopt croak
connected connect configure confess close
carp bind atmark accept
- /],
+ /, $] > 5.009 ? ('blocking') : () ],
XS => [qw/ unpack_sockaddr_un unpack_sockaddr_in
sockatmark sockaddr_family pack_sockaddr_un