From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 10 May 2020 22:51:12 +0000 (+0100)
Subject: fix echo typo
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8506d89844cb4c835e1964c09ca8692bee9c22d;p=spider.git

fix echo typo
---

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 18c5807b..9d9f60b4 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -553,7 +553,7 @@ sub run_cmd
 				if (isdbg('progress')) {
 					my $msecs = _diffms($t0);
 					my $s = "CMD: '$cmd $args' by $call ip: $self->{hostname} ${msecs}mS";
-					dbg($s) if $cmd =~/(?:echo|blank)/ || isdbg('echo');     # cut down a bit on HRD and other clients' noise
+					dbg($s) if $cmd !~ /^(?:echo|blank)/ || isdbg('echo');     # cut down a bit on HRD and other clients' noise
 				}
 			} else {
 				dbg("cmd: $package not present") if isdbg('command');