correct typo

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 6ea47a516b06f69d9a43f74681cb0b8423855a04..954703b335cdb0ac134b953ad6ebdd6b7c953caa 100644 (file)
--- 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 $!");