From 421bc2088f8309b85441128658dc25ebbc76e0b3 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 16 Jun 2014 22:31:56 -0400
Subject: spell this properly

---
 lib/Games/SMTNocturne/Demons.pm             |  4 ++--
 lib/Games/SMTNocturne/Demons/Fusion.pm      | 16 ++++++++--------
 lib/Games/SMTNocturne/Demons/FusionChart.pm | 24 ++++++++++++------------
 3 files changed, 22 insertions(+), 22 deletions(-)

(limited to 'lib')

diff --git a/lib/Games/SMTNocturne/Demons.pm b/lib/Games/SMTNocturne/Demons.pm
index 6f6030c..2725c8c 100644
--- a/lib/Games/SMTNocturne/Demons.pm
+++ b/lib/Games/SMTNocturne/Demons.pm
@@ -193,8 +193,8 @@ sub fusions_for {
             push @$_, '<deathstone>' for @special_fusions;
         }
 
-        if ($special->{kagatsuchi}) {
-            push @$_, $special->{kagatsuchi} for @special_fusions;
+        if ($special->{kagutsuchi}) {
+            push @$_, $special->{kagutsuchi} for @special_fusions;
         }
     }
 
diff --git a/lib/Games/SMTNocturne/Demons/Fusion.pm b/lib/Games/SMTNocturne/Demons/Fusion.pm
index 9ffe9bb..cdfdcd8 100644
--- a/lib/Games/SMTNocturne/Demons/Fusion.pm
+++ b/lib/Games/SMTNocturne/Demons/Fusion.pm
@@ -6,7 +6,7 @@ use overload '""' => 'to_string';
 use Games::SMTNocturne::Demons::Demon;
 
 sub new {
-    my ($class, $options, $demon1, $demon2, $sacrifice, $kagatsuchi) = @_;
+    my ($class, $options, $demon1, $demon2, $sacrifice, $kagutsuchi) = @_;
 
     my $attrs = {};
 
@@ -27,7 +27,7 @@ sub new {
         }
     }
 
-    $attrs->{kagatsuchi} = $kagatsuchi;
+    $attrs->{kagutsuchi} = $kagutsuchi;
     $attrs->{options} = $options || {};
 
     return bless $attrs, $class;
@@ -37,7 +37,7 @@ sub options    { $_[0]->{options} }
 sub demons     { $_[0]->{demons} }
 sub sacrifice  { $_[0]->{sacrifice} }
 sub deathstone { $_[0]->{deathstone} }
-sub kagatsuchi { $_[0]->{kagatsuchi} }
+sub kagutsuchi { $_[0]->{kagutsuchi} }
 sub result {
     my $self = shift;
     require Games::SMTNocturne::Demons;
@@ -47,7 +47,7 @@ sub result {
             %{ $self->options },
             sacrifice  => $self->sacrifice,
             deathstone => $self->deathstone,
-            kagatsuchi => @{ $self->kagatsuchi || [] }[0],
+            kagutsuchi => @{ $self->kagutsuchi || [] }[0],
         }
     );
 }
@@ -68,8 +68,8 @@ sub raw {
         if $self->sacrifice;
     push @$array, "<deathstone>"
         if $self->deathstone;
-    push @$array, $self->kagatsuchi
-        if defined $self->kagatsuchi;
+    push @$array, $self->kagutsuchi
+        if defined $self->kagutsuchi;
     return $array;
 }
 
@@ -84,8 +84,8 @@ sub to_string {
     $str .= " while sacrificing a deathstone"
         if $self->deathstone;
     $str .= " when Kagutsuchi is at phase "
-          . join(", ", map { "$_/8" } @{ $self->kagatsuchi })
-        if defined $self->kagatsuchi;
+          . join(", ", map { "$_/8" } @{ $self->kagutsuchi })
+        if defined $self->kagutsuchi;
     $str .= " resulting in " . $self->result;
 
     return $str;
diff --git a/lib/Games/SMTNocturne/Demons/FusionChart.pm b/lib/Games/SMTNocturne/Demons/FusionChart.pm
index 1454fc5..ec80f21 100644
--- a/lib/Games/SMTNocturne/Demons/FusionChart.pm
+++ b/lib/Games/SMTNocturne/Demons/FusionChart.pm
@@ -102,9 +102,9 @@ sub special_fusion {
             next unless $options->{deathstone};
         }
 
-        if (my $phases = $conditions->{kagatsuchi}) {
-            next unless defined $options->{kagatsuchi}
-                     && grep { $_ == $options->{kagatsuchi} } @$phases;
+        if (my $phases = $conditions->{kagutsuchi}) {
+            next unless defined $options->{kagutsuchi}
+                     && grep { $_ == $options->{kagutsuchi} } @$phases;
         }
 
         if (my $sacrifice = $conditions->{sacrifice}) {
@@ -1552,7 +1552,7 @@ __DATA__
       },
       "Black Rider" : {
          "deathstone" : 1,
-         "kagatsuchi" : [
+         "kagutsuchi" : [
             0
          ],
          "target" : {
@@ -1561,7 +1561,7 @@ __DATA__
       },
       "Daisoujou" : {
          "deathstone" : 1,
-         "kagatsuchi" : [
+         "kagutsuchi" : [
             5,
             6,
             7,
@@ -1597,7 +1597,7 @@ __DATA__
       },
       "Hell Biker" : {
          "deathstone" : 1,
-         "kagatsuchi" : [
+         "kagutsuchi" : [
             4,
             5,
             6,
@@ -1609,7 +1609,7 @@ __DATA__
       },
       "Matador" : {
          "deathstone" : 1,
-         "kagatsuchi" : [
+         "kagutsuchi" : [
             1,
             2,
             3,
@@ -1657,7 +1657,7 @@ __DATA__
       },
       "Pale Rider" : {
          "deathstone" : 1,
-         "kagatsuchi" : [
+         "kagutsuchi" : [
             0
          ],
          "target" : {
@@ -1674,7 +1674,7 @@ __DATA__
       },
       "Red Rider" : {
          "deathstone" : 1,
-         "kagatsuchi" : [
+         "kagutsuchi" : [
             0
          ],
          "target" : {
@@ -1707,7 +1707,7 @@ __DATA__
       },
       "The Harlot" : {
          "deathstone" : 1,
-         "kagatsuchi" : [
+         "kagutsuchi" : [
             4
          ],
          "target" : {
@@ -1716,7 +1716,7 @@ __DATA__
       },
       "Trumpeter" : {
          "deathstone" : 1,
-         "kagatsuchi" : [
+         "kagutsuchi" : [
             8
          ],
          "target" : {
@@ -1725,7 +1725,7 @@ __DATA__
       },
       "White Rider" : {
          "deathstone" : 1,
-         "kagatsuchi" : [
+         "kagutsuchi" : [
             0
          ],
          "target" : {
-- 
cgit v1.2.3