summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-09-22 22:54:04 +0000
committerKarl Berry <karl@freefriends.org>2009-09-22 22:54:04 +0000
commit9fcb8f37751f3020ad273b8cfc596e37e99fe91b (patch)
tree8a685959ce8ce22cbe032089a0cf78f979858803 /Master/tlpkg
parentb726373a93a0839531e0625f266731041b265ba3 (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-xMaster/tlpkg/bin/tlpkg-ctan-check10
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;
}