add more fixes for peerhosts

[spider.git] / perl / EphMsg.pm

diff --git a/perl/EphMsg.pm b/perl/EphMsg.pm
index eabba932ef761cbf51b03c696d6c7240231121d9..a6da8a2df2b54962f69dfa8e6e0c0a1726f52277 100644 (file)
--- a/perl/EphMsg.pm
+++ b/perl/EphMsg.pm
@@ -6,7 +6,7 @@
 # An instance of this is setup by a command together with a load
 # of callbacks and then runs with a state machine until completion
 #
-# $Id$
+#
 #
 # Copyright (c) 2001 - Dirk Koopman G1TLH
 #
@@ -45,7 +45,7 @@ sub dequeue
        my $conn = shift;
        my $msg;
 
-       if ($conn->{csort} eq 'ax25' && exists $conn->{msg}) {
+       if ($conn->ax25 && exists $conn->{msg}) {
                $conn->{msg} =~ s/\cM/\cJ/g;
        }