diff options
| author | June McEnroe <june@causal.agency> | 2021-02-16 20:03:35 -0500 |
|---|---|---|
| committer | June McEnroe <june@causal.agency> | 2021-02-16 20:03:35 -0500 |
| commit | efe48b5c8eb811e0764808428415d6e08fa8ed39 (patch) | |
| tree | 1259a8088b5805c3f1435f3da055ed5282b79511 /bin/bibsort.pl | |
| parent | Set XTerm*charClass to select URLs (diff) | |
| download | src-efe48b5c8eb811e0764808428415d6e08fa8ed39.tar.gz src-efe48b5c8eb811e0764808428415d6e08fa8ed39.zip | |
Add missing %U for RFCs in bibsort
Diffstat (limited to 'bin/bibsort.pl')
| -rw-r--r-- | bin/bibsort.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/bin/bibsort.pl b/bin/bibsort.pl index f87f066f..89133c87 100644 --- a/bin/bibsort.pl +++ b/bin/bibsort.pl @@ -32,11 +32,13 @@ sub byLast { foreach $ref (@refs) { @{$ref->{A}} = sort byLast @{$ref->{A}}; @{$ref->{Q}} = sort @{$ref->{Q}} if $ref->{Q}; - next unless $ref->{N}; - if ($ref->{N}[0] =~ /RFC/) { + if ($ref->{N} && $ref->{N}[0] =~ /RFC/) { $ref->{R} = $ref->{N}; delete $ref->{N}; } + if ($ref->{R} && $ref->{R}[0] =~ /RFC (\d+)/ && !$ref->{U}) { + $ref->{U} = ["https://tools.ietf.org/html/rfc${1}"]; + } } sub byAuthor { |