From: minima <minima>
Date: Wed, 14 Mar 2001 01:29:14 +0000 (+0000)
Subject: correct typo
X-Git-Tag: R_1_47~119
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=f38546f67a1ce7c2d880200bd22a5f862857efdb;p=spider.git

correct typo
---

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 $!");