diff options
author | Norbert Preining <preining@logic.at> | 2007-12-03 17:29:03 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-12-03 17:29:03 +0000 |
commit | 73c5ccf1eacaaf6057e330055ffa1b9965077f39 (patch) | |
tree | 324ef25ff9948c5edf3b8dc1cce8a68bae5c4d3c /Master/tlpkg/TeXLive/TLPOBJ.pm | |
parent | be79c31adc58dd25d3bf67b062105456d5c16ab3 (diff) |
factor out more of the install_package to TLUtils and make it
more or less generic.
git-svn-id: svn://tug.org/texlive/trunk@5700 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 73a692151a1..5709cd9bf1a 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -747,13 +747,23 @@ sub all_files { push (@ret, $self->srcfiles); my %binfiles = %{$self->binfiles}; - for my $arch (keys %binfiles) { + foreach my $arch (keys %binfiles) { push (@ret, @{$binfiles{$arch}}); } return @ret; } +sub allbinfiles { + my $self = shift; + my @ret; + my %binfiles = %{$self->binfiles}; + foreach my $arch (keys %binfiles) { + push (@ret, @{$binfiles{$arch}}); + } + return @ret; +} + # member access functions # @@ -1184,6 +1194,10 @@ adds or removes files for the given type (only for C<run>, C<src>, C<doc>). returns a list of all files of all types. +=item C<allbinfiles> + +returns a list of all binary files. + =back =head1 SEE ALSO |