diff options
author | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2008-06-25 12:43:43 +0000 |
---|---|---|
committer | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2008-06-25 12:43:43 +0000 |
commit | 1d22fff444d6ffab84d65b382c0780d893b5bf59 (patch) | |
tree | 804595a560b828b2f1d1d8f507dda5ae98cd4010 /Master/tlpkg/bin | |
parent | 47f4481a23ad516f02cbd8a8bd2a2c180a1ac883 (diff) |
new --check-all option
git-svn-id: svn://tug.org/texlive/trunk@9041 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin')
-rwxr-xr-x | Master/tlpkg/bin/tlpkg-ctan-check | 31 |
1 files changed, 20 insertions, 11 deletions
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check index ff3d84838cb..605d173bc7a 100755 --- a/Master/tlpkg/bin/tlpkg-ctan-check +++ b/Master/tlpkg/bin/tlpkg-ctan-check @@ -225,23 +225,18 @@ sub main if ($ARGV[0] eq "--list-not-treated") { print "List of tlps which are not in ctan-check:\n"; - # We want to list only the 'normal' packages, - # that is, exclude meta-packages and binary packages. - my $non_normal = `ls $TL/bin`; - $non_normal =~ s/\n/\$|/g; - $non_normal .= '^0+texlive|^bin-|^collection-|^scheme-|^texlive-'; - foreach my $b ($tlpdb->list_packages) { + foreach my $b (&normal_tlps) { my @foo = grep(/^$b$/, @WorkingTLP); - print "$b\n" if (($#foo < 0) and ($b !~ /$non_normal/)); + print "$b\n" if ($#foo < 0); } exit 0; - } - - if ($ARGV[0] eq "--check") { + } elsif ($ARGV[0] eq "--check") { $OPT{"verbose"} = 0; - # for now, just check the few packages we have worked with. @ARGV = @WorkingTLP; + } elsif ($ARGV[0] eq "--check-all") { + $OPT{"verbose"} = 0; + @ARGV = &normal_tlps; } my $errcount = 0; @@ -252,6 +247,20 @@ sub main return $errcount; } +# gives a list with only the 'normal' packages, +# that is, excluding meta-packages and binary packages +# (and hyphen for the moment) +sub normal_tlps +{ + my @normal; + my $non_normal = `ls $TL/bin`; + $non_normal =~ s/\n/\$|/g; + $non_normal .= '^0+texlive|^bin-|^collection-|^scheme-|^texlive-|^hyphen-'; + foreach ($tlpdb->list_packages) { + push (@normal, $_) unless (/$non_normal/); + } + return @normal; +} # Return 1 if TPM needs updating, 0 if ok. |