aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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';