diff options
author | Karl Berry <karl@freefriends.org> | 2013-04-04 17:31:21 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-04-04 17:31:21 +0000 |
commit | fd4545fe5a780ce3e1fbf1b78d668729de1bff7d (patch) | |
tree | 4e09fb0200704914885bc52dd69629fd280433eb /Master/tlpkg/TeXLive | |
parent | 7ae4f3a4bad94230ffba68bceb27b269b8fa04c4 (diff) |
exclude mptopdf files from context update; do not warn about negative patterns not matching when updating from CTAN
git-svn-id: svn://tug.org/texlive/trunk@29640 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index 9b7ee63d9a9..a2faf894386 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -1,6 +1,6 @@ # $Id$ # TeXLive::TLPSRC.pm - module for handling tlpsrc files -# Copyright 2007, 2008, 2009, 2010, 2011, 2012 Norbert Preining +# Copyright 2007-2013 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. @@ -420,7 +420,8 @@ sub make_tlpobj { if (!@archfiles) { 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); + unless $::tlpsrc_pattern_no_warn_negative; + # see comments in libexec/place script. } } $tlp->remove_binfiles($arch,@archfiles); @@ -443,7 +444,8 @@ sub _do_normal_pattern { my @matchfiles = $tltree->get_matching_files($type, $p, $self->{'name'}); if (!$is_default_pattern && !@matchfiles && ($p !~ m,^f ignore,) && ($p !~ m,^d tlpkg/backups,)) { - tlwarn("$self->{name}: no hit for pattern $p\n"); + tlwarn("$self->{name}: no hit for pattern $p\n") + unless $negative && $::tlpsrc_pattern_no_warn_negative; } if (defined($negative) && $negative == 1) { $tlp->remove_files($type,@matchfiles); |