sync

git-svn-id: svn://tug.org/texlive/trunk@28576 c570f23f-e606-0410-a88d-b1316a301751

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;
 }