fixed client line so it unconditionally starts a connection even with

buffered up lines.
always have an empty outqueue array available.

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 33c17bfd44bcc18bef606c60a221453989da6259..58fb619f89925642561631e85dc6867e9b08b3ff 100644 (file)
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -270,6 +270,10 @@ sub _doclient
        my @f = split /\s+/, $line;
        $conn->{call} = uc $f[0] if $f[0];
        $conn->{csort} = $f[1] if $f[1];
+       $conn->{state} = 'C';
+       &{$conn->{rproc}}($conn, "O$conn->{call}|telnet");
+       delete $conn->{cmd};
+       $conn->{timeout}->del_timer if $conn->{timeout};
 }
 
 sub _send_file

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 774db635e627f0aeae5cc24fb7da8ce00f63116e..fd6e3b17dde3d015848675ec3f033e49381af631 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -47,6 +47,7 @@ sub new
     my $conn = {
         rproc => $rproc,
                inqueue => [],
+               outqueue => [],
                state => 0,
                lineend => "\r\n",
                csort => 'telnet',