From 94b9e6854969b7c7419a4ef39eb83a70ca1a85f8 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 11 Jan 2002 00:38:14 +0000 Subject: [PATCH] fiddle a bit more on compatibilty --- perl/Msg.pm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/perl/Msg.pm b/perl/Msg.pm index 57880ed1..30519a07 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -119,14 +119,12 @@ sub blocking return unless $blocking_supported; # Make the handle stop blocking, the Windows way. - if ($^O eq 'MSWin32') { - my $set_it = $_[1]; - + if ($main::iswin) { # 126 is FIONBIO (some docs say 0x7F << 16) ioctl( $_[0], 0x80000000 | (4 << 16) | (ord('f') << 8) | 126, - $set_it - ) or confess "Can't set the handle non-blocking: $!"; + "$_[1]" + ); } my $flags = fcntl ($_[0], F_GETFL, 0); @@ -375,8 +373,11 @@ sub new_server { return $self; } +my $oldw = $^W; +$^W = 0; eval "use Socket qw(IPPROTO_TCP TCP_NODELAY)"; -if ($@) { +$^W = $oldw; +if ($@ && !$main::inwin) { sub IPPROTO_TCP {6;} sub TCP_NODELAY {1;}; } -- 2.43.0