From e3594fd9d1618996fc9be00f23764e3bbeb9d7f9 Mon Sep 17 00:00:00 2001
From: spjspj <spjspj4@gmail.com>
Date: Wed, 7 Jun 2017 08:50:39 +1000
Subject: [PATCH] Fix the 'find_new_cards.pl'

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

diff --git a/Utils/find_new_cards.pl b/Utils/find_new_cards.pl
index f5fce14fc0..7933531c25 100644
--- a/Utils/find_new_cards.pl
+++ b/Utils/find_new_cards.pl
@@ -8,16 +8,18 @@ my $addedCards;
 my $GIT_CMD = "C:\\Program Files (x86)\\Git\\bin\\git.exe";
 
 my $text = `\"$GIT_CMD\" tag`;
+print "Assuming the tag command is on: \"$GIT_CMD\" tag\n";
 my @lines = split /\n/, $text;
 my %order_of_tags;
 
 my $tag;
 foreach $tag (@lines)
 {
+    my $orig_num = $tag;
     my $num = $tag;
     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;
     }
 }