From 1974a31de2947366db7142039a5b8dac8e909ed0 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 18 Dec 2012 23:36:49 +0000 Subject: sync git-svn-id: svn://tug.org/texlive/trunk@28576 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/check-files-by-format | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/bin') 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; } -- cgit v1.2.3