Deploying to gh-pages from @ 80866da 🚀

bibcop.pl

@@ -21,7 +21,7 @@
 # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 # SOFTWARE.
 
-# 2024-05-03 03.13.18
+# 2024-05-03 03.36.48
 package bibcop;
 
 use warnings;
@@ -659,26 +659,28 @@ sub fix_capitalization {
     if (not $word =~ /^[A-Za-z]/) {
       next;
     }
-    my $lc = lc($word);
-    if (exists $minors{$lc} and $pos > 1) {
+    my $start = 1;
+    if ($pos > 1) {
       my $before = $words[$pos - 2];
-      if (not $before =~ /(:|\?|!|;)$/) {
-        $word = $lc;
-        next;
+      if (not $before =~ /(:|\?|!|;|-)$/) {
+        $start = 0;
       }
     }
-    if ($word =~ /^[a-z].*/) {
-      $word =~ s/^([a-z])/\U$1/g;
-    }
     my @parts = split(/-/, $word, -1);
     my $p = 0;
     foreach my $part (@parts) {
       $p += 1;
-      if (exists $minors{lc($part)}) {
+      my $lcp = lc($part);
+      if (exists $minors{$lcp}) {
         if ($p > 1) {
           my $pre = $parts[$p - 2];
           if (not $pre eq '') {
-            $part = lc($part);
+            $part = $lcp;
+            next;
+          }
+        } elsif (@parts+0 == 1) {
+          if (not $start) {
+            $part = $lcp;
             next;
           }
         }
@@ -1070,7 +1072,7 @@ sub fail {
     "      --latex     Report errors in LaTeX format using \\PackageWarningNoLine command\n\n" .
     "If any issues, report to GitHub: https://github.com/yegor256/bibcop");
 } elsif (exists $args{'--version'} or exists $args{'-v'}) {
-  info('03.13.18 2024-05-03');
+  info('03.36.48 2024-05-03');
 } else {
   my ($file) = grep { not($_ =~ /^-.*$/) } @ARGV;
   if (not $file) {

bibcop.sty

@@ -31,7 +31,7 @@
 
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage{bibcop}
-[2024-05-03 03.13.18 Style Checker of Bibliography Files]
+[2024-05-03 03.36.48 Style Checker of Bibliography Files]