summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin')
-rwxr-xr-xMaster/tlpkg/bin/check-files-by-format7
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/check-files-by-format b/Master/tlpkg/bin/check-files-by-format
index 01a02e20689..d6791ca5b52 100755
--- a/Master/tlpkg/bin/check-files-by-format
+++ b/Master/tlpkg/bin/check-files-by-format
@@ -247,13 +247,14 @@ sub exclude_value {
# check a pdf file
sub check_pdf {
my ($file) = @_;
- return if exclude_value($exclude_pfb, $file) < 0;
+ my $excl_val = exclude_value($exclude_pfb, $file) || 0;
+ return if $excl_val < 0;
+ #
my $errfile = "$tmpdir/pdferr";
unlink($errfile);
my $bad_exit = system("pdfinfo $tlroot/$file >/dev/null 2>$errfile");
my $badness = $bad_exit ? 2 : -s $errfile ? 1 : 0;
- my $limit = exclude_value($exclude_pdf, $file) || 0;
- return if $badness <= $limit;
+ return if $badness <= $excl_val;
print "Broken PDF: $file\n" if $badness == 2;
print "Damaged PDF: $file\n" if $badness == 1;
}