hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 15:57:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

add missing defined for M$

Browse Source
This commit is contained in:
minima 2002-01-11 01:38:41 +00:00
parent 7505989c04
commit 532c5c9e14
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
perl/Msg.pm
View File

@ -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 {
unless (*IPPROTO_TCP && !$^O =~ /^MS/) {
dbg("IPPROTO_TCP and TCP_NODELAY manually defined");
eval 'sub IPPROTO_TCP { 6 };';
eval 'sub TCP_NODELAY { 1 };';
}
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;
}
}