summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPSRC.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-05-16 18:11:21 +0000
committerKarl Berry <karl@freefriends.org>2011-05-16 18:11:21 +0000
commit7e20b5c1b0433cf03f5a823a225eb847df52bb65 (patch)
tree57153f52d96e734e83d209f7c6ce0b7554dc791b /Master/tlpkg/TeXLive/TLPSRC.pm
parent29e1354cd1a2783d1623d1e6653fdc7f11c79ca0 (diff)
reformat
git-svn-id: svn://tug.org/texlive/trunk@22497 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPSRC.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPSRC.pm22
1 files changed, 9 insertions, 13 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm
index beea50fdfde..0de0d502933 100644
--- a/Master/tlpkg/TeXLive/TLPSRC.pm
+++ b/Master/tlpkg/TeXLive/TLPSRC.pm
@@ -1,6 +1,6 @@
# $Id$
# TeXLive::TLPSRC.pm - module for using tlpsrc 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.
@@ -26,13 +26,13 @@ sub module_revision {
return $_modulerevision;
}
-sub new
-{
+sub new {
my $class = shift;
my %params = @_;
my $self = {
name => $params{'name'},
- category => defined($params{'category'}) ? $params{'category'} : $DefaultCategory,
+ category => defined($params{'category'}) ? $params{'category'}
+ : $DefaultCategory,
shortdesc => $params{'shortdesc'},
longdesc => $params{'longdesc'},
catalogue => $params{'catalogue'},
@@ -49,8 +49,7 @@ sub new
}
-sub from_file
-{
+sub from_file {
my $self = shift;
die "need exactly one filename for initialization" if @_ != 1;
my $srcfile = $_[0];
@@ -109,7 +108,7 @@ sub from_file
die "$srcfile: non-continuation indentation not allowed: `$line'";
}
# remove terminal white space
- $line =~ s/\s*$//;
+ $line =~ s/\s+$//;
# names of source packages can either be
# - normal names: ^[-\w]+$
# - win32 specific packages: ^[-\w]+\.win32$
@@ -185,8 +184,7 @@ sub from_file
}
-sub writeout
-{
+sub writeout {
my $self = shift;
my $fd = (@_ ? $_[0] : STDOUT);
format_name $fd "multilineformat";
@@ -239,8 +237,7 @@ sub writeout
# the hard work, generate the TLPOBJ data.
#
-sub make_tlpobj
-{
+sub make_tlpobj {
my ($self,$tltree,$autopattern_root) = @_;
my %allpatterns = &find_default_patterns($autopattern_root);
my $category_patterns = $allpatterns{$self->category};
@@ -462,8 +459,7 @@ sub _do_normal_pattern {
# file types (run bin doc ...) with values being refs to an array of
# patterns for that type.
#
-sub find_default_patterns
-{
+sub find_default_patterns {
my ($tlroot) = @_;
# %autopatterns is global.
return %autopatterns if keys %autopatterns; # only compute once