diff options
Diffstat (limited to 'Master/tlpkg/bin')
-rwxr-xr-x | Master/tlpkg/bin/tlpkg-ctan-check | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check index 2fac39798c9..24cc6cfaef4 100755 --- a/Master/tlpkg/bin/tlpkg-ctan-check +++ b/Master/tlpkg/bin/tlpkg-ctan-check @@ -462,6 +462,10 @@ sub do_tlp my @compared = (); for my $file (@tpm_files) { #warn "checking file $file\n"; + # no point yet in comparing ours, we have generated too many. + # revisit this someday to see how many of ours are actually different. + next if $file =~ /\.pdf$/; + my $tl_file = "$Master/$file"; if (! -e $tl_file) { warn "$tl_file: TL file missing\n"; @@ -486,18 +490,13 @@ sub do_tlp if (! -e $ctan_file) { # we generate lots of files, eg perlmacros.sty, so might skip. warn "$ctan_file: CTAN file missing\n" - if $ctan_file && $ctan_file !~ /(cfg|dvi|sty|tex)$/; + if $ctan_file && $ctan_file !~ /(cfg|dvi|sty|tex)$/; next; } } push (@compared, $basefile); if (&files_differ ($tl_file, $ctan_file)) { - # we sometimes regenerate pdf's for TL, so we don't complain if - # they are different. On the other hand, we don't always - # regenerate them, so might as well check first. - next if $tl_file =~ /\.pdf$/; - print "# $tlpn\ndiff $ctan_file $tl_file\n"; $needed = 1; last unless $OPT{"all"}; @@ -514,7 +513,7 @@ sub do_tlp } print ((@compared + 0) . " compared (@compared)\n") if $OPT{"verbose"}; - # clean up the tmpdir possibly created when invoking 'tlpkginfo --prepare' + # clean up the tmpdir possibly created from tlpkginfo --prepare. chomp (my $ctan_root = `$mydir/tlpkginfo --ctan-root`); if ($ctan_dir !~ m,^$ctan_root, && ! $OPT{"no-clean"}) { system ("rm -rf $ctan_dir"); |