#26 fixed

yegor256 · Mar 11, 2023 · cc8d804 · cc8d804
1 parent 89cd039
commit cc8d804
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/bibcop.pl b/bibcop.pl
@@ -247,7 +247,7 @@ sub check_typography {
     }
     foreach my $s (@space_after) {
       my $p = join('', @no_space_before);
-      if ($value =~ /^.*\Q$s\E[^\s\Q$p\E].*$/) {
+      if ($value =~ /^.*\Q$s\E[^\}\s\Q$p\E].*$/) {
         return "In the '$tag', put a space after the $symbols{$s}"
       }
     }

diff --git a/perl-tests/checks.pl b/perl-tests/checks.pl
@@ -47,6 +47,8 @@ package bibcop;
 check_fails($f, ('title' => 'Not enough spaces around the--- triple dash'));
 check_fails($f, ('title' => 'Not enough spaces around the ---triple dash'));
 check_fails($f, ('title' => 'Spaces around the double -- dash are not allowed'));
+check_passes($f, ('title' => '{No spaces after the last in the text closing (bracket)}'));
+check_passes($f, ('title' => 'No spaces after the last in the text closing (bracket)'));
 check_passes($f, ('title' => 'Proper placement of, with no space in front of it'));
 check_passes($f, ('title' => 'Proper placement of. with no space in front of it'));
 check_passes($f, ('title' => 'Proper placement of: with no space in front of it'));