From efaa9d4fd7052f30d50f5e3888acc6f64fe27e4c Mon Sep 17 00:00:00 2001
From: June McEnroe <june@causal.agency>
Date: Tue, 4 May 2021 12:25:48 -0400
Subject: Handle missing last names in bibsort
---
bin/bibsort.pl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/bin/bibsort.pl b/bin/bibsort.pl
index 89133c87..0d132c19 100644
--- a/bin/bibsort.pl
+++ b/bin/bibsort.pl
@@ -26,7 +26,7 @@ while (<>) {
sub byLast {
my ($af, $al) = split /\s(\S+)(,.*)?$/, $a;
my ($bf, $bl) = split /\s(\S+)(,.*)?$/, $b;
- $al cmp $bl || $af cmp $bf;
+ ($al // $af) cmp ($bl // $bf) || $af cmp $bf;
}
foreach $ref (@refs) {
--
cgit 1.4.1