fixed lack of stream?

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 7b86c8f70a404e848061b2ccf84794008efbbd84..92c113304726f82aaa8efaf75e4841b328e9ac2d 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -143,7 +143,7 @@ sub process
        my @f = split /\^/, $line;
        my ($pcno) = $f[0] =~ /^PC(\d\d)/; # just get the number
        my ($tonode, $fromnode) = @f[1, 2];
-       my $stream = $f[3] if ($pcno > 29 && $pcno <= 33) || $pcno == 42;
+       my $stream = $f[3] if ($pcno >= 29 && $pcno <= 33) || $pcno == 42;
 
  SWITCH: {
                if ($pcno == 28) {              # incoming message