summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-04-26 00:33:06 +0000
committerKarl Berry <karl@freefriends.org>2010-04-26 00:33:06 +0000
commit37dfbcfb22cd80fe5a754250af8eda4a2843af05 (patch)
tree66a22d0cfa04c9e3d9dff447d99bbc03703313f5 /Master/tlpkg/bin
parent9c24297a1ff4e9878d7506b820075ef022d53592 (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-xMaster/tlpkg/bin/tlpkg-ctan-check13
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");