1 files changed, 2 insertions, 2 deletions
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};
 }