diff options
author | Norbert Preining <preining@logic.at> | 2008-07-31 11:18:07 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-07-31 11:18:07 +0000 |
commit | b87bc965e33cf83181ec0b0822ab43413b5b715d (patch) | |
tree | 9f00b68accd35b9a5929d922a0f8f404782a0b40 | |
parent | 981967d60424b23a51a0faf7756f6699c7678c6f (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.pm | 7 | ||||
-rwxr-xr-x | Master/tlpkg/bin/tlpsrc2tlpdb | 2 |
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) { |