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 /Master/tlpkg/TeXLive | |
parent | 981967d60424b23a51a0faf7756f6699c7678c6f (diff) |
rename to global variable for warnings control
git-svn-id: svn://tug.org/texlive/trunk@9932 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 7 |
1 files changed, 4 insertions, 3 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); |