From a8166fdc6c9809f3aa2b2b474df9534bf80d3dce Mon Sep 17 00:00:00 2001
From: "C. 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(-)

(limited to 'bin/bibsort.pl')

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