--- syncmail/vc.pm 2001/10/27 23:53:49 1.1 +++ syncmail/vc.pm 2001/10/28 03:51:24 1.2 @@ -8,8 +8,6 @@ BEGIN { *slog = \&::slog } -$MAXMSG = 1024; - use constant MAXMSG => 1024; use constant MAXQ => 10; @@ -31,7 +29,7 @@ sub new_passive { my $class = shift; my $self = bless { - rcv => (new Coro::Channel 100), + rcv => (new Coro::Channel 1e9), @_, }, $class; @@ -73,7 +71,7 @@ $send_empty->wait while @send > MAXQ; for (@_) { - slog 8, ">>> :$vc->{port} ".dumpstr($_)."\n"; #d# + slog 8, ">>> :$self->{port} ".dumpstr($_)."\n"; #d# push @{$send[$self->{pri}]}, pack "nna*", $self->{port}, length $_, $_; }