Failure/foul-magics
1
0
Fork 0
forked from External/mage
Code Pull requests Releases Packages Activity Actions

dev: fixed perl script to support current build numbers

Browse source
This commit is contained in:
Oleg Agafonov 2024-06-06 22:49:32 +04:00
parent 4635563f44
commit 52ee309b58
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Utils/find_new_cards.pl
View file

@ -17,9 +17,10 @@ foreach $tag (@lines)
{
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;
}
}