summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpkg-ctan-check
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tlpkg-ctan-check')
-rwxr-xr-xMaster/tlpkg/bin/tlpkg-ctan-check21
1 files changed, 14 insertions, 7 deletions
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index c417188eb4d..dc80db1b4f1 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -139,7 +139,7 @@ my @TLP_working = qw(
coverpage covington
cprotect
crbox crop crossreference crossword crosswrd cryst
- csbulletin csquotes csquotes-de csvsimple csvtools cstex
+ csbulletin cslatex csplain csquotes csquotes-de csvsimple csvtools cstex
ctanify ctanupload ctable ctex ctex-faq
cursolatex cuisine
currfile currvita curve curve2e curves
@@ -525,9 +525,7 @@ my @TLP_no_check = (
"cjkutils", # binary
"cns", # part of cjk
"context", # binary+taco
- "cs", # distributed as .tar.gz, too painful to unpack
- "cslatex", # distributed as .tar.gz
- "csplain", # distributed as .tar.gz
+ "cs", # multiple .tar.gz, too painful to unpack
"ctib", # binary
"ctie", # binary
"cweb", # binary
@@ -626,7 +624,7 @@ sub main {
die "Cannot find tlpdb in $Master!" unless defined $tlpdb;
$OPT{"verbose"} = 0;
- if ($ARGV[0] eq "--verbose") {
+ if ($ARGV[0] eq "--verbose" || $ARGV[0] eq "-v") {
$OPT{"verbose"} = 1;
shift @ARGV;
}
@@ -679,7 +677,7 @@ sub normal_tlps {
}
-# Return 1 if package TLPN needs updating, 0 if ok.
+# Return 1 if package TLPN needs updating (or error), 0 if ok.
#
sub do_tlp {
my ($tlpn) = @_;
@@ -694,8 +692,17 @@ sub do_tlp {
chomp (my $ctan_dir = `$mydir/tlpkginfo --prepare '$tlpn'`);
if (! $ctan_dir) {
warn "$0: oops, no CTAN directory for $tlpn, fix fix\n";
- return ();
+ return 1;
+ }
+ # csplain and cslatex have .tar.gz's that need to be unpacked for
+ # comparison. (perhaps this should be done in tlpkginfo.) but don't
+ # do any unpacking inside the ctan hierarchy.
+ if ($ctan_dir !~ m,^$ctan_root,) {
+ for my $tgz (glob ("$ctan_dir/*.tar.gz")) {
+ system ("tar -C $ctan_dir -xf $tgz");
+ }
}
+
my @tl_files = ();
push @tl_files, $tlp->runfiles;
push @tl_files, $tlp->docfiles;