diff options
author | Karl Berry <karl@freefriends.org> | 2011-03-20 18:34:02 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-03-20 18:34:02 +0000 |
commit | b6cf76ded2c5eac72ae87d5a1554e9f886698a26 (patch) | |
tree | 77dad847fdba991b4be3a9964544e807c2612561 /Master/tlpkg/TeXLive/TLPOBJ.pm | |
parent | 83f853b5069bf9abe30cbbfa23e39c267f2ec57e (diff) |
copyright years, doc fixes
git-svn-id: svn://tug.org/texlive/trunk@21770 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 25 |
1 files changed, 14 insertions, 11 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index d08fba3595a..b73ee0e3cff 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -1,6 +1,6 @@ # $Id$ # TeXLive::TLPOBJ.pm - module for using tlpobj files -# Copyright 2007, 2008, 2009, 2010 Norbert Preining +# Copyright 2007, 2008, 2009, 2010, 2011 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. @@ -37,11 +37,11 @@ sub new { catalogue => $params{'catalogue'}, relocated => $params{'relocated'}, runfiles => defined($params{'runfiles'}) ? $params{'runfiles'} : [], - runsize => $params{'runsize'}, + runsize => $params{'runsize'}, srcfiles => defined($params{'srcfiles'}) ? $params{'srcfiles'} : [], - srcsize => $params{'srcsize'}, + srcsize => $params{'srcsize'}, docfiles => defined($params{'docfiles'}) ? $params{'docfiles'} : [], - docsize => $params{'docsize'}, + docsize => $params{'docsize'}, executes => defined($params{'executes'}) ? $params{'executes'} : [], postactions => defined($params{'postactions'}) ? $params{'postactions'} : [], # note that binfiles is a HASH with keys of $arch! @@ -49,7 +49,7 @@ sub new { binsize => defined($params{'binsize'}) ? $params{'binsize'} : {}, depends => defined($params{'depends'}) ? $params{'depends'} : [], revision => $params{'revision'}, - cataloguedata => defined($params{'cataloguedata'}) ? $params{'cataloguedata'} : {}, + cataloguedata => defined($params{'cataloguedata'}) ? $params{'cataloguedata'} : {}, }; $_containerdir = $params{'containerdir'} if defined($params{'containerdir'}); bless $self, $class; @@ -66,7 +66,6 @@ sub copy { } - sub from_file { my $self = shift; if (@_ != 1) { @@ -83,7 +82,6 @@ sub from_fh { my $arch; my $size; - #while (my $line = $fh->getline) { while (my $line = <$fh>) { chomp($line); # we call tllog only when something will be logged, to speed things up. @@ -958,8 +956,9 @@ sub all_files { sub allbinfiles { my $self = shift; - my @ret; + my @ret = (); my %binfiles = %{$self->binfiles}; + foreach my $arch (keys %binfiles) { push (@ret, @{$binfiles{$arch}}); } @@ -1521,8 +1520,8 @@ reads a C<tlpobj> file. =item C<from_fh($filehandle[, $multi])> read the textual representation of a TLPOBJ from an already opened -file handle. If C<$multi> is undefined (ie not given) then multiple -tlpobj in the same file are treated as errors. If C<$multi> is defined +file handle. If C<$multi> is undef (i.e., not given) then multiple +tlpobj in the same file are treated as errors. If C<$multi> is defined, then returns after reading one tlpobj. Returns C<1> if it found a C<tlpobj>, otherwise C<0>. @@ -1654,7 +1653,11 @@ at the end with $. Otherwise it is prefix with a / and anchored at the end. =item C<all_files> -returns a list of all files of all types. +returns a list of all files of all types. However, binary files won't +be found until dependencies have been expanded via (most likely) +L<TeXLive::TLPDB::expand_dependencies>. For a more or less standalone +example, see the C<find_old_files> function in the +script C<Master/tlpkg/libexec/place>. =item C<allbinfiles> |