#47 fixed

yegor256 · Aug 19, 2023 · 35279e2 · 35279e2
1 parent 22e0d3e
commit 35279e2
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/bibcop.pl b/bibcop.pl
@@ -605,8 +605,10 @@ sub entries {
     if ($char eq ' ') {
       # ignore the white space
     } elsif ($char eq '%' and not($s eq 'quote')) {
-      $interrupted = $s;
-      $s = 'comment';
+      if ($pos eq 0 or substr($bib, $pos - 1, 1) ne '\\') {
+        $interrupted = $s;
+        $s = 'comment';
+      }
     } elsif ($char eq "\n") {
       # ignore the EOL
       $lineno = $lineno + 1;

diff --git a/perl-tests/parsing.pl b/perl-tests/parsing.pl
@@ -64,6 +64,10 @@ package bibcop;
 # show(@i7);
 assert(@i7+0, 1);
 
+my @i8 = entries("\@misc{foo33, title={It's 100\\% true!}}\n");
+# show(@i8);
+assert(@i8+0, 1);
+
 # These are all parsing errors
 assert(entries('no bibs')+0, 0);
 assert(entries('@misc{---}')+0, 0);