From c8800eadf3392aa902cef871bbdb7e388d08a881 Mon Sep 17 00:00:00 2001
From: "Mark E. Shoulson" <mark@kli.org>
Date: Thu, 30 May 2019 09:25:00 -0400
Subject: More emoji, and also math-base and tags-base

Changes languished in my working dir for months, might as well commit & push.
---
 sort-interim.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'sort-interim.pl')

diff --git a/sort-interim.pl b/sort-interim.pl
index 2bd2a31..59821b3 100755
--- a/sort-interim.pl
+++ b/sort-interim.pl
@@ -7,7 +7,7 @@ sub process {
     my $data = shift;
     my $key;
 
-    $data =~ m@\s+(U[[:xdigit:]]+)\s+@;
+    $data =~ m@\s+U([[:xdigit:]]+)\s+@;
     $key=$1;
     if ($elts{$key}) {
 	print STDERR "Warning: key $key found more than once.\n";
@@ -27,6 +27,6 @@ while (<>) {
     $this .= $_;
 }
 
-for $k (sort keys %elts) {
+for $k (sort { hex($a) <=> hex($b) } keys %elts) {
     print $elts{$k};
 }
-- 
cgit v1.2.3