Changeset 28

Timestamp:

04/19/07 10:53:15 (2 years ago)

Author:

root

Message:

Change nonblocking perl perl code (LINworks GmbH)

Files:

• trunk/op_server.pl (modified) (2 diffs)

trunk/op_server.pl

@@ -6320 +6320 @@
-}
-
-sub nonblock {
-    my $socket = shift;
-    my $flags;
-
-    $flags = fcntl( $socket, F_GETFL, 0 )
-      or die "Can't get flags for socket: $!\n";
-    fcntl( $socket, F_SETFL, $flags | O_NONBLOCK )
-      or die "Can't make socket nonblocking: $!\n";
-}
-
-sub clean_inmemory_state_for_server {
-
@@ -6552 +6542 @@
-                push( @flash_clients, $C );
-                $O->add($C);
-nonblock($C
+$C->blocking(0
-            }
-            else {