From 1ce32eb24ecc3c2470e1856848a9ad7da2c753e1 Mon Sep 17 00:00:00 2001
From: Mark Langen <stravant@gmail.com>
Date: Sun, 9 Apr 2017 23:39:52 -0600
Subject: [PATCH] Fix a couple of the perl scripts to work properly with the
 cards.f.FirstLetter style card class reorg

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

diff --git a/Utils/gen-list-implemented-cards-for-set.pl b/Utils/gen-list-implemented-cards-for-set.pl
index 2e330ae0f46..664b6077e56 100755
--- a/Utils/gen-list-implemented-cards-for-set.pl
+++ b/Utils/gen-list-implemented-cards-for-set.pl
@@ -67,7 +67,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";
+    my $currentFileName = "../Mage.Sets/src/mage/cards/" . lc(substr($className, 0, 1)) . "/" . $className . ".java";
 	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 a01e5662e8b..15df889f215 100755
--- a/Utils/gen-list-unimplemented-cards-for-set.pl
+++ b/Utils/gen-list-unimplemented-cards-for-set.pl
@@ -94,7 +94,7 @@ foreach my $card (sort cardSort @setCards) {
 
     $cardNames {@{$card}[0]} = 1;
 
-    my $currentFileName = "../Mage.Sets/src/mage/sets/" . $knownSets{$setName} . "/" . $className . ".java";
+    my $currentFileName = "../Mage.Sets/src/mage/cards/" . lc(substr($className, 0, 1)) . "/" . $className . ".java";
 	if(! -e $currentFileName) {
         $cardNames {@{$card}[0]} = 0;
 		if ($toPrint) {