From 3bffe8dcead8ef9463748a6d67a8acf683fb50d7 Mon Sep 17 00:00:00 2001
From: Andreas Koenig <andk@cpan.org>
Date: Thu, 16 Nov 2017 07:02:30 +0100
Subject: [PATCH] Sort 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 032e593a..d2d600a8 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 [sort { CPAN::Version->vcmp($a->{v},$b->{v}) } @$ll];
+            print YAML::XS::Dump [sort { CPAN::Version->vcmp($b->{v},$a->{v}) } @$ll];
             my $default_answer = $Opt{yes} ? "y" : "n";
             my $answer;
             if ($Opt{noninteractive}) {
-- 
2.11.4.GIT