diff options
author | Karl Berry <karl@freefriends.org> | 2009-09-22 22:54:04 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-09-22 22:54:04 +0000 |
commit | 9fcb8f37751f3020ad273b8cfc596e37e99fe91b (patch) | |
tree | 8a685959ce8ce22cbe032089a0cf78f979858803 /Master/tlpkg | |
parent | b726373a93a0839531e0625f266731041b265ba3 (diff) |
revert *.err to what is on CTAN
git-svn-id: svn://tug.org/texlive/trunk@15424 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-x | Master/tlpkg/bin/tlpkg-ctan-check | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check index 726dbcb175e..1e92153ba30 100755 --- a/Master/tlpkg/bin/tlpkg-ctan-check +++ b/Master/tlpkg/bin/tlpkg-ctan-check @@ -401,7 +401,7 @@ sub do_tlp print "# $tlpn\ndiff $ctan_file $tl_file\n"; $needed = 1; - last; +# last; } } @@ -411,13 +411,15 @@ sub do_tlp warn "\n$tlpn: no files to compare in $ctan_dir, fixme!\n"; warn "(tpm_files = @tpm_files)\n"; } elsif ($needed == 0) { - print "ok, " . (@compared + 0) . " compared (@compared)\n" - if $OPT{"verbose"}; + print "ok\n"; } + print ((@compared + 0) . " compared (@compared)\n") if $OPT{"verbose"}; # clean up the tmpdir possibly created when invoking 'tlpkginfo --prepare' chomp (my $ctan_root = `$mydir/tlpkginfo --ctan-root`); - system ("rm -rf $ctan_dir") unless ($ctan_dir =~ m#^$ctan_root#); + if ($ctan_dir !~ m,^$ctan_root, && ! $OPT{"no-clean"}) { + system ("rm -rf $ctan_dir"); + } return $needed; } |