From e27c2fbf8b5486893205c5491e86086fb24a8e0c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 29 Jan 2023 21:17:25 +0000 Subject: bibcop (29jan23) git-svn-id: svn://tug.org/texlive/trunk@65665 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'Build') 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) { -- cgit v1.2.3