#107 doi fix

yegor256 · May 3, 2024 · da000e9 · da000e9
1 parent 3473621
commit da000e9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/bibcop.pl b/bibcop.pl
@@ -429,7 +429,7 @@ sub check_doi {
   my (%entry) = @_;
   if (exists $entry{'doi'}) {
     my $doi = $entry{'doi'};
-    if (not $doi =~ /^[0-9a-zA-Z.]+\/[0-9a-zA-Z._\-)(><:;]+$/) {
+    if (not $doi =~ /^[0-9a-zA-Z.]+\/[0-9a-zA-Z._\-)(><:;\/]+$/) {
       return "The format of the 'doi' is wrong"
     }
   }

diff --git a/perl-tests/checks.pl b/perl-tests/checks.pl
@@ -154,6 +154,7 @@ package bibcop;
 check_passes($f, ('doi' => '10.1016/0743-7315(91)90016-3'));
 check_passes($f, ('doi' => '10.1145/359576.359579'));
 check_passes($f, ('doi' => '10.1049/ic:19950710'));
+check_passes($f, ('doi' => '10.1155/2020/8840389'));
 # https://onlinelibrary.wiley.com/doi/abs/10.1002/(SICI)1096-908X(199701)9:1%3C47::AID-SMR142%3E3.0.CO;2-V
 check_passes($f, ('doi' => '10.1002/(SICI)1096-908X(199701)9:1<47::AID-SMR142>3.0.CO;2-V'));