From f38546f67a1ce7c2d880200bd22a5f862857efdb Mon Sep 17 00:00:00 2001 From: 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