From f38546f67a1ce7c2d880200bd22a5f862857efdb Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 14 Mar 2001 01:29:14 +0000
Subject: [PATCH] correct typo

---
 perl/ExtMsg.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 6ea47a51..954703b3 100644
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -58,7 +58,7 @@ sub dequeue
 	my $conn = shift;
 	my $msg;
 
-	if ($conn->{sort} eq 'ax25' && exists $conn->{msg}) {
+	if ($conn->{csort} eq 'ax25' && exists $conn->{msg}) {
 		$conn->{msg} =~ s/\cM/\cJ/g;
 	}
 	if ($conn->{state} eq 'WC') {
@@ -229,7 +229,7 @@ sub _doconnect
 			}
 			dbg('connect', "program $sort $line started");
 			$conn->{pid} = $pid;
-			$conn->{sort} = $sort;
+			$conn->{csort} = $sort;
 			$conn->{lineend} = "\cM" if $sort eq 'ax25';
 		} else {
 			dbg('connect', "can't $sort fork for $line $!");
-- 
2.43.0