summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2024-01-17 20:38:27 +0000
committerKarl Berry <karl@freefriends.org>2024-01-17 20:38:27 +0000
commit3148590936e4aa5c9f3927dc8dc5d6ccf87d822c (patch)
tree220dc79548845122f434247bf8423c1716d239f1 /Build
parent31fe966e09508db1864ad11ca0a7069a29e513af (diff)
bibcop (17jan24)
git-svn-id: svn://tug.org/texlive/trunk@69467 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/bibcop/bibcop.pl8
1 files changed, 5 insertions, 3 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl b/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
index f1e5121ffcd..89d101eccf3 100755
--- a/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
+++ b/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
@@ -21,7 +21,7 @@
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
# SOFTWARE.
-# 2024-01-16 0.0.18
+# 2024-01-17 0.0.19
package bibcop;
use warnings;
@@ -893,7 +893,9 @@ sub fail {
}
}
-if (not basename($0) eq 'bibcop.pl') {
+my $script = basename($0);
+$script =~ s/\.pl$//g;
+if (not $script eq 'bibcop') {
goto END;
}
@@ -917,7 +919,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.18 2024-01-16');
+ info('0.0.19 2024-01-17');
} else {
my ($file) = grep { not($_ =~ /^-.*$/) } @ARGV;
if (not $file) {