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