diff options
| -rw-r--r-- | bin/bibsort.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/bibsort.pl b/bin/bibsort.pl index 5f0ad7ba..f87f066f 100644 --- a/bin/bibsort.pl +++ b/bin/bibsort.pl @@ -24,8 +24,8 @@ while (<>) { } sub byLast { - my ($af, $al) = split /\s/, $a, 2; - my ($bf, $bl) = split /\s/, $b, 2; + my ($af, $al) = split /\s(\S+)(,.*)?$/, $a; + my ($bf, $bl) = split /\s(\S+)(,.*)?$/, $b; $al cmp $bl || $af cmp $bf; } |