summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpkginfo
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2020-04-20 22:45:46 +0000
committerKarl Berry <karl@freefriends.org>2020-04-20 22:45:46 +0000
commit67635f11d8ff1b4f0417ad651f2bc10d1d2e09c5 (patch)
tree5cd9980fef3220a60fe92e8c6556435a0051b7b9 /Master/tlpkg/bin/tlpkginfo
parent9ac5474a83d80efa2129337a2acf8ed461717ecc (diff)
tlpkg-ctan-check: avoid catalogue update for every package; other doc and syntax tweaks, etc.
git-svn-id: svn://tug.org/texlive/trunk@54820 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tlpkginfo')
-rwxr-xr-xMaster/tlpkg/bin/tlpkginfo6
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/tlpkginfo b/Master/tlpkg/bin/tlpkginfo
index e79c22e669f..479ca9090c7 100755
--- a/Master/tlpkg/bin/tlpkginfo
+++ b/Master/tlpkg/bin/tlpkginfo
@@ -71,6 +71,7 @@ sub ctaninfo {
-d "$CATALOGUE/k"
|| die "$0: TEX_CATALOGUE ($CATALOGUE) must point to entries/ subdir"
. " of a TeX Catalogue checkout.\n";
+ $catalogue_update = 1; # do svn update of catalogue file?
# erroneous or problematic tds files (when new, tell CTAN and author)
$erroneous_tds = join ("|",
@@ -92,6 +93,9 @@ sub ctaninfo {
print "$output\n" if $output;
return $output ? 0 : 1;
+ } elsif ($ARGV[0] eq "--no-catalogue") {
+ $catalogue_update = 0;
+
} elsif ($ARGV[0] eq "--prepare") {
my $output = &prepare ($ARGV[1]);
print "$output\n" if $output; # if no $output, errors elsewhere
@@ -390,7 +394,7 @@ sub prepare {
if ($catfile) {
# redirect to stderr because we want the only stdout to be the
# directory name for ctan2tl to use.
- system ("svn update $catfile >&2");
+ system ("timeout 8s svn update $catfile >&2") if $catalogue_update;
open (CATFILE, "<$catfile") || die "open($catfile) failed, fixme: $!";
# looking for a line like <install path='...'/>