diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpkg-ctan-check')
-rwxr-xr-x | Master/tlpkg/bin/tlpkg-ctan-check | 21 |
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; |