[ViewVC] Diff of: cvs/syncmail/vc.pm

Comparing syncmail/vc.pm (file contents):
Revision 1.3 by root, Sun Oct 28 20:52:25 2001 UTC vs.
Revision 1.4 by root, Mon Oct 29 00:37:41 2001 UTC

 # create (connect) a new vc
 sub create {
    my $class = shift;
    my $self = $class->catch(port => ($port += 2), @_);
-   $self->snd("pri", $self->{pri}) if $self->{pri};
    $self;
 }
 sub DESTROY {
    &close;
 sub close {
    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};
    }
 }
 sub pri {
    my $self = shift;
    $self->{pri} = $_[0];
-   $self->snd("pri", $_[0]);
 }
 sub _snd {
    my $self = shift;
                   $fh->sysread($data, $len) == $len
                      or die "unexpected read error: $!";
                   slog 8, "<<< :$port ".dumpstr($data)."\n"; #d#
-                  ($port[$port] ||= do {
+                  unless ($port[$port]) {
-                     my $vc = catch vc port => $port;
+                     async \&::serve, catch vc port => $port;
-                     async \&::serve, $vc;
-                     $vc;
+                  }
-                  })->feed($data);
+                  $port[$port]->feed($data);
                }
             } else {
                slog 8, "<<< :$port <$len>\n";
                if ($len == 0) {

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