From 87b4f03dfb7e1fb596ce81b8cb70f0e303b4b5b8 Mon Sep 17 00:00:00 2001
From: LevelX2 <ludwig.hirth@online.de>
Date: Sun, 19 Jan 2014 09:52:21 +0100
Subject: [PATCH] Minor changes to perl scripts.

---
 Utils/gen-list-implemented-cards-for-set.pl   | 6 ++++--
 Utils/gen-list-unimplemented-cards-for-set.pl | 6 ++++--
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/Utils/gen-list-implemented-cards-for-set.pl b/Utils/gen-list-implemented-cards-for-set.pl
index ee015cb623e..bdc34bb0a65 100644
--- a/Utils/gen-list-implemented-cards-for-set.pl
+++ b/Utils/gen-list-implemented-cards-for-set.pl
@@ -3,7 +3,7 @@
 #author: North
 
 use strict;
-
+use Scalar::Util qw(looks_like_number);
 
 my $dataFile = "mtg-cards-data.txt";
 my $setsFile = "mtg-sets-data.txt";
@@ -48,6 +48,8 @@ close(DATA);
 
 
 sub cardSort {
+  if (!looks_like_number(@{$a}[2])) { return -1; }
+  if (!looks_like_number(@{$b}[2])) { return 1; }
   if (@{$a}[2] < @{$b}[2]) { return -1; }
   elsif (@{$a}[2] == @{$b}[2]) { return 0;}
   elsif (@{$a}[2] > @{$b}[2]) { return 1; }
@@ -64,7 +66,7 @@ my $toPrint = '';
 foreach my $card (sort cardSort @setCards) {
 	my $className = toCamelCase(@{$card}[0]);
     my $currentFileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . "/" . $className . ".java";
-	if(-e $currentFileName) {
+	if (-e $currentFileName) {
 		if ($toPrint) {
 			$toPrint .= "\n";
 		}   
diff --git a/Utils/gen-list-unimplemented-cards-for-set.pl b/Utils/gen-list-unimplemented-cards-for-set.pl
index 2e1a6061ec7..dbcd18b801e 100644
--- a/Utils/gen-list-unimplemented-cards-for-set.pl
+++ b/Utils/gen-list-unimplemented-cards-for-set.pl
@@ -3,7 +3,7 @@
 #author: North
 
 use strict;
-
+use Scalar::Util qw(looks_like_number);
 
 my $dataFile = "mtg-cards-data.txt";
 my $setsFile = "mtg-sets-data.txt";
@@ -48,6 +48,8 @@ close(DATA);
 
 
 sub cardSort {
+  if (!looks_like_number(@{$a}[2])) { return -1; }
+  if (!looks_like_number(@{$b}[2])) { return 1; }
   if (@{$a}[2] < @{$b}[2]) { return -1; }
   elsif (@{$a}[2] == @{$b}[2]) { return 0;}
   elsif (@{$a}[2] > @{$b}[2]) { return 1; }
@@ -71,7 +73,7 @@ foreach my $card (sort cardSort @setCards) {
 		$toPrint .= "@{$card}[2]|@{$card}[0]"; 
 	}
 }
-open CARD, "> " . lc($sets{$setName}) . ".txt";
+open CARD, "> " . lc($sets{$setName}) ."_unimplemented.txt";
 print CARD $toPrint;
 close CARD;