dev: fixed perl script to support current build numbers

magefree · Jun 6, 2024 · 52ee309 · 52ee309
1 parent 4635563
commit 52ee309
Showing 1 changed file with 4 additions and 3 deletions.
diff --git 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
 
         }
     }
-}
+}