diff options
Diffstat (limited to 'lib/Games')
-rw-r--r-- | lib/Games/SMTNocturne/Demons.pm | 5 | ||||
-rw-r--r-- | lib/Games/SMTNocturne/Demons/Fusion.pm | 3 |
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; |