diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index f3ead7180bd..ba33b19e721 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -391,9 +391,10 @@ sub package_revision { =item C<< $tlpdb->generate_packagelist >> -The C<generate_packagelist> lists all available TL Packages together -with their revisions. It furthermore lists all available architectures -as packages with revision number -1. +The C<generate_packagelist> prints TeX Live package names in the object +database, together with their revisions, to the file handle given in the +first (optional) argument, or C<STDOUT> by default. It also outputs all +available architectures as packages with revision number -1. =cut @@ -401,7 +402,8 @@ sub generate_packagelist { my $self = shift; my $fd = (@_ ? $_[0] : STDOUT); foreach (sort keys %{$self->{'tlps'}}) { - print $fd $self->{'tlps'}{$_}->name, " ", $self->{'tlps'}{$_}->revision, "\n"; + print $fd $self->{'tlps'}{$_}->name, " ", + $self->{'tlps'}{$_}->revision, "\n"; } foreach ($self->available_architectures) { print $fd "$_ -1\n"; |