diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-05-25 02:45:11 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-05-25 02:45:11 -0400 |
commit | 5d49894ff167c91c25103281e48c25e47bebe287 (patch) | |
tree | c34588bd411069141f414a568361b6f2c4650d4b /lib/Games | |
parent | 5c461e8b8dc8a8b058a8c42778fd0046b968f645 (diff) | |
download | games-smtnocturne-demons-5d49894ff167c91c25103281e48c25e47bebe287.tar.gz games-smtnocturne-demons-5d49894ff167c91c25103281e48c25e47bebe287.zip |
sort in alphabetical order (not reverse)
Diffstat (limited to 'lib/Games')
-rw-r--r-- | lib/Games/SMTNocturne/Demons/FusionChart.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Games/SMTNocturne/Demons/FusionChart.pm b/lib/Games/SMTNocturne/Demons/FusionChart.pm index 7848e40..6d2967c 100644 --- a/lib/Games/SMTNocturne/Demons/FusionChart.pm +++ b/lib/Games/SMTNocturne/Demons/FusionChart.pm @@ -22,7 +22,7 @@ sub unfuse { my @combinations; for my $type1 (keys %TYPES) { - for my $type2 (grep { $_ le $type1 } keys %TYPES) { + for my $type2 (grep { $_ ge $type1 } keys %TYPES) { push @combinations, [ $type1, $type2 ] if $TYPES{$type1}{$type2} eq $type; } |