add arguments to CMD progress debug

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 36b3ea3e27220825440d796d40343d8b0692edb5..74e53b10b1547a9af6cd729903b7397d33d26ea1 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -552,7 +552,7 @@ sub run_cmd
                                return (DXDebug::shortmess($@)) if $@;
                                if (isdbg('progress')) {
                                        my $msecs = _diffms($t0);
-                                       my $s = "CMD: '$cmd' by $call ip: $self->{hostname} ${msecs}mS";
+                                       my $s = "CMD: '$cmd $args' by $call ip: $self->{hostname} ${msecs}mS";
                                        dbg($s);
                                }
                        } else {