reformat

git-svn-id: svn://tug.org/texlive/trunk@22497 c570f23f-e606-0410-a88d-b1316a301751

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