diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpkg-ctan-check')
-rwxr-xr-x | Master/tlpkg/bin/tlpkg-ctan-check | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check index 3d9b731380a..a32994510bc 100755 --- a/Master/tlpkg/bin/tlpkg-ctan-check +++ b/Master/tlpkg/bin/tlpkg-ctan-check @@ -17,6 +17,7 @@ use File::Basename; my $tlpdb; my $TL; +our %OPT; my @WorkingTLP = qw( 12many @@ -230,7 +231,7 @@ sub main $tlpdb = TeXLive::TLPDB->new ("root" => "$Master"); die("Cannot find tlpdb in $Master!\n") unless defined($tlpdb); - $OPT{"verbose"} = 1; + $OPT{"verbose"} = 0; if ($ARGV[0] eq "--list-not-treated") { print "List of tlps which are not in ctan-check:\n"; @@ -240,14 +241,12 @@ sub main } exit 0; } 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; - } elsif ($ARGV[0] eq "--non-verbose") { - $OPT{"verbose"} = 0; + } elsif ($ARGV[0] eq "--verbose") { + $OPT{"verbose"} = 1; shift @ARGV; } @@ -284,7 +283,7 @@ sub do_tlp my $tlp = $tlpdb->get_package($tlpn); if (not(defined($tlp))) { - warn("Cannot get package $tlpn, strange!\n"); + warn "$0: no package $tlpn\n"; return 1; } |