From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 5 Jan 2022 20:07:16 +0000 (+0000)
Subject: missed one
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=a8cf7419289d41680724331cf388e7df68327c3d

missed one
---

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 8730754b..71aaea80 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1641,7 +1641,7 @@ sub _add_thingy
 				@rout = $parent->add($call, $version, Route::here($here), $ip);
 				$r = Route::Node::get($call);
 				$r->PC92C_dxchan($dxchan->call, $hops) if $r;
-				if ($version && $version =~ /\d+/) {
+				if ($version && $version =~ /^\d+$/) {
 					my $old = $user->sort;
 					if ($user->is_ak1a && (($version >= 5455 &&  $build > 0) || ($version >= 3000 && $version <= 3500)) ) {
 						$user->sort('S');