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