github/mage
1
0
Fork 0
mirror of https://github.com/correl/mage.git synced 2024-12-25 03:00:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

Merge pull request #3474 from spjspj/master

Browse source 
Fix the 'find_new_cards.pl'
This commit is contained in:
spjspj 2017-06-07 21:28:31 +10:00 committed by GitHub
commit ae569e3184
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Utils/find_new_cards.pl
View file

@ -8,16 +8,18 @@ my $addedCards;
my $GIT_CMD = "C:\\Program Files (x86)\\Git\\bin\\git.exe"; my $GIT_CMD = "C:\\Program Files (x86)\\Git\\bin\\git.exe";
my $text = `\"$GIT_CMD\" tag`; my $text = `\"$GIT_CMD\" tag`;
print "Assuming the tag command is on: \"$GIT_CMD\" tag\n";
my @lines = split /\n/, $text; my @lines = split /\n/, $text;
my %order_of_tags; my %order_of_tags;
my $tag; my $tag;
foreach $tag (@lines) foreach $tag (@lines)
{ {
my $orig_num = $tag;
my $num = $tag; my $num = $tag;
if ($num =~ m/(\d+)\.(\d+).(\d+)v(\d+)/img) if ($num =~ m/(\d+)\.(\d+).(\d+)v(\d+)/img)
{ {
$num = $1 * 2000 + $2 * 100 + $3 * 20 + $1; $num = $1 * 2000 + $2 * 100 + $3 * 20 + $4;
$order_of_tags {$num} = $tag; $order_of_tags {$num} = $tag;
} }
} }