From 838a7345a2540d9707dacf2ff61431b214e4cdac Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 2 Mar 2001 23:00:33 +0000
Subject: [PATCH] fixed client line so it unconditionally starts a connection
 even with buffered up lines. always have an empty outqueue array available.

---
 perl/ExtMsg.pm | 4 ++++
 perl/Msg.pm    | 1 +
 2 files changed, 5 insertions(+)

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 33c17bfd..58fb619f 100644
--- 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 774db635..fd6e3b17 100644
--- 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',
-- 
2.43.0