diff options
| -rw-r--r-- | bin/bibsort.pl | 3 |
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; } { |