Fix a couple of the perl scripts to work properly with the cards.f.FirstLetter style card class reorg

This commit is contained in:
Mark Langen 2017-04-09 23:39:52 -06:00
parent f119965f46
commit 1ce32eb24e
2 changed files with 2 additions and 2 deletions

View file

@ -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) {