mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
add missing defined for M$
This commit is contained in:
parent
7505989c04
commit
532c5c9e14
19
perl/Msg.pm
19
perl/Msg.pm
@ -53,16 +53,13 @@ BEGIN {
|
||||
require Errno; Errno->import(qw(EAGAIN EINPROGRESS EWOULDBLOCK));
|
||||
};
|
||||
|
||||
unless ($^O eq 'MSWin32') {
|
||||
if ($] >= 5.6) {
|
||||
eval {
|
||||
require Socket; Socket->import(qw(IPPROTO_TCP TCP_NODELAY));
|
||||
};
|
||||
} else {
|
||||
dbg("IPPROTO_TCP and TCP_NODELAY manually defined");
|
||||
eval 'sub IPPROTO_TCP { 6 };';
|
||||
eval 'sub TCP_NODELAY { 1 };';
|
||||
}
|
||||
eval {
|
||||
require Socket; Socket->import(qw(IPPROTO_TCP TCP_NODELAY));
|
||||
};
|
||||
unless (*IPPROTO_TCP && !$^O =~ /^MS/) {
|
||||
dbg("IPPROTO_TCP and TCP_NODELAY manually defined");
|
||||
eval '*IPPROTO_TCP = sub { 6 };';
|
||||
eval '*TCP_NODELAY = sub { 1 };';
|
||||
}
|
||||
# http://support.microsoft.com/support/kb/articles/Q150/5/37.asp
|
||||
# defines EINPROGRESS as 10035. We provide it here because some
|
||||
@ -72,6 +69,8 @@ BEGIN {
|
||||
eval '*EWOULDBLOCK = *EAGAIN = sub { 10035 };';
|
||||
eval '*F_GETFL = sub { 0 };';
|
||||
eval '*F_SETFL = sub { 0 };';
|
||||
eval '*IPPROTO_TCP = sub { 6 };';
|
||||
eval '*TCP_NODELAY = sub { 1 };';
|
||||
$blocking_supported = 1;
|
||||
}
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user