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-check11
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;
}