allowed a queue_msg after a PC33

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index bcb4dc006fc1482f7f2929f35c69f37be55a318a..a76ec43d5922af67462aee33ab74e6f3fe5cd5df 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -302,6 +302,9 @@ sub process
                        } else {
                                $self->send(DXProt::pc42($f[2], $f[1], $f[3])); # unknown stream
                        } 
+
+                       # send next one if present
+                       queue_msg(0);
                        last SWITCH;
                }