Cleanup the whitespace

1 files changed, 123 insertions, 123 deletions

diff --git a/tpnotify b/tpnotify
index 698c182..732e732 100755
--- a/tpnotify
+++ b/tpnotify
@@ -79,7 +79,7 @@ our $archive_file;    # Archive file name
 our $topdir;          # Toplevel directory from the archive
 our $package_name;    # Package name;
 our $package_tarname; # Package archive name
-our $package_version; # Package version number  
+our $package_version; # Package version number
 our $package_base;    # Package base name
 our $release_type;    # Package type (alpha or stable)
 
@@ -237,7 +237,7 @@ EOT
     $package_tarname = $package_name;
     $package_tarname =~ s/GNU\s+//;
     $package_tarname = lc $package_tarname; # FIXME: this is not always right,
-                                            # perhaps
+                                            # perhaps
     info("package $package_name, tarname $package_tarname, version $package_version") if $verbose;
     $package_base = "$package_tarname-$package_version";
 
@@ -277,7 +277,7 @@ sub po_header {
     foreach my $s (split /\\n/, $h) {
         if ($s =~ /^(.+?):\s*(.*)$/) {
             $ret{lc $1}=$2;
-        }
+        }
     }
     \%ret;
 }
@@ -344,17 +344,17 @@ sub read_signature {
 # Returns the expanded text.  Abends on failure.
 sub expand_template {
     my $cpt = new Safe;
-    
+
     $cpt->share(qw($sender
-                   $fullname
-                   $localdomain
-                   $recipient
-                   $archive_file
-                   $archive_url
-                   $package_name
-                   $package_version
-                   $package_base
-                   $release_type
+                   $fullname
+                   $localdomain
+                   $recipient
+                   $archive_file
+                   $archive_url
+                   $package_name
+                   $package_version
+                   $package_base
+                   $release_type
                    $topdir
                    $signature));
     chomp(${$cpt->varglob('signature')} = read_signature);
@@ -380,7 +380,7 @@ sub read_mh_path {
                 } else {
                     last if defined($prev) && $prev =~ /^Path:/;
                     $prev = $_;
-                }
+                }
             }
             close $fd;
             return $prev if $prev =~ s/^Path:\s+//;
@@ -398,7 +398,7 @@ sub notify {
         $msg->head()->add($hdr);
     }
     $msg->head()->add("X-Mailer: $progname $VERSION");
-    
+
     if ($verbose) {
         info("message to send");
         $msg->print();
@@ -449,7 +449,7 @@ sub mail_box_manager_refile {
         $args{type} = 'maildir';
         $args{folder} = $folder;
     } else {
-        abend(EX_DATAERR, "unrecognized Fcc folder: $folder");
+        abend(EX_DATAERR, "unrecognized Fcc folder: $folder");
     }
 
     my $mgr = Mail::Box::Manager->new();
@@ -501,10 +501,10 @@ sub movemail_refile {
 my %refile_tab = (
     'movemail' => { supported => \&movemail_supported,
                     refile => \&movemail_refile,
-                    priority => 10 },
+                    priority => 10 },
     'perl' =>     { supported => \&mail_box_manager_supported,
                     refile => \&mail_box_manager_refile,
-                    priority => 0 }
+                    priority => 0 }
 );
 
 sub refile {
@@ -525,7 +525,7 @@ sub refile {
     info("using $refile_method for refiling");
     &{$refile_tab{$refile_method}{refile}}(@_);
 }
-        
+
 
 END {
     chdir("/");
@@ -559,9 +559,9 @@ sub set_mailer {
     } else {
         err("unknown mailer spec", prefix => $locus);
         return 0;
-    } 
+    }
     return 1;
-}    
+}
 
 sub read_template_file {
     my ($file, $locus) = @_;
@@ -575,7 +575,7 @@ sub read_template_file {
         return 0;
     }
 }
-    
+
 my %kw = (
     keep => \$keep,
     'template-file' => \&read_template_file,
@@ -618,11 +618,11 @@ sub read_config {
             s/\s+$//;
             s/#.*//;
             next if ($_ eq "");
-        
+
             if (/^(.*?)\s*=\s*(.*)/) {
                 $key = $1;
                 $val = $2;
-                
+
                 if ($val =~ /<<(\w+)\s*$/) {
                     $heredoc = $1;
                     $heredoc_line = $line;
@@ -770,39 +770,39 @@ B<tpnotify>
 [B<-m> I<SPEC>]
 [B<-s> I<FILE>]
 [B<-t> I<FILE>]
-[B<--add=>I<HDR>:I<VAL>]    
+[B<--add=>I<HDR>:I<VAL>]
 [B<--alpha>]
 [B<--config=>I<FILE>]
 [B<--debug>]
 [B<--domain=>I<DOMAIN>]
 [B<--dry-run>]
-[B<--force>]    
+[B<--force>]
 [B<--from=>I<EMAIL>]
 [B<--fullname=>I<NAME>]
 [B<--keep>]
 [B<--mailer=>I<SPEC>]
 [B<--no-config>]
 [B<--no-signature>]
-[B<--refile-method=>B<perl> | B<mailutils>]    
+[B<--refile-method=>B<perl> | B<mailutils>]
 [B<--signature=>I<FILE>]
 [B<--stable>]
 [B<--template=>I<FILE>]
 [B<--to=>I<EMAIL>]
 [B<--verbose>]
 I<URL>
-    
+
 B<tpnotify>
 [B<-h>]
 [B<--help>]
-[B<--usage>]    
+[B<--usage>]
 
 =head1 DESCRIPTION
 
 Notifies the coordinator of the I<Translation Project> about new
 POT file available at I<URL>.  The URL must point to a tarball of
-a package registered at TP (I<http://translationproject.org/domain/>).    
+a package registered at TP (I<http://translationproject.org/domain/>).
 The tool works as follows:
-    
+
 First of all, the indicated I<URL> is downloaded to a temporary location
 on disk.  The contents of the retrieved tarball is inspected.  It must
 contain the file F<configure.ac> in the project toplevel directory and
@@ -829,8 +829,8 @@ to be a mailbox in traditional B<UNIX> format (relative pathnames are
 expanded relative to the user home directory).  Otherwise, it is a B<folder
 url>:
 
-=over 8    
-    
+=over 8
+
 =item B<mbox:>[B<//>]I<PATHNAME>
 
 UNIX mailbox located at I<PATHNAME> (relative or absolute).
@@ -854,12 +854,12 @@ which uses GNU mailutils.  By default, B<tpnotify> attempts to use B<perl>,
 and falls back to B<mailutils> if that's not possible.  If the latter is not
 available as well, it issues an error message and terminates.  The user can
 select the refiling method using the B<--refile-method> option.  See the