summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-07-13 18:49:56 +0000
committerKarl Berry <karl@freefriends.org>2007-07-13 18:49:56 +0000
commited195d618fc6b7023533293ac33085e8ca13efcf (patch)
tree90a4f1fc3c155ac5293d54f8fda93f07f2dc6917 /Master/tlpkg/TeXLive
parent3ca07a6e98d24e5fb5b4f771fdf40dfaa98b8b96 (diff)
form feeds
git-svn-id: svn://tug.org/texlive/trunk@4581 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm13
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