From b124bde2b6ec698b5468167cfaea63b598f77bd0 Mon Sep 17 00:00:00 2001 From: June McEnroe 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