From ed195d618fc6b7023533293ac33085e8ca13efcf Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 13 Jul 2007 18:49:56 +0000 Subject: form feeds git-svn-id: svn://tug.org/texlive/trunk@4581 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) (limited to 'Master/tlpkg/TeXLive') 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 -- cgit v1.2.3