diff options
author | Karl Berry <karl@freefriends.org> | 2010-04-26 00:33:06 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-04-26 00:33:06 +0000 |
commit | 37dfbcfb22cd80fe5a754250af8eda4a2843af05 (patch) | |
tree | 66a22d0cfa04c9e3d9dff447d99bbc03703313f5 /Master/tlpkg/bin | |
parent | 9c24297a1ff4e9878d7506b820075ef022d53592 (diff) |
needspace doc (22apr10)
git-svn-id: svn://tug.org/texlive/trunk@17999 c570f23f-e606-0410-a88d-b1316a301751
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"); |