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

7
Utils/find_new_cards.pl
View file

@ -17,9 +17,10 @@ foreach $tag (@lines)
{ {
my $orig_num = $tag; my $orig_num = $tag;
my $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; $order_of_tags {$num} = $tag;
} }
} }
@ -171,4 +172,4 @@ if (exists ($new_order{$cmd}))
} }
} }
} }