projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
94b9e68
)
yet more compatibilty fixes
author
minima
<minima>
Fri, 11 Jan 2002 00:41:31 +0000
(
00:41
+0000)
committer
minima
<minima>
Fri, 11 Jan 2002 00:41:31 +0000
(
00:41
+0000)
perl/Msg.pm
patch
|
blob
|
history
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