diff options
-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 |