From 19298d47c5d11bbaedaac530986ce4cb0a9ed06d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Thu, 12 Nov 2020 02:35:45 +0100
Subject: remove potential double period after author's intial

---
 rf | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/rf b/rf
index 76d013f..5822447 100755
--- a/rf
+++ b/rf
@@ -169,8 +169,13 @@ sub fmt {
 			my $val = $ref{lc $fld};
 			$val = join '; ', @$val if lc $fld eq 'a';
 			$val = fmtl($val) if $fld eq 'A';
-			$fmt =~ s/\{([^{}%]*)%\Q$fld\E([^{}]*)}/$1$val$2/g;
-			$fmt =~ s/%\Q$fld\E/$val/g;
+			if ($val =~ /\.$/) {
+				$fmt =~ s/\{([^{}%]*)%\Q$fld\E([^{}]*)}\.?/$1$val$2/g;
+				$fmt =~ s/%\Q$fld\E\.?/$val/g;
+			} else {
+				$fmt =~ s/\{([^{}%]*)%\Q$fld\E([^{}]*)}/$1$val$2/g;
+				$fmt =~ s/%\Q$fld\E/$val/g;
+			}
 		} else {
 			no warnings;
 			$fmt =~ s/[.([]?\{([^{}%]*)%\Q$fld\E([^{}]*)}[.,?!:;\])]?//g;
-- 
cgit v1.2.3