From 8e095bdba5dc26a87b0f1ed0254d08ba80636725 Mon Sep 17 00:00:00 2001 From: minima Date: Thu, 4 Oct 2001 00:07:41 +0000 Subject: [PATCH] fixed lack of stream? --- perl/DXMsg.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index 7b86c8f7..92c11330 100644 --- 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 -- 2.43.0