no reason to split up kagatsuchi phases like this

2 files changed, 3 insertions, 5 deletions

diff --git a/lib/Games/SMTNocturne/Demons.pm b/lib/Games/SMTNocturne/Demons.pm
index b09672b..30909ee 100644
--- a/lib/Games/SMTNocturne/Demons.pm
+++ b/lib/Games/SMTNocturne/Demons.pm
@@ -175,10 +175,7 @@ sub fusions_for {
         }
 
         if ($special->{kagatsuchi}) {
-            @special_fusions = map {
-                my $phase = $_;
-                map { [ @$_, $phase ] } @special_fusions
-            } @{ $special->{kagatsuchi} };
+            push @$_, $special->{kagatsuchi} for @special_fusions;
         }
     }
 
diff --git a/lib/Games/SMTNocturne/Demons/Fusion.pm b/lib/Games/SMTNocturne/Demons/Fusion.pm
index 77a50bf..fc84594 100644
--- a/lib/Games/SMTNocturne/Demons/Fusion.pm
+++ b/lib/Games/SMTNocturne/Demons/Fusion.pm
@@ -68,7 +68,8 @@ sub to_string {
         if $self->sacrifice;
     $str .= " while sacrificing a deathstone"
         if $self->deathstone;
-    $str .= " when Kagutsuchi is at phase " . $self->kagatsuchi . "/8"
+    $str .= " when Kagutsuchi is at phase "
+          . join(", ", map { "$_/8" } @{ $self->kagatsuchi })
         if defined $self->kagatsuchi;
 
     return $str;