… | |
… | |
32 | use base 'Exporter'; |
32 | use base 'Exporter'; |
33 | |
33 | |
34 | our @EXPORT = qw(fh_nonblocking guard fork_call portable_pipe); |
34 | our @EXPORT = qw(fh_nonblocking guard fork_call portable_pipe); |
35 | our @EXPORT_OK = qw(AF_INET6 WSAEWOULDBLOCK WSAEINPROGRESS WSAEINVAL WSAWOULDBLOCK); |
35 | our @EXPORT_OK = qw(AF_INET6 WSAEWOULDBLOCK WSAEINPROGRESS WSAEINVAL WSAWOULDBLOCK); |
36 | |
36 | |
37 | our $VERSION = 4.12; |
37 | our $VERSION = 4.13; |
38 | |
38 | |
39 | BEGIN { |
39 | BEGIN { |
40 | my $posix = 1 * eval { local $SIG{__DIE__}; require POSIX }; |
40 | my $posix = 1 * eval { local $SIG{__DIE__}; require POSIX }; |
41 | eval "sub POSIX() { $posix }"; |
41 | eval "sub POSIX() { $posix }"; |
42 | } |
42 | } |