#138 fixed

Author: yegor256

bibcop.pl

@@ -463,7 +463,7 @@ sub check_month {
   my (%entry) = @_;
   if (exists $entry{'month'}) {
     my $month = $entry{'month'};
-    if (not $month =~ /^[1-9]|10|11|12|jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec$/) {
+    if (not $month =~ /^[1-9]|10|11|12$/) {
       return "The format of the 'month' is wrong"
     }
   }

perl-tests/checks.pl

@@ -127,7 +127,7 @@ package bibcop;
 $f = 'check_month';
 check_fails($f, ('month' => 'January'));
 check_fails($f, ('month' => '01'));
-check_passes($f, ('month' => 'jan'));
+check_fails($f, ('month' => 'jan'));
 check_passes($f, ('month' => '1'));
 check_passes($f, ('month' => '12'));