summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-07-31 11:18:07 +0000
committerNorbert Preining <preining@logic.at>2008-07-31 11:18:07 +0000
commitb87bc965e33cf83181ec0b0822ab43413b5b715d (patch)
tree9f00b68accd35b9a5929d922a0f8f404782a0b40
parent981967d60424b23a51a0faf7756f6699c7678c6f (diff)
rename to global variable for warnings control
git-svn-id: svn://tug.org/texlive/trunk@9932 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLPSRC.pm7
-rwxr-xr-xMaster/tlpkg/bin/tlpsrc2tlpdb2
2 files changed, 5 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm
index 19ea6e36936..76f72be8c3e 100644
--- a/Master/tlpkg/TeXLive/TLPSRC.pm
+++ b/Master/tlpkg/TeXLive/TLPSRC.pm
@@ -353,7 +353,7 @@ sub make_tlpobj
# get only those files matching the pattern
my @archfiles = $tltree->get_matching_files('bin',$finalp, $arch);
if (!@archfiles) {
- if (($arch ne "win32") || defined($::win_pattern_warn)) {
+ if (($arch ne "win32") || defined($::tlpsrc_pattern_warn_win)) {
tlwarn("$self->{name} ($arch): no hit on binpattern $finalp\n");
}
}
@@ -390,8 +390,9 @@ sub make_tlpobj
# get only those files matching the pattern
my @archfiles = $tltree->get_matching_files('bin',$finalp, $arch);
if (!@archfiles) {
- if (($arch ne "win32") || defined($::win_pattern_warn)) {
- tlwarn("$self->{name} ($arch): no hit on negative binpattern $finalp\n");
+ if (($arch ne "win32") || defined($::tlpsrc_pattern_warn_win)) {
+ tlwarn("$self->{name} ($arch): no hit on negative binpattern $finalp\n")
+ unless defined($::tlpsrc_pattern_no_warn_negative);
}
}
$tlp->remove_binfiles($arch,@archfiles);
diff --git a/Master/tlpkg/bin/tlpsrc2tlpdb b/Master/tlpkg/bin/tlpsrc2tlpdb
index 127e365bc5d..a4ed29728f9 100755
--- a/Master/tlpkg/bin/tlpsrc2tlpdb
+++ b/Master/tlpkg/bin/tlpsrc2tlpdb
@@ -50,7 +50,7 @@ sub main
die "$0: Master $opt_master not a directory, goodbye.\n";
}
if (defined($opt_winwarning)) {
- $::win_pattern_warn = 1;
+ $::tlpsrc_pattern_warn_win = 1;
}
my $tlc = undef;
if (! -d $opt_catalogue) {