summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-11-12 12:54:26 +0000
committerNorbert Preining <preining@logic.at>2007-11-12 12:54:26 +0000
commit31101a4c867f1ac93bd208553ee55a2e9b097a50 (patch)
tree254667b4b0b1ad7d2da17667a2d06d6bb6f60dcf /Master/tlpkg
parent82d00ad268f97dc6986e1bad0aa88d3280aa3bc0 (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
Diffstat (limited to 'Master/tlpkg')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm6
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