projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
start work on NP stuff seriously
[spider.git]
/
perl
/
Msg.pm
diff --git
a/perl/Msg.pm
b/perl/Msg.pm
index a30b1f5d064c827fcef6cefa37515927bd0f1ac2..ec2f3b4ca0214836327bb99c8a84aaa60a609b6a 100644
(file)
--- a/
perl/Msg.pm
+++ b/
perl/Msg.pm
@@
-37,6
+37,7
@@
$now = time;
BEGIN {
# Checks if blocking is supported
eval {
BEGIN {
# Checks if blocking is supported
eval {
+ local $^W;
require POSIX; POSIX->import(qw(O_NONBLOCK F_SETFL F_GETFL))
};
if ($@ || $main::is_win) {
require POSIX; POSIX->import(qw(O_NONBLOCK F_SETFL F_GETFL))
};
if ($@ || $main::is_win) {
@@
-50,12
+51,14
@@
BEGIN {
# import as many of these errno values as are available
eval {
# import as many of these errno values as are available
eval {
+ local $^W;
require Errno; Errno->import(qw(EAGAIN EINPROGRESS EWOULDBLOCK));
};
unless ($^O eq 'MSWin32') {
if ($] >= 5.6) {
eval {
require Errno; Errno->import(qw(EAGAIN EINPROGRESS EWOULDBLOCK));
};
unless ($^O eq 'MSWin32') {
if ($] >= 5.6) {
eval {
+ local $^W;
require Socket; Socket->import(qw(IPPROTO_TCP TCP_NODELAY));
};
} else {
require Socket; Socket->import(qw(IPPROTO_TCP TCP_NODELAY));
};
} else {