#107 fix

yegor256 · May 3, 2024 · 3473621 · 3473621
1 parent 8c6de74
commit 3473621
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/bibcop.pl b/bibcop.pl
@@ -619,6 +619,7 @@ sub fix_author {
         $author = $words[$total - 1] . ', ' . join(' ', @words[0 .. $total - 2]);
       }
     }
+    $author =~ s/([A-Z])\.(?![ ,])/$1. /g;
     $author =~ s/^\s+|\s+$//g;
   }
   return join(' and ', @authors);

diff --git a/perl-tests/fixing.pl b/perl-tests/fixing.pl
@@ -37,6 +37,8 @@ package bibcop;
 fixes('author', 'Peter J. Landin', 'Landin, Peter J.');
 fixes('author', 'Tan Yiyu and Lo {Wan Yiu}', 'Yiyu, Tan and Lo {Wan Yiu}');
 fixes('author', 'van Buren, Andre', 'van Buren, Andre');
+fixes('author', 'Munsen, C.J.', 'Munsen, C. J.');
+fixes('author', 'J.J.G., Hanson', 'J. J. G., Hanson');
 
 fixes('title', 'The TeX Book', 'The TeX Book');
 fixes('title', 'Executing A program On The MIT architecture', 'Executing a Program on the MIT Architecture');