use numerical sort

This should be a numerical sort, although it will not normally matter.

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 0956ec0f8c0cd642b56efa923f4fba7d18eb9233..fa4dcac4578541c918a9a310c6c8dffd53eac419 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -3684,7 +3684,7 @@ sub get_line_token_info {
         # handle no levels
         my $rtoken_patterns = {};
         my $rtoken_indexes  = {};
-        my @levs            = sort keys %saw_level;
+        my @levs            = sort { $a <=> $b } keys %saw_level;
         if ( !defined($lev_min) ) {
             $lev_min                     = -1;
             $lev_max                     = -1;