From d572c34d7d49a76310446ca0ccae4fbbaceb8224 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 2 Mar 2023 12:11:09 +0000
Subject: [PATCH] fix sh/dx/30 problem

---
 Changes               | 2 ++
 perl/DXCommandmode.pm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 1a646f84..38eaec52 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+02Mar23=======================================================================
+1. Fix sh/dx/30 problem. I.e. allow old style version of sh/dx 30.  
 01Mar23=======================================================================
 1. Revert PC92 A D and PC92 C record flags back to defaults.
 2. Deal with users that send gibberish.
diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 9b3a371b..d2f4a4ff 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -541,7 +541,7 @@ sub run_cmd
 		$cmd =~ s|//+|/|g;
 
 		# check for length of whole command line and any invalid characters
-		if (length $cmdline > $maxcmdlth || $cmd =~ m|\.| || $cmd !~ m|^\w+(?:/\w+){0,1}$|) {
+		if (length $cmdline > $maxcmdlth || $cmd =~ m|\.| || $cmd !~ m|^\w+(?:/\w+){0,1}(?:/\d+)?$|) {
 			LogDbg('DXCommand', "cmd: $self->{call} - invalid characters in '$cmd'");
 			return $self->_error_out('e40');	
 		}
-- 
2.34.1