improve spawn dbg, move "use Mojolicious"

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 9493637a87aef29912c66ebb217752b0fd543a02..d7e34e61e7c927dd23840b50a75dfe8cd0676718 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1231,6 +1231,7 @@ sub spawn_cmd
                                 }
 
                                 my @res = $cmdref->(@$args);
+#                               diffms("by $call 1", $line, $t0, scalar @res) if isdbg('chan');
                                 return @res;
                         },
 #                       $args,
@@ -1260,7 +1261,7 @@ sub spawn_cmd
                                                 $self->send(@res);
                                         }
                                 }
-                                DXCommandmode::_diffms($call, $line, $t0);
+                                diffms("rcmd from $user on $call", $line, $t0, scalar @res) if isdbg('chan');
                         });
        
        return @out;