summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-09-07 23:46:23 +0000
committerNorbert Preining <preining@logic.at>2008-09-07 23:46:23 +0000
commitead7e280e84ad2e3de8687bf122fdd2bc82080f1 (patch)
treef7d9a55451ca52d685978ad4fe5f89c9b925ca49 /Master
parent6335cbaccd97a64101d268a9b87ca1ceece6fa46 (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.diff32
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";
+ }