From 3a2fdc1609643c4c364fa993dc5228122c2da282 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 3 Apr 2024 18:09:04 -0700
Subject: [PATCH] fix sort of line numbers for error output

---
 lib/Perl/Tidy/Formatter.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 689bcb26..70c21f62 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -14307,7 +14307,8 @@ sub stringify_line_range {
     my ($rcalls) = @_;
     my $string = EMPTY_STRING;
     if ( $rcalls && @{$rcalls} ) {
-        my @sorted  = sort { $a <=> $b } @{$rcalls};
+        my @sorted =
+          sort { $a->{line_number} <=> $b->{line_number} } @{$rcalls};
         my $num     = @sorted;
         my $lno_beg = $sorted[0]->{line_number};
         my $lno_end = $sorted[-1]->{line_number};
-- 
2.39.5