bibcop (29jan23)

git-svn-id: svn://tug.org/texlive/trunk@65665 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 10 insertions, 1 deletions

diff --git a/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl b/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
index 73535c1de50..fd774d90195 100755
--- a/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
+++ b/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
@@ -435,6 +435,7 @@ sub entries {
   my %entry;
   my $acc = '';
   my $tag = '';
+  my $interrupted = ''; # where the comment interrupted the proceeding (state name)
   my $lineno = 0;
   my $nest = 0;
   my $escape = 0;
@@ -442,9 +443,17 @@ sub entries {
     my $char = substr($bib, $pos, 1);
     if ($char eq ' ') {
       # ignore the white space
+    } elsif ($char eq '%' and not($s eq 'quote')) {
+      $interrupted = $s;
+      $s = 'comment';
     } elsif ($char eq "\n") {
       # ignore the EOL
       $lineno = $lineno + 1;
+      if ($s eq 'comment') {
+        $s = $interrupted;
+      }
+    } elsif ($s eq 'comment') {
+      # ignore the comment
     } elsif ($s eq 'top') {
       if ($char eq '@') {
         %entry = ();
@@ -622,7 +631,7 @@ if (@ARGV+0 eq 0 or exists $args{'--help'} or exists $args{'-?'}) {
     "      --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('0.0.7');
+  info('0.0.8');
 } else {
   my ($file) = grep { not($_ =~ /^--.*$/) } @ARGV;
   if (not $file) {