| … | |
… | |
| 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.13; |
37 | our $VERSION = 4.14; |
| 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 | } |
