From d6b305e926d2e964ccb6e040c4a841138f2095f7 Mon Sep 17 00:00:00 2001
From: Yegor Bugayenko <yegor256@gmail.com>
Date: Fri, 15 Mar 2024 14:46:55 +0300
Subject: [PATCH] #77 rename

---
 bibcop.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/bibcop.pl b/bibcop.pl
index 0eadf27..79f815b 100755
--- a/bibcop.pl
+++ b/bibcop.pl
@@ -587,6 +587,7 @@ sub fix_author {
         $author = $words[$total - 1] . ', ' . join(' ', @words[0 .. $total - 2]);
       }
     }
+    $author =~ s/^\s+|\s+$//g;
   }
   return join(' and ', @authors);
 }
@@ -682,7 +683,7 @@ sub fix_journal {
   return $value;
 }
 
-sub simplify_org_name {
+sub fix_org_name {
   my ($value) = @_;
   my @orgs = qw/ACM IEEE/;
   foreach my $org (@orgs) {
@@ -694,14 +695,14 @@ sub simplify_org_name {
 sub fix_publisher {
   my ($value) = @_;
   $value = fix_capitalization($value);
-  $value = simplify_org_name($value);
+  $value = fix_org_name($value);
   return $value;
 }
 
 sub fix_organization {
   my ($value) = @_;
   $value = fix_capitalization($value);
-  $value = simplify_org_name($value);
+  $value = fix_org_name($value);
   return $value;
 }