projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
yet more compatibilty fixes
[spider.git]
/
perl
/
Msg.pm
diff --git
a/perl/Msg.pm
b/perl/Msg.pm
index 30519a0764b9c0ddec9dcc7330277cb68d600986..fdcc9fa00c5eef4472bec4f64ad74ac331c7ff12 100644
(file)
--- a/
perl/Msg.pm
+++ b/
perl/Msg.pm
@@
-125,15
+125,15
@@
sub blocking
0x80000000 | (4 << 16) | (ord('f') << 8) | 126,
"$_[1]"
);
0x80000000 | (4 << 16) | (ord('f') << 8) | 126,
"$_[1]"
);
- }
-
- my $flags = fcntl ($_[0], F_GETFL, 0);
- if ($_[1]) {
- $flags &= ~O_NONBLOCK;
} else {
} else {
- $flags |= O_NONBLOCK;
+ my $flags = fcntl ($_[0], F_GETFL, 0);
+ if ($_[1]) {
+ $flags &= ~O_NONBLOCK;
+ } else {
+ $flags |= O_NONBLOCK;
+ }
+ fcntl ($_[0], F_SETFL, $flags);
}
}
- fcntl ($_[0], F_SETFL, $flags);
}
# save it
}
# save it