aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Ankarström <john@ankarstrom.se>2020-11-13 01:52:34 +0100
committerJohn Ankarström <john@ankarstrom.se>2020-11-15 21:36:44 +0100
commitc71a898216c4bcfa0c5195df857b2aa09a9636a4 (patch)
tree910ba26ace5a09998113df4016d205f881b3db57
parent33c40ee8228a0ceac856a3962e9ad3af712625c5 (diff)
downloadrf-c71a898216c4bcfa0c5195df857b2aa09a9636a4.tar.gz
add field m (misc)
-rwxr-xr-xrf6
1 files changed, 3 insertions, 3 deletions
diff --git a/rf b/rf
index 4b25fbf..4025108 100755
--- a/rf
+++ b/rf
@@ -48,7 +48,7 @@ for (my $i = $#lines; $i >= 0; $i--) {
chomp;
# Reference definition
- if (/^\.R([acdnpqtwy]) +(.*)/) {
+ if (/^\.R([acdmnpqtwy]) +(.*)/) {
my ($fld, $rest) = ($1, $2);
$refi++ if not $refblock; # new reference
@@ -163,8 +163,8 @@ for (my $i = $#r; $i >= 0; $i--) {
sub fmt {
my ($fmt, $i) = @_;
my %ref = %{$refs[$i]};
- for my $fld (split //, 'Aacdnpqtwy') {
- if ($ref{lc $fld}) {
+ for my $fld (split //, 'Aacdmnpqtwy') {
+ if ($ref{lc $fld}) { # interpolate
no warnings;
my $val = $ref{lc $fld};
$val = join '; ', @$val if lc $fld eq 'a';