[ViewVC] Diff of: cvs/deliantra/Deliantra/Deliantra/Protocol.pm

Comparing deliantra/Deliantra/Deliantra/Protocol.pm (file contents):
Revision 1.31 by root, Thu Apr 20 04:11:28 2006 UTC vs.
Revision 1.32 by root, Thu Apr 20 07:13:09 2006 UTC

 sub new {
    my $class = shift;
    my $self = bless {
       mapw            => 13,
       maph            => 13,
-      max_outstanding => 2,
+      max_outstanding => 6,
       token           => "a0",
       @_
    }, $class;
    $self->{fh} = new IO::Socket::INET PeerHost => $self->{host}, PeerPort => $self->{port}
 sub send_mapinfo {
    my ($self, $data, $cb) = @_;
    my $token = ++$self->{token};
-   $self->{mapinfo_cb}{$token} = $cb;
+   $self->{mapinfo_cb}{$token} = sub {
+      $self->send_queue;
+      $cb->(@_);
+   };
-   $self->send ("mapinfo $token $data");
+   $self->send_queue ("mapinfo $token $data");
 }
 sub feed_image {
    my ($self, $data) = @_;
       --$self->{outstanding};
    }
    if ($self->{outstanding} < $self->{max_outstanding} && @{ $self->{send_queue} }) {
       ++$self->{outstanding};
-      $self->send (pop @{ $self->{send_queue} });
+      $self->send (shift @{ $self->{send_queue} });
    }
 }
 sub send_setup {
    my ($self) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines