From fd4545fe5a780ce3e1fbf1b78d668729de1bff7d Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Thu, 4 Apr 2013 17:31:21 +0000
Subject: 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
---
 Master/tlpkg/bin/tl-compare-tlpdbs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'Master/tlpkg/bin/tl-compare-tlpdbs')

diff --git a/Master/tlpkg/bin/tl-compare-tlpdbs b/Master/tlpkg/bin/tl-compare-tlpdbs
index 10a50b321bf..1a8c1a5afe1 100755
--- a/Master/tlpkg/bin/tl-compare-tlpdbs
+++ b/Master/tlpkg/bin/tl-compare-tlpdbs
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-# Copyright 2008, 2009, 2010, 2011 Norbert Preining
+# Copyright 2008-2013 Norbert Preining
 # This file is licensed under the GNU General Public License version 2
 # or any later version.
 #
@@ -29,9 +29,9 @@ my $opt_help = 0;
 
 TeXLive::TLUtils::process_logging_options();
 GetOptions(
+  "all"   	=> sub { @add_ignored_packs = () },
   "version"	=> \$opt_version,
   "help|?"      => \$opt_help,
-  "all"   => sub { @add_ignored_packs = () },
 ) or pod2usage(1);
 
 pod2usage("-exitstatus" => 0, "-verbose" => 2) if $opt_help;
@@ -40,8 +40,7 @@ if ($opt_version) { print "$vc_id\n"; exit 0; }
 exit (&main());
 
 
-sub main
-{
+sub main {
   chomp(my $Master = `cd $mydir/../.. && pwd`);
 
   # get additional list of disabled packages
-- 
cgit v1.2.3