#81 quote back

yegor256 · Mar 19, 2024 · 6d23258 · 6d23258
1 parent af1680a
commit 6d23258
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/bibcop.pl b/bibcop.pl
@@ -750,6 +750,7 @@ sub fix_unicode {
     'ı' => '{\i}',
     'ø' => '\o{}',
     '–' => '--', '—' => '---',
+    '’' => '\''
   );
   keys %literals;
   while(my($k, $v) = each %literals) {

diff --git a/perl-tests/fixing.pl b/perl-tests/fixing.pl
@@ -80,6 +80,7 @@ package bibcop;
 fixes('month', 'something', 'something');
 
 fixes('unicode', 'Fernández, Luis and Peña, Rosalía', 'Fern\\\'{a}ndez, Luis and Pe\~{n}a, Rosal\\\'{i}a');
+fixes('unicode', 'Programmers’ Life', 'Programmers\' Life');
 
 sub fixes {
   my ($tag, $before, $expected) = @_;