clean up (nuke \s*$)

10 files changed, 37 insertions, 37 deletions

diff --git a/fml/lib/FML/Article/Spool.pm b/fml/lib/FML/Article/Spool.pm
index 5469cf72..ead5ffa4 100644
--- a/fml/lib/FML/Article/Spool.pm
+++ b/fml/lib/FML/Article/Spool.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2003 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Spool.pm,v 1.1 2003/03/15 09:07:03 fukachan Exp $
+# $FML: Spool.pm,v 1.1 2003/03/16 10:45:45 fukachan Exp $
 #
 
 package FML::Article::Spool;
@@ -52,7 +52,7 @@ sub new
     use FML::Article;
     my $article = new FML::Article $curproc;
 
-    my $me = { 
+    my $me = {
 	_curproc => $curproc,
 	_article => $article,
     };
diff --git a/fml/lib/FML/Command/Admin/error.pm b/fml/lib/FML/Command/Admin/error.pm
index 76e0f36b..008c8a88 100644
--- a/fml/lib/FML/Command/Admin/error.pm
+++ b/fml/lib/FML/Command/Admin/error.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: error.pm,v 1.2 2003/03/14 14:17:59 fukachan Exp $
+# $FML: error.pm,v 1.3 2003/03/18 10:42:42 fukachan Exp $
 #
 
 package FML::Command::Admin::error;
@@ -86,7 +86,7 @@ sub _fmlerror
     my $data = $obj->analyze();
     my $info = $obj->get_data_detail();
 
-    # XXX-TODO: move to FML::Error more. 
+    # XXX-TODO: move to FML::Error more.
     my ($k, $v);
     while (($k, $v) = each %$info) {
 	if (defined($v) && ref($v) eq 'ARRAY') {
diff --git a/fml/lib/FML/Command/Auth.pm b/fml/lib/FML/Command/Auth.pm
index 721696c9..492e6232 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.23 2003/03/17 13:24:33 fukachan Exp $
+# $FML: Auth.pm,v 1.24 2003/03/18 10:42:41 fukachan Exp $
 #
 
 package FML::Command::Auth;
@@ -208,7 +208,7 @@ sub check_admin_member_password
 =cut
 
 
-# Descriptions: 
+# Descriptions:
 #    Arguments: OBJ($self)
 #               OBJ($curproc) HASH_REF($command_args) HASH_REF($up_args)
 # Side Effects: admin password modified.
diff --git a/fml/lib/FML/Command/UserControl.pm b/fml/lib/FML/Command/UserControl.pm
index 49ec5f8f..10c4699f 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.30 2003/03/18 14:14:50 fukachan Exp $
+# $FML: UserControl.pm,v 1.31 2003/03/23 15:57:52 fukachan Exp $
 #
 
 package FML::Command::UserControl;
@@ -123,7 +123,7 @@ sub useradd
     }
 
     $curproc->unlock($lock_channel);
-    if ($reason) { 
+    if ($reason) {
 	croak($reason);
     }
 
@@ -213,7 +213,7 @@ sub userdel
 }
 
 
-# Descriptions: dispatch chaddr operation 
+# Descriptions: dispatch chaddr operation
 #    Arguments: OBJ($self)
 #               OBJ($curproc) HASH_REF($command_args) HASH_REF($uc_args)
 # Side Effects: none
@@ -231,7 +231,7 @@ sub user_chaddr
     $curproc->lock($lock_channel);
 
     for my $map (@$maplist) {
-	$self->_try_chaddr_in_map($curproc, $command_args, $uc_args, 
+	$self->_try_chaddr_in_map($curproc, $command_args, $uc_args,
 				   $cred, $map);
     }
 
@@ -245,7 +245,7 @@ sub user_chaddr
 # Descriptions: chaaddr
 #    Arguments: OBJ($self)
 #               OBJ($curproc) HASH_REF($command_args) HASH_REF($uc_args)
-#               OBJ($cred) STR($map) 
+#               OBJ($cred) STR($map)
 # Side Effects: update member list
 # Return Value: none
 sub _try_chaddr_in_map
@@ -255,7 +255,7 @@ sub _try_chaddr_in_map
     my $old_address = $uc_args->{ old_address };
     my $new_address = $uc_args->{ new_address };
 
-    # 
+    #
     my $is_old_address_ok  = 0;
     my $is_new_address_ok  = 0;
     my $old_address_in_map = '';
@@ -269,7 +269,7 @@ sub _try_chaddr_in_map
     }
 
     # 2. new address NOT EXISTS
-    unless ($cred->has_address_in_map($map, $config, $new_address)) { 
+    unless ($cred->has_address_in_map($map, $config, $new_address)) {
 	$is_new_address_ok = 1;
     }
     else {
@@ -282,14 +282,14 @@ sub _try_chaddr_in_map
     # XXX-TODO: we should remove old one when both old and new ones exist.
     # XXX WHICH STEP IS IT BETTER TO UPDATE LIST ?
     #  [I] 1. remove the old address only if $new_address not included.
-    #      2. add the newadderss 
-    # [II] 1. add the newadderss 
+    #      2. add the newadderss
+    # [II] 1. add the newadderss
     #      2. remove the old address only if $new_address not included.
-    # 
+    #
     # Plan [II] is better for authentication without reader lock.
     # Consider the case the process executing chaddr is preempted, and
     # another distributing process starts to run.
-    # 
+    #
     if ($is_old_address_ok && $is_new_address_ok) {
 	{
 	    my $obj = new IO::Adapter $map, $config;
@@ -318,7 +318,7 @@ sub _try_chaddr_in_map
 	    else {
 		LogError("fail to delete $old_address to map=$map");
 	    }
-	    $obj->close();	
+	    $obj->close();
 	}
     }
 }
diff --git a/fml/lib/FML/Error.pm b/fml/lib/FML/Error.pm
index ca485238..ad380910 100644
--- a/fml/lib/FML/Error.pm
+++ b/fml/lib/FML/Error.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: Error.pm,v 1.16 2003/03/16 08:02:56 fukachan Exp $
+# $FML: Error.pm,v 1.17 2003/03/16 10:47:10 fukachan Exp $
 #
 
 package FML::Error;
@@ -58,7 +58,7 @@ sub new
 
 # Descriptions: lock channel we should use to lock this object.
 #    Arguments: OBJ($self)
-# Side Effects: lock "error_analyzer_cache_dir" channel 
+# Side Effects: lock "error_analyzer_cache_dir" channel
 # Return Value: STR
 sub get_lock_channel_name
 {
diff --git a/fml/lib/FML/MTAControl/Procmail.pm b/fml/lib/FML/MTAControl/Procmail.pm
index 93477985..b3bd37b0 100644
--- a/fml/lib/FML/MTAControl/Procmail.pm
+++ b/fml/lib/FML/MTAControl/Procmail.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: Procmail.pm,v 1.9 2003/02/20 04:32:50 fukachan Exp $
+# $FML: Procmail.pm,v 1.10 2003/03/06 10:11:18 fukachan Exp $
 #
 
 package FML::MTAControl::Procmail;
@@ -235,7 +235,7 @@ sub procmail_setup
 }
 
 
-# Descriptions: dummy. 
+# Descriptions: dummy.
 #               This module do not need to handle virtual issue since
 #               ml_name@ml_domain is written in procmailrc.
 #    Arguments: OBJ($self)
@@ -248,7 +248,7 @@ sub _procmail_rewrite_virtual_params
 }
 
 
-# Descriptions: dummy. 
+# Descriptions: dummy.
 #               This module do not need to handle virtual issue since
 #               ml_name@ml_domain is written in procmailrc.
 #    Arguments: OBJ($self)
@@ -261,7 +261,7 @@ sub procmail_install_virtual_map
 }
 
 
-# Descriptions: dummy. 
+# Descriptions: dummy.
 #               This module do not need to handle virtual issue since
 #               ml_name@ml_domain is written in procmailrc.
 #    Arguments: OBJ($self)
@@ -274,7 +274,7 @@ sub procmail_remove_virtual_map
 }
 
 
-# Descriptions: dummy. 
+# Descriptions: dummy.
 #               This module do not need to handle virtual issue since
 #               ml_name@ml_domain is written in procmailrc.
 #    Arguments: OBJ($self)
diff --git a/fml/lib/FML/Process/Debug.pm b/fml/lib/FML/Process/Debug.pm
index a1504079..23d4b70b 100644
--- a/fml/lib/FML/Process/Debug.pm
+++ b/fml/lib/FML/Process/Debug.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: @template.pm,v 1.7 2003/01/01 02:06:22 fukachan Exp $
+# $FML: Debug.pm,v 1.1 2003/03/14 03:49:44 fukachan Exp $
 #
 
 package FML::Process::Debug;
@@ -47,13 +47,13 @@ sub new
 
 
 # Descriptions: dump the curproc structure.
-#    Arguments: OBJ($self) OBJ($curproc) 
+#    Arguments: OBJ($self) OBJ($curproc)
 # Side Effects: non
 # Return Value: none
 sub dump_curproc
 {
     my ($self, $curproc) = @_;
- 
+
     print "CURPROC_BEGIN\n";
     my (@c) = sort keys %$curproc;
     for my $k (@c) {
@@ -90,7 +90,7 @@ See C<http://www.fml.org/software/FNF/> on fml coding style guide.
 
 =head1 AUTHOR
 
-Ken'ichi Fukamachi 
+Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index 13bd6cfd..f2e4217b 100644
--- a/fml/lib/FML/Process/Kernel.pm
+++ b/fml/lib/FML/Process/Kernel.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: Kernel.pm,v 1.165 2003/03/17 08:58:50 fukachan Exp $
+# $FML: Kernel.pm,v 1.166 2003/03/18 10:39:40 fukachan Exp $
 #
 
 package FML::Process::Kernel;
@@ -1010,7 +1010,7 @@ sub _check_restrictions
     for my $rule (@$rules) {
 	if ($acl->can($rule)) {
 	    # match  = matched. return as soon as possible from here.
-	    #          ASAP or RETRY the next rule, depends on the rule. 
+	    #          ASAP or RETRY the next rule, depends on the rule.
 	    # result = action determined by matched rule.
 	    ($match, $result) = $acl->$rule($rule, $sender);
 	}
@@ -2122,7 +2122,7 @@ sub reset_umask
 
 
 # Descriptions: finalize curproc.
-#    Arguments: OBJ($curproc) 
+#    Arguments: OBJ($curproc)
 # Side Effects: non
 # Return Value: none
 sub finalize
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm
index 383d1202..87da9ec1 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.89 2003/03/09 03:52:13 fukachan Exp $
+# $FML: Switch.pm,v 1.90 2003/03/11 06:17:10 fukachan Exp $
 #
 
 package FML::Process::Switch;
@@ -377,13 +377,13 @@ sub _ml_name_is_required
 sub _module_we_use
 {
     my ($args)  = @_;
-    my $main_cf = $args->{ main_cf }; 
+    my $main_cf = $args->{ main_cf };
     my $name    = $args->{ myname };
     my $modules = $main_cf->{ default_module_config };
     my $pkg     = undef;
     my $pkgopts = undef;
 
-    if (defined $args->{ options }->{ ctladdr } && 
+    if (defined $args->{ options }->{ ctladdr } &&
 	$args->{ options }->{ ctladdr }) {
 	$name .= "__--ctladdr";
     }
diff --git a/fml/lib/FML/Restriction/Post.pm b/fml/lib/FML/Restriction/Post.pm
index 59fc48ed..45d243e5 100644
--- a/fml/lib/FML/Restriction/Post.pm
+++ b/fml/lib/FML/Restriction/Post.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: Post.pm,v 1.1 2003/03/06 09:34:15 fukachan Exp $
+# $FML: Post.pm,v 1.2 2003/03/09 03:52:12 fukachan Exp $
 #
 
 package FML::Restriction::Post;
@@ -105,7 +105,7 @@ sub permit_member_maps
 	# save reason for later use.
 	$pcb->set("check_restrictions", "deny_reason", $rule);
 
-	# XXX "deny ASAP if this method fails." ? NO, wrong! 
+	# XXX "deny ASAP if this method fails." ? NO, wrong!
 	# XXX permit_XXX() allows the trial match of another rules.
 	# return("matched", "deny");
     }