diff options
author | Karl Berry <karl@freefriends.org> | 2007-07-13 18:49:56 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2007-07-13 18:49:56 +0000 |
commit | ed195d618fc6b7023533293ac33085e8ca13efcf (patch) | |
tree | 90a4f1fc3c155ac5293d54f8fda93f07f2dc6917 /Master | |
parent | 3ca07a6e98d24e5fb5b4f771fdf40dfaa98b8b96 (diff) |
form feeds
git-svn-id: svn://tug.org/texlive/trunk@4581 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 3d365f15bd6..2e88e1c9825 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -1,7 +1,6 @@ # $Id$ # TeXLive::TLPOBJ.pm - module for using tlpobj files # Copyright 2007 Norbert Preining -# # This file is licensed under the GNU General Public License version 2 # or any later version. @@ -47,6 +46,7 @@ sub new { return $self; } + sub from_file { my $self = shift; if (@_ != 1) { @@ -478,6 +478,7 @@ sub total_size { return($ret); } + sub update_from_catalogue { my ($self, $tlc) = @_; my $tlcname = defined($self->catalogue) ? $self->catalogue : $self->name; @@ -529,7 +530,7 @@ sub update_from_catalogue { } } -# + # member access functions # sub name { @@ -649,7 +650,7 @@ sub add_files { } sub remove_files { my ($self,$type,@files) = @_; - die("Cannot use add_files for binfiles, we need that arch!") if ($type eq "bin"); + die("Cannot use remove_files for binfiles, we need that arch!") if ($type eq "bin"); my @finalfiles; foreach my $f (@{$self->{"${type}files"}}) { if (not(&TeXLive::TLUtils::member($f,@files))) { @@ -683,17 +684,13 @@ sub cataloguedata { 1; - - ###### Formats format multilineformat = longdesc ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~ $_tmp . - - __END__ - + =head1 NAME TeXLive::TLPOBJ - TeX Live Package Object access module |