From c71a898216c4bcfa0c5195df857b2aa09a9636a4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Fri, 13 Nov 2020 01:52:34 +0100 Subject: add field m (misc) --- rf | 6 +++--- 1 file 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'; -- cgit v1.2.3