From 4a84f2350e2cb90effd9e5fa3a7ed65b2da54b46 Mon Sep 17 00:00:00 2001
From: "C. McEnroe" <june@causal.agency>
Date: Tue, 14 Sep 2021 23:20:57 -0400
Subject: Sort by title if authors match

There are probably better things to sort by but title definitely
always exists.
---
 bin/bibsort.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'bin')

diff --git a/bin/bibsort.pl b/bin/bibsort.pl
index 0d132c19..a4a8956a 100644
--- a/bin/bibsort.pl
+++ b/bin/bibsort.pl
@@ -42,8 +42,9 @@ foreach $ref (@refs) {
 }
 
 sub byAuthor {
+	my ($ta, $tb) = ($a->{T}[0], $b->{T}[0]);
 	local ($a, $b) = ($a->{A}[0], $b->{A}[0]);
-	byLast();
+	byLast() || $ta cmp $tb;
 }
 
 {
-- 
cgit 1.4.1