diff options
author | Norbert Preining <preining@logic.at> | 2007-11-12 12:54:26 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-11-12 12:54:26 +0000 |
commit | 31101a4c867f1ac93bd208553ee55a2e9b097a50 (patch) | |
tree | 254667b4b0b1ad7d2da17667a2d06d6bb6f60dcf | |
parent | 82d00ad268f97dc6986e1bad0aa88d3280aa3bc0 (diff) |
add the list of archs as package in the package list with rev -1
git-svn-id: svn://tug.org/texlive/trunk@5407 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 7086a60283f..7dd1fbb6a59 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -309,7 +309,8 @@ sub package_revision { =item C<< $tlpdb->generate_packagelist >> The C<generate_packagelist> lists all available TL Packages together -with their revisions. +with their revisions. It furthermore lists all available architectures +as packages with revision number -1. =cut @@ -319,6 +320,9 @@ sub generate_packagelist { foreach (sort keys %{$self->{'tlps'}}) { print $fd $self->{'tlps'}{$_}->name, " ", $self->{'tlps'}{$_}->revision, "\n"; } + foreach ($self->available_architectures) { + print $fd "$_ -1\n"; + } } =pod |