From 71fe6a8fb217acac75a44fd3797d320ed4871cab Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 26 May 2014 02:52:56 -0400
Subject: party_fusion should sort by level

---
 bin/smt_fusion | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/bin/smt_fusion b/bin/smt_fusion
index 177de4e..9fb9da1 100644
--- a/bin/smt_fusion
+++ b/bin/smt_fusion
@@ -78,7 +78,9 @@ sub party_fusion {
         $deathstones,
         map { _demon($_) } @demons
     );
-    print join("\n", map { _demon($_) } sort { $a cmp $b } keys %$seen), "\n";
+    print join("\n",
+        sort { $a->level <=> $b->level } map { _demon($_) } keys %$seen
+    ), "\n";
 }
 sub _party_fusion_recursive_fuse {
     my ($seen, $deathstones, @demons) = @_;
-- 
cgit v1.2.3