change spawn_cmd diffms msg to progress

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d7e34e61e7c927dd23840b50a75dfe8cd0676718..6d20b887407984956129ac06a22656078c6330a7 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1261,7 +1261,7 @@ sub spawn_cmd
                                                 $self->send(@res);
                                         }
                                 }
-                                diffms("rcmd from $user on $call", $line, $t0, scalar @res) if isdbg('chan');
+                                diffms("rcmd from $user on $call", $line, $t0, scalar @res) if isdbg('progress');
                         });
        
        return @out;