From 52ee309b58ba4041ea9fbb0939e56a8aaa3f108b Mon Sep 17 00:00:00 2001
From: Oleg Agafonov <jaydi85@gmail.com>
Date: Thu, 6 Jun 2024 22:49:32 +0400
Subject: [PATCH] dev: fixed perl script to support current build numbers

---
 Utils/find_new_cards.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/Utils/find_new_cards.pl b/Utils/find_new_cards.pl
index 79d50ff95815..27e1bdfdfb36 100644
--- a/Utils/find_new_cards.pl
+++ b/Utils/find_new_cards.pl
@@ -17,9 +17,10 @@
 {
     my $orig_num = $tag;
     my $num = $tag;
-    if ($num =~ m/(\d+)\.(\d+).(\d+)v(\d+)/img)
+	# 1.4.52-V7-beta9
+    if ($num =~ m/(\d+)\.(\d+).(\d+)-v(\d+)-beta(\d+)/img)
     {
-        $num = $1 * 2000 + $2 * 100 + $3 * 20 + $4;
+        $num = $1 * 20000 + $2 * 1000 + $3 * 200 + $4 * 10 + $5;
         $order_of_tags {$num} = $tag;
     }
 }
@@ -171,4 +172,4 @@ sub get_name_of_card_from_class
 
         }
     }
-}
+}
\ No newline at end of file