whitespace niche

8 files changed, 23 insertions, 23 deletions

diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm
index b344a8a4..711aeba5 100644
--- a/fml/lib/FML/Command/Admin/newml.pm
+++ b/fml/lib/FML/Command/Admin/newml.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: newml.pm,v 1.22 2002/04/01 03:41:59 fukachan Exp $
+# $FML: newml.pm,v 1.23 2002/04/10 09:51:25 fukachan Exp $
 #
 
 package FML::Command::Admin::newml;
@@ -132,7 +132,7 @@ sub process
 
 
 # Descriptions: install config.cf, include, include-ctl et. al.
-#    Arguments: OBJ($self) 
+#    Arguments: OBJ($self)
 #               OBJ($curproc)
 #               HASH_REF($command_args)
 #               HASH_REF($params)
@@ -158,7 +158,7 @@ sub _install_template_files
 
 
 # Descriptions: update aliases entry
-#    Arguments: OBJ($self) 
+#    Arguments: OBJ($self)
 #               OBJ($curproc)
 #               HASH_REF($command_args)
 #               HASH_REF($params)
@@ -184,7 +184,7 @@ sub _update_aliases
 
 
 # Descriptions: set up ~fml/public_html/ for this mailing list
-#    Arguments: OBJ($self) 
+#    Arguments: OBJ($self)
 #               OBJ($curproc)
 #               HASH_REF($command_args)
 #               HASH_REF($params)
@@ -208,7 +208,7 @@ sub _setup_mail_archive_dir
 
 # Descriptions: set up CGI interface for this mailing list but
 #               disable it by default.
-#    Arguments: OBJ($self) 
+#    Arguments: OBJ($self)
 #               OBJ($curproc)
 #               HASH_REF($command_args)
 #               HASH_REF($params)
@@ -354,7 +354,7 @@ sub _install
 
 
 # Descriptions: set up information for this mailing list.
-#    Arguments: OBJ($self) 
+#    Arguments: OBJ($self)
 #               OBJ($curproc)
 #               HASH_REF($command_args)
 #               HASH_REF($params)
diff --git a/fml/lib/FML/Command/Auth.pm b/fml/lib/FML/Command/Auth.pm
index 601b0158..cf3b0346 100644
--- a/fml/lib/FML/Command/Auth.pm
+++ b/fml/lib/FML/Command/Auth.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Auth.pm,v 1.3 2002/03/30 11:08:34 fukachan Exp $
+# $FML: Auth.pm,v 1.4 2002/04/07 12:13:02 fukachan Exp $
 #
 
 package FML::Command::Auth;
@@ -95,7 +95,7 @@ sub check_password
 	my $mapobj = new IO::Adapter $map;
 	my $addrs  = $mapobj->find( $user , { want => 'key,value', all => 1 });
 
-	# if this $map has this $user entry, 
+	# if this $map has this $user entry,
 	# try to check { user => password } relation.
 	if (defined $addrs) {
 	  PASSWORD_ENTRY:
diff --git a/fml/lib/FML/Command/UserControl.pm b/fml/lib/FML/Command/UserControl.pm
index acef9ef1..c3efe99e 100644
--- a/fml/lib/FML/Command/UserControl.pm
+++ b/fml/lib/FML/Command/UserControl.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: UserControl.pm,v 1.3 2002/04/01 12:41:40 fukachan Exp $
+# $FML: UserControl.pm,v 1.4 2002/04/07 12:13:03 fukachan Exp $
 #
 
 package FML::Command::UserControl;
@@ -58,7 +58,7 @@ sub useradd
 	my $cred = new FML::Credential;
 	unless ($cred->has_address_in_map($map, $address)) {
 	    my $obj = new IO::Adapter $map;
-	    $obj->touch(); # create a new map entry (e.g. file) if needed. 
+	    $obj->touch(); # create a new map entry (e.g. file) if needed.
 	    $obj->add( $address );
 	    unless ($obj->error()) {
 		Log("add $address to map=$map");
diff --git a/fml/lib/FML/Filter/HeaderCheck.pm b/fml/lib/FML/Filter/HeaderCheck.pm
index acf270d0..26863211 100644
--- a/fml/lib/FML/Filter/HeaderCheck.pm
+++ b/fml/lib/FML/Filter/HeaderCheck.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: HeaderCheck.pm,v 1.13 2002/04/08 12:44:25 fukachan Exp $
+# $FML: HeaderCheck.pm,v 1.14 2002/04/10 03:20:53 fukachan Exp $
 #
 
 package FML::Filter::HeaderCheck;
@@ -104,7 +104,7 @@ sub header_check
     my $hdr   = $msg->whole_message_header();
     my $rules = $self->{ _rules };
 
-    # apply $rule check for the header object $hdr 
+    # apply $rule check for the header object $hdr
     for my $rule (@$rules) {
 	eval q{
 	    $self->$rule($hdr, $args);
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm
index fceef975..efc876f9 100644
--- a/fml/lib/FML/Process/Switch.pm
+++ b/fml/lib/FML/Process/Switch.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Switch.pm,v 1.61 2002/04/07 12:25:25 fukachan Exp $
+# $FML: Switch.pm,v 1.62 2002/04/08 12:44:26 fukachan Exp $
 #
 
 package FML::Process::Switch;
@@ -220,7 +220,7 @@ sub _usual_parse_argv
 {
     my ($myname, $main_cf) = @_;
     use FML::Process::Utils;
-    my $ml_home_prefix = 
+    my $ml_home_prefix =
       FML::Process::Utils::__ml_home_prefix_from_main_cf($main_cf);
     my $ml_home_dir    = '';
     my $found_cf       = 0;
diff --git a/fml/lib/FML/Process/ThreadTrack.pm b/fml/lib/FML/Process/ThreadTrack.pm
index cdeda9aa..0295803a 100644
--- a/fml/lib/FML/Process/ThreadTrack.pm
+++ b/fml/lib/FML/Process/ThreadTrack.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2001,2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: ThreadTrack.pm,v 1.25 2002/03/17 06:24:31 fukachan Exp $
+# $FML: ThreadTrack.pm,v 1.26 2002/04/10 09:00:08 fukachan Exp $
 #
 
 package FML::Process::ThreadTrack;
@@ -198,7 +198,7 @@ sub run
 }
 
 
-# Descriptions: 
+# Descriptions:
 #    Arguments: OBJ($curproc) OBJ($thread)
 # Side Effects: none
 # Return Value: none
@@ -216,8 +216,8 @@ sub _speculate_last_id
 	    use File::stat;
 	    my $st = stat($seq_file);
 	    $sf_last_modified =
-		$sf_last_modified > $st->mtime ? 
-		    $sf_last_modified : 
+		$sf_last_modified > $st->mtime ?
+		    $sf_last_modified :
 			$st->mtime;
 	};
     }
diff --git a/fml/lib/Mail/Delivery/Queue.pm b/fml/lib/Mail/Delivery/Queue.pm
index 81435894..4aabba38 100644
--- a/fml/lib/Mail/Delivery/Queue.pm
+++ b/fml/lib/Mail/Delivery/Queue.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Queue.pm,v 1.13 2002/04/07 12:25:26 fukachan Exp $
+# $FML: Queue.pm,v 1.14 2002/04/08 12:44:28 fukachan Exp $
 #
 
 package Mail::Delivery::Queue;
@@ -92,9 +92,9 @@ sub new
     $me->{ _active_qf } = File::Spec->catfile($dir, "active", $id);
 
     # infomation for delivery
-    $me->{ _info }->{ sender }     = 
+    $me->{ _info }->{ sender }     =
       File::Spec->catfile($dir, "info", "sender", $id);
-    $me->{ _info }->{ recipients } = 
+    $me->{ _info }->{ recipients } =
       File::Spec->catfile($dir, "info", "recipients", $id);
 
     for ($dir,
diff --git a/fml/lib/Mail/Message/Language/Japanese/Subject.pm b/fml/lib/Mail/Message/Language/Japanese/Subject.pm
index eba4f07d..e43815eb 100644
--- a/fml/lib/Mail/Message/Language/Japanese/Subject.pm
+++ b/fml/lib/Mail/Message/Language/Japanese/Subject.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Subject.pm,v 1.5 2001/12/24 12:52:47 fukachan Exp $
+# $FML: Subject.pm,v 1.6 2002/04/07 12:25:27 fukachan Exp $
 #
 
 
@@ -146,7 +146,7 @@ redistribute it and/or modify it under the same terms as Perl itself.
 
 =head1 HISTORY
 
-Mail::Message::Language::Japanese::Subject 
+Mail::Message::Language::Japanese::Subject
 appeared in fml5 mailing list driver package.
 See C<http://www.fml.org/> for more details.