- 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 };';