Fix: use numeric sort

project-renard · Sep 27, 2020 · ae442eb · ae442eb
1 parent e0e3033
commit ae442eb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Renard/Curie/Component/JacquardCanvas.pm b/lib/Renard/Curie/Component/JacquardCanvas.pm
@@ -102,7 +102,7 @@ sub cb_on_draw {
 		my $start_pages = $self->{selection}{start}{pointer}{pages};
 		my $end_pages = $self->{selection}{end}{pointer}{pages};
 		if( @$start_pages && @$end_pages ) {
-			my @sorted = sort ( $start_pages->[0] , $end_pages->[0] );
+			my @sorted = sort {$a <=> $b} ( $start_pages->[0] , $end_pages->[0] );
 			my @pgs = ( $sorted[0] .. $sorted[1] );
 			my @bboxes;
 			for my $page_number (@pgs) {