summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-03-20 18:34:02 +0000
committerKarl Berry <karl@freefriends.org>2011-03-20 18:34:02 +0000
commitb6cf76ded2c5eac72ae87d5a1554e9f886698a26 (patch)
tree77dad847fdba991b4be3a9964544e807c2612561 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent83f853b5069bf9abe30cbbfa23e39c267f2ec57e (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.pm25
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>