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

@ -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";

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