From 6d232585c65dda84ac559d7b0317c3e561a71569 Mon Sep 17 00:00:00 2001
From: Yegor Bugayenko <yegor256@gmail.com>
Date: Tue, 19 Mar 2024 10:01:47 +0300
Subject: [PATCH] #81 quote back

---
 bibcop.pl            | 1 +
 perl-tests/fixing.pl | 1 +
 2 files changed, 2 insertions(+)

diff --git a/bibcop.pl b/bibcop.pl
index 3c294b8..5da5e3e 100755
--- 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
index aaf1b73..ed76be1 100755
--- 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) = @_;