projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0a86c43
)
fiddle a bit more on compatibilty
author
minima
<minima>
Fri, 11 Jan 2002 00:38:14 +0000
(
00:38
+0000)
committer
minima
<minima>
Fri, 11 Jan 2002 00:38:14 +0000
(
00:38
+0000)
perl/Msg.pm
patch
|
blob
|
history
diff --git
a/perl/Msg.pm
b/perl/Msg.pm
index 57880ed112f825f9d445a4bdf7397375f4ac0835..30519a0764b9c0ddec9dcc7330277cb68d600986 100644
(file)
--- 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.
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,
# 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);
}
my $flags = fcntl ($_[0], F_GETFL, 0);
@@
-375,8
+373,11
@@
sub new_server {
return $self;
}
return $self;
}
+my $oldw = $^W;
+$^W = 0;
eval "use Socket qw(IPPROTO_TCP TCP_NODELAY)";
eval "use Socket qw(IPPROTO_TCP TCP_NODELAY)";
-if ($@) {
+$^W = $oldw;
+if ($@ && !$main::inwin) {
sub IPPROTO_TCP {6;}
sub TCP_NODELAY {1;};
}
sub IPPROTO_TCP {6;}
sub TCP_NODELAY {1;};
}