nuke white spaces \s*$

5 files changed, 17 insertions, 17 deletions

diff --git a/fml/lib/FML/Process/Command.pm b/fml/lib/FML/Process/Command.pm
index 98e354ea..239e189a 100644
--- a/fml/lib/FML/Process/Command.pm
+++ b/fml/lib/FML/Process/Command.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Command.pm,v 1.59 2002/05/27 08:59:14 fukachan Exp $
+# $FML: Command.pm,v 1.60 2002/06/01 05:02:33 fukachan Exp $
 #
 
 package FML::Process::Command;
@@ -264,7 +264,7 @@ sub _is_valid_command
 
 
 # Descriptions: validate command syntax
-#    Arguments: OBJ($curproc) 
+#    Arguments: OBJ($curproc)
 #               HASH_REF($args) HASH_REF($status) HASH_REF($cominfo)
 # Side Effects: none
 # Return Value: NUM(1 or 0)
@@ -310,7 +310,7 @@ sub _parse_command_args
     use FML::Command::DataCheck;
     my $check   = new FML::Command::DataCheck;
     my $options = $check->parse_command_arguments($fixed_command, $comname);
-    
+
     my $cominfo = {
 	command    => $fixed_command,
 	comname    => $comname,
@@ -478,7 +478,7 @@ sub _get_command_mode
     # ignore all requests
     elsif ($is_confirm) {
 	Log("ignore(confirm stage): $command");
-	return '__NEXT__';	
+	return '__NEXT__';
     }
     # Case: use command (commands "a usual member" can use)
     else {
@@ -542,7 +542,7 @@ sub _gen_command_args
 {
     my ($curproc, $status, $cominfo) = @_;
     my $xargs = $cominfo;
-    my $mode  = $status->{ mode };    
+    my $mode  = $status->{ mode };
     $xargs->{ command_mode }  = $status->{ mode };
     $xargs->{ command_level } = $status->{ level };
 
@@ -579,7 +579,7 @@ sub __stop_here
     my $prompt  = $config->{ command_prompt } || '>>>';
     my $key     = $status->{ _stop_reason_key };
     my $str     = $status->{ _stop_reason_str };
-    
+
     use FML::Command;
     my $obj = new FML::Command;
     if (defined $obj) {
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm
index 3276c7d4..cb0518fd 100644
--- a/fml/lib/FML/Process/Distribute.pm
+++ b/fml/lib/FML/Process/Distribute.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Distribute.pm,v 1.77 2002/05/27 08:51:13 fukachan Exp $
+# $FML: Distribute.pm,v 1.78 2002/05/27 11:20:01 fukachan Exp $
 #
 
 package FML::Process::Distribute;
@@ -389,7 +389,7 @@ sub _deliver_article
     # distribute article
     my $fp  = sub { Log(@_);}; # pointer to the log function
     my $sfp = sub { my ($s) = @_; print $s; print "\n" if $s !~ /\n$/o;};
-    my $handle = undef;	
+    my $handle = undef;
 
     my $wh = $curproc->open_outgoing_message_channel();
     if (defined $wh) {
diff --git a/fml/lib/FML/Process/Error.pm b/fml/lib/FML/Process/Error.pm
index c091c3ce..f839d529 100644
--- a/fml/lib/FML/Process/Error.pm
+++ b/fml/lib/FML/Process/Error.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Error.pm,v 1.5 2002/05/21 08:37:52 fukachan Exp $
+# $FML: Error.pm,v 1.6 2002/06/01 05:02:33 fukachan Exp $
 #
 
 package FML::Process::Error;
@@ -31,7 +31,7 @@ See L<FML::Process::Flow> for details of fml process flow.
 =head1 DESCRIPTION
 
 C<FML::Process::Error> is a command wrapper and top level
-dispatcher for commands. 
+dispatcher for commands.
 
 =head1 METHODS
 
@@ -79,7 +79,7 @@ sub prepare
     }
     else {
 	exit(0);
-    }	
+    }
 
     $eval = $config->get_hook( 'error_prepare_end_hook' );
     if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; }
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index 94982744..d70a8775 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.103 2002/06/01 03:01:54 fukachan Exp $
+# $FML: Kernel.pm,v 1.104 2002/06/01 04:59:09 fukachan Exp $
 #
 
 package FML::Process::Kernel;
@@ -464,7 +464,7 @@ sub parse_incoming_message
 
     # save input message for further investigation
     my $config  = $curproc->{ config };
-    if ($config->yes('use_incoming_mail_cache')) { 
+    if ($config->yes('use_incoming_mail_cache')) {
 	my $dir     = $config->{ incoming_mail_dir };
 	my $modulus = $config->{ incoming_mail_cache_size };
         my $obj     = new File::CacheDir {
@@ -1084,7 +1084,7 @@ sub queue_in
 }
 
 
-# Descriptions: append message in $msg_in into $msg_out 
+# Descriptions: append message in $msg_in into $msg_out
 #    Arguments: OBJ($curproc) OBJ($msg_in) OBJ($msg_out)
 # Side Effects: create a new $tmpfile
 #               update garbage collection queue (clean_up_queue)
@@ -1300,7 +1300,7 @@ sub open_outgoing_message_channel
     my $config = $curproc->{ config };
 
     # save message for further investigation
-    if ($config->yes('use_outgoing_mail_cache')) { 
+    if ($config->yes('use_outgoing_mail_cache')) {
 	my $dir     = $config->{ outgoing_mail_dir };
 	my $modulus = $config->{ outgoing_mail_cache_size };
         my $obj     = new File::CacheDir {
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm
index edda2e7f..bfd0508d 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.68 2002/05/19 09:44:00 fukachan Exp $
+# $FML: Switch.pm,v 1.69 2002/05/29 16:34:26 fukachan Exp $
 #
 
 package FML::Process::Switch;
@@ -208,7 +208,7 @@ sub __log
     eval q{
 	use File::Spec;
 	use FileHandle;
-	my $dir  = $args->{ ml_home_prefix }; 
+	my $dir  = $args->{ ml_home_prefix };
 	my $logf = File::Spec->catfile($dir, '@log.crit@');
 	my $wh   = new FileHandle ">> $logf";
 	if (defined $wh) {