implement PC92 config changes

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6ff479c1b61d9afee3b732b6687ce56bc29cb7be..58b5982df7848e278e598d69db784acc4b104324 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1146,7 +1146,7 @@ sub broadcast_route_pc9x
                $line = &$generate(@_);
        } 
 
-       $line =~ /\^H(\d+)\^$/;
+       $line =~ /\^H(\d+)\^\~?$/;
        unless ($1 > 0 && $self->{isolate}) {
                foreach $dxchan (@dxchan) {
                        next if $dxchan == $self;