diff options
| -rwxr-xr-x | rf | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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'; |