t/uni/case.pl: Sort numerics with <=> to get better results

diff --git a/t/uni/case.pl b/t/uni/case.pl
index d4bfc07..c3d5926 100644 (file)
--- a/t/uni/case.pl
+++ b/t/uni/case.pl
@@ -82,7 +82,7 @@ sub casetest {
 
     my $test = $already_run + 1;
 
-    for my $ord (sort keys %simple) {
+    for my $ord (sort { $a <=> $b } keys %simple) {
        my $char = pack "W", $ord;
         my $disp_input = unidump($char);
 
@@ -96,7 +96,7 @@ sub casetest {
        }
     }
 
-    for my $ord (sort keys %spec) {
+    for my $ord (sort { $a <=> $b } keys %spec) {
        my $char = pack "W", $ord;
         my $disp_input = unidump($char);