--- syncmail/vc.pm	2001/10/28 20:52:25	1.3
+++ syncmail/vc.pm	2001/10/29 00:37:41	1.4
@@ -45,8 +45,6 @@
    my $class = shift;
    my $self = $class->catch(port => ($port += 2), @_);
 
-   $self->snd("pri", $self->{pri}) if $self->{pri};
-
    $self;
 }
 
@@ -58,7 +56,9 @@
    my $self = shift;
 
    if ($self->{port}) {
+      slog 0, "closing port $self->{port}\n";#d#
       push @{$send[0]}, pack "nn", $self->{port}, 65535;
+      $send_full->send;
       delete $self->{port};
    }
 }
@@ -66,7 +66,6 @@
 sub pri {
    my $self = shift;
    $self->{pri} = $_[0];
-   $self->snd("pri", $_[0]);
 }
 
 sub _snd {
@@ -190,11 +189,11 @@
 
                   slog 8, "<<< :$port ".dumpstr($data)."\n"; #d#
 
-                  ($port[$port] ||= do {
-                     my $vc = catch vc port => $port;
-                     async \&::serve, $vc;
-                     $vc;
-                  })->feed($data);
+                  unless ($port[$port]) {
+                     async \&::serve, catch vc port => $port;
+                  }
+
+                  $port[$port]->feed($data);
                }
             } else {
                slog 8, "<<< :$port <$len>\n";