summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-12-18 23:36:49 +0000
committerKarl Berry <karl@freefriends.org>2012-12-18 23:36:49 +0000
commit1974a31de2947366db7142039a5b8dac8e909ed0 (patch)
tree7f556b23dab9277a632d31decd69480c2c1d33a9 /Master/tlpkg/bin
parent2dcf4d3acd844f938fa3792188a5dd7a30009fff (diff)
sync
git-svn-id: svn://tug.org/texlive/trunk@28576 c570f23f-e606-0410-a88d-b1316a301751
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;
}