From a8cf7419289d41680724331cf388e7df68327c3d Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 5 Jan 2022 20:07:16 +0000 Subject: [PATCH] missed one --- perl/DXProtHandle.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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'); -- 2.43.0