From 7d140508703ce426e7bca704df1aac83e58f75b6 Mon Sep 17 00:00:00 2001
From: Yegor Bugayenko <yegor256@gmail.com>
Date: Fri, 15 Mar 2024 12:25:25 +0300
Subject: [PATCH] #74 ACM simplified

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

diff --git a/bibcop.pl b/bibcop.pl
index 517f3a8..4bb4ffe 100755
--- a/bibcop.pl
+++ b/bibcop.pl
@@ -675,6 +675,7 @@ sub fix_journal {
 sub fix_publisher {
   my ($value) = @_;
   $value = fix_capitalization($value);
+  $value =~ s/^ACM($|[^A-Z0-9a-z].*$)/ACM/g;
   return $value;
 }
 
diff --git a/perl-tests/fixing.pl b/perl-tests/fixing.pl
index 5193113..99022f7 100755
--- a/perl-tests/fixing.pl
+++ b/perl-tests/fixing.pl
@@ -44,6 +44,9 @@ package bibcop;
 fixes('booktitle', 'Symposium on Computers', 'Proceedings of the Symposium on Computers');
 fixes('booktitle', 'Proceedings of the 2014 7th Conference', 'Proceedings of the 7th Conference');
 
+fixes('publisher', 'ACM New York, NY, USA', 'ACM');
+fixes('publisher', 'ACME', 'ACME');
+
 fixes('pages', '13', '13');
 fixes('pages', '13-', '13');
 fixes('pages', '13--', '13');