diff options
author | Karl Berry <karl@freefriends.org> | 2023-06-30 20:49:44 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2023-06-30 20:49:44 +0000 |
commit | bc2102e984ce833ade369e66f92d87f78316e268 (patch) | |
tree | b314fa96bd27d3a2993745743c811464613b77a2 /Build/source | |
parent | 9b38263d045c89b959b96528379a58ed6b9d426f (diff) |
bibcop (30jun23)
git-svn-id: svn://tug.org/texlive/trunk@67510 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source')
-rwxr-xr-x | Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl b/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl index 8deffac2636..276d435dab9 100755 --- a/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl +++ b/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl @@ -752,11 +752,18 @@ sub listed_tags { return '(' . join(', ', @sorted) . ')'; } +# Make sure the text can safely be rendered in TeX. +sub escape_tex { + my ($tex) = @_; + $tex =~ s/[^a-zA-Z0-9-.,+)(:;@ '"]/?/g; + return $tex; +} + # Print ERROR message to the console and die. sub error { my ($txt) = @_; if (exists $args{'--latex'}) { - print "\\PackageError{bibcop}{$txt}{}\n"; + print "\\PackageError{bibcop}{" . escape_tex($txt). "}{}\n"; } else { print STDERR $txt . "\n"; } @@ -768,7 +775,7 @@ sub debug { my ($txt) = @_; if (exists $args{'--verbose'}) { if (exists $args{'--latex'}) { - print "\\message{bibcop: $txt^^J}\n"; + print "\\message{bibcop: " . escape_tex($txt) . "^^J}\n"; } else { print $txt . "\n"; } @@ -788,7 +795,7 @@ sub info { sub warning { my ($txt) = @_; if (exists $args{'--latex'}) { - print "\\PackageWarningNoLine{bibcop}{$txt}\n"; + print "\\PackageWarningNoLine{bibcop}{" . escape_tex($txt) . "}\n"; } else { print $txt . "\n"; } @@ -822,7 +829,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.13'); + info('0.0.14'); } else { my ($file) = grep { not($_ =~ /^--.*$/) } @ARGV; if (not $file) { |