summary refs log tree commit diff
path: root/bin
diff options
context:
space:
mode:
authorJune McEnroe <june@causal.agency>2021-09-14 23:20:57 -0400
committerJune McEnroe <june@causal.agency>2021-09-14 23:20:57 -0400
commitb124bde2b6ec698b5468167cfaea63b598f77bd0 (patch)
tree0d11382b5f1c69d5f9eee9dae03699b83d39f543 /bin
parentSwap-remove tags as they're found (diff)
downloadsrc-b124bde2b6ec698b5468167cfaea63b598f77bd0.tar.gz
src-b124bde2b6ec698b5468167cfaea63b598f77bd0.zip
Sort by title if authors match
There are probably better things to sort by but title definitely
always exists.
Diffstat (limited to '')
-rw-r--r--bin/bibsort.pl3
1 files changed, 2 insertions, 1 deletions
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;
 }
 
 {