diff options
author | Norbert Preining <preining@logic.at> | 2008-09-07 23:46:23 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-09-07 23:46:23 +0000 |
commit | ead7e280e84ad2e3de8687bf122fdd2bc82080f1 (patch) | |
tree | f7d9a55451ca52d685978ad4fe5f89c9b925ca49 /Master | |
parent | 6335cbaccd97a64101d268a9b87ca1ceece6fa46 (diff) |
add another pending patch
git-svn-id: svn://tug.org/texlive/trunk@10451 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/etc/list-new-packages.diff | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/Master/tlpkg/etc/list-new-packages.diff b/Master/tlpkg/etc/list-new-packages.diff new file mode 100644 index 00000000000..4f3a1f2aa7e --- /dev/null +++ b/Master/tlpkg/etc/list-new-packages.diff @@ -0,0 +1,32 @@ +Index: tlmgr.pl +=================================================================== +--- tlmgr.pl (revision 10450) ++++ tlmgr.pl (working copy) +@@ -621,6 +621,27 @@ + } else { + @todo = @ARGV; + } ++ if ($opt_list) { ++ # we check for new packages ++ # loop over all installed collections ++ for my $c ($localtlpdb->collections) { ++ my $tlc = $mediatlpdb->get_package($c); ++ if (!defined($tlc)) { ++ debug("collection $c has disappeared from the network!\n"); ++ } else { ++ # take all the dependencies of the installed collection ++ # *as*found* in the network tlpdb ++ for my $d ($tlc->depends) { ++ my $tlp = $localtlpdb->get_package($d); ++ if (!defined($tlp)) { ++ # there is a dep that is either new or has been forcibly removed ++ # report it as new/forcibly removed ++ info("package $d ($c) is new (or has been forcibly removed)\n"); ++ } ++ } ++ } ++ } ++ } + if (!@todo) { + printf "tlmgr update takes either a list of packages or --all\n"; + } |