summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm10
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";