From e35d9cb53e50644e52d6073c17afa396afc29997 Mon Sep 17 00:00:00 2001
From: Andreas Koenig <andk@cpan.org>
Date: Thu, 16 Nov 2017 06:25:04 +0100
Subject: [PATCH] Sort the yaml dump by v desc

---
 bin/analysis-oldreports-extinction-program.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/analysis-oldreports-extinction-program.pl b/bin/analysis-oldreports-extinction-program.pl
index 8e624517..cf268f72 100755
--- a/bin/analysis-oldreports-extinction-program.pl
+++ b/bin/analysis-oldreports-extinction-program.pl
@@ -298,7 +298,7 @@ LOOP: while ($bavail < $Opt{untildf}) {
                     push @$ll, $l->{$distv}[$i];
                 }
             }
-            print YAML::XS::Dump $ll;
+            print YAML::XS::Dump [sort { $b->{v} <=> $a->{v} } @$ll];
             my $default_answer = $Opt{yes} ? "y" : "n";
             my $answer;
             if ($Opt{noninteractive}) {
-- 
2.11.4.GIT