github/mage
1
0
Fork 0
mirror of https://github.com/correl/mage.git synced 2024-12-24 11:50:45 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fixes issue 187.

Browse source
This commit is contained in:
North 2011-07-17 12:06:30 +03:00
parent 4e4b71d2f1
commit 33f63672d3
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Utils/gen-card.pl
View file

@ -175,14 +175,14 @@ foreach my $setName (keys %{$cards{$cardName}}) {
my $notKeyWord; my $notKeyWord;
foreach my $keyword (keys %keywords) { foreach my $keyword (keys %keywords) {
if (index(toCamelCase($ability), $keyword) eq 0) { if (toCamelCase($ability) =~ m/^$keyword(?=[A-Z{\d]|$)/g) {
$notKeyWord = 'no'; $notKeyWord = 'false';
my @ka = split(', ', $ability); my @ka = split(', ', $ability);
foreach my $kw (@ka) { foreach my $kw (@ka) {
my $kwUnchanged = $kw; my $kwUnchanged = $kw;
foreach my $keyword (keys %keywords) { foreach my $kk (keys %keywords) {
if (index(toCamelCase($kw), $keyword) eq 0) { if (toCamelCase($kw) =~ m/^$kk(?=[A-Z{\d]|$)/g) {
$kw = $keyword; $kw = $kk;
} }
} }
if ($keywords{$kw}) { if ($keywords{$kw}) {