remove superfluous white spaces

8 files changed, 29 insertions, 29 deletions

diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm
index 4b6ae401..642cf6a7 100644
--- a/fml/lib/FML/Credential.pm
+++ b/fml/lib/FML/Credential.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: Credential.pm,v 1.34 2002/09/11 23:18:02 fukachan Exp $
+# $FML: Credential.pm,v 1.35 2002/09/22 14:56:40 fukachan Exp $
 #
 
 package FML::Credential;
@@ -67,7 +67,7 @@ sub new
     $me->{ _user_part_case_sensitive } = 1;
 
     # hold pointer to $curproc
-    $me->{ _curproc } = $curproc if defined $curproc; 
+    $me->{ _curproc } = $curproc if defined $curproc;
 
     return bless $me, $type;
 }
diff --git a/fml/lib/FML/Error/Analyze.pm b/fml/lib/FML/Error/Analyze.pm
index 18781860..129a9501 100644
--- a/fml/lib/FML/Error/Analyze.pm
+++ b/fml/lib/FML/Error/Analyze.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: Analyze.pm,v 1.5 2002/09/11 23:18:11 fukachan Exp $
+# $FML: Analyze.pm,v 1.6 2002/09/22 14:56:49 fukachan Exp $
 #
 
 package FML::Error::Analyze;
@@ -47,9 +47,9 @@ sub new
 
 # *** model specific analyzer ***
 # $data = {
-#    address => [ 
+#    address => [
 #           error_string_1,
-#           error_string_2, ... 
+#           error_string_2, ...
 #    ]
 # };
 #
diff --git a/fml/lib/FML/Process/Error.pm b/fml/lib/FML/Process/Error.pm
index 977dddb6..97617f0a 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.22 2002/09/11 23:18:15 fukachan Exp $
+# $FML: Error.pm,v 1.23 2002/09/22 14:56:52 fukachan Exp $
 #
 
 package FML::Process::Error;
@@ -265,7 +265,7 @@ sub finish
 
     if ($pcb->get("error", "found")) {
 	Log("error message found");
-	# inform ? 
+	# inform ?
     }
     else {
 	Log("error message not found");
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index c8c67e42..dde5a555 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.136 2002/09/15 00:11:43 fukachan Exp $
+# $FML: Kernel.pm,v 1.137 2002/09/22 14:56:53 fukachan Exp $
 #
 
 package FML::Process::Kernel;
@@ -248,7 +248,7 @@ sub prepare
 
 =head2 lock( [$channel] )
 
-lock the specified channel. 
+lock the specified channel.
 lock a giant lock if the channel is not specified.
 
 =head2 unlock( [$channel] )
@@ -287,7 +287,7 @@ sub lock
 }
 
 
-# Descriptions: unlock the channel 
+# Descriptions: unlock the channel
 #    Arguments: OBJ($curproc) STR($channel)
 # Side Effects: none
 # Return Value: none
@@ -372,7 +372,7 @@ sub is_event_timeout
     my ($curproc, $channel) = @_;
     my $t = $curproc->get_event_timeout($channel);
 
-    if ($t) {	
+    if ($t) {
 	return (time > $t) ? 1 : 0;
     }
     else {
@@ -429,7 +429,7 @@ sub set_event_timeout
 sub _init_event_timeout
 {
     my ($curproc, $channel) = @_;
-    
+
     my $config = $curproc->config();
     my $dir    = $config->{ event_queue_dir };
 
@@ -613,7 +613,7 @@ sub resolve_ml_specific_variables
 	    my $pattern = $regexp->{ ml_name };
 
 	  ARGS:
-	    for my $arg (@ARGV) {	    
+	    for my $arg (@ARGV) {
 		last ARGS if $ml_addr;
 		next ARGS if $arg =~ /^-/o;
 
@@ -659,7 +659,7 @@ sub resolve_ml_specific_variables
 	    Log("(debug) parse @ARGV");
 
 	  ARGS:
-	    for my $arg (@ARGV) {	    
+	    for my $arg (@ARGV) {
 		last ARGS if $ml_addr;
 		next ARGS if $arg =~ /^-/o;
 
@@ -1298,7 +1298,7 @@ sub message_nl
     my $local_file = File::Spec->catfile($local_dir, $charset, $class);
     my $file       = File::Spec->catfile($dir,       $charset, $class);
 
-    # override message: replace default one with ml local message template 
+    # override message: replace default one with ml local message template
     if (-f $local_file) { $file = $local_file;}
 
     # import message template
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index 444773bf..66422415 100644
--- a/fml/lib/FML/Process/Utils.pm
+++ b/fml/lib/FML/Process/Utils.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: Utils.pm,v 1.43 2002/09/15 00:11:12 fukachan Exp $
+# $FML: Utils.pm,v 1.44 2002/09/22 14:56:54 fukachan Exp $
 #
 
 package FML::Process::Utils;
@@ -254,7 +254,7 @@ sub _mkpath_num
     if ($mode =~ /^\d+$/) { # NUM 0700
 	eval q{ use File::Path;};
 	mkpath([ $dir ], 0, $mode);
-	chmod $mode, $dir; 
+	chmod $mode, $dir;
 	Log(sprintf("mkdir %s mode=0%o", $dir, $mode));
     }
     else {
@@ -271,7 +271,7 @@ sub _mkpath_str
 	eval qq{
 	    use File::Path;
 	    mkpath([ \$dir ], 0, $mode);
-	    chmod $mode, \$dir; 
+	    chmod $mode, \$dir;
 	    Log(\"mkdirhier $dir mode=$mode\");
 	};
 	LogError($@) if $@;
diff --git a/fml/lib/IO/Adapter.pm b/fml/lib/IO/Adapter.pm
index 7a9ef595..f77afe58 100644
--- a/fml/lib/IO/Adapter.pm
+++ b/fml/lib/IO/Adapter.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: Adapter.pm,v 1.22 2002/09/11 23:18:19 fukachan Exp $
+# $FML: Adapter.pm,v 1.23 2002/09/22 14:56:58 fukachan Exp $
 #
 
 package IO::Adapter;
@@ -329,9 +329,9 @@ in C<array_reference>, C<unix.group>, C<nis.grouop> maps.
 
 add $address to the specified map.
 
-Optionally, you can add KEY=>VALUE structures such as 
+Optionally, you can add KEY=>VALUE structures such as
   $address => STR
-or 
+or
   $address => [ STR1, STR2, ... ].
 
 
diff --git a/fml/lib/IO/Adapter/File.pm b/fml/lib/IO/Adapter/File.pm
index bca93b45..992c1fe5 100644
--- a/fml/lib/IO/Adapter/File.pm
+++ b/fml/lib/IO/Adapter/File.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: File.pm,v 1.41 2002/09/11 23:18:20 fukachan Exp $
+# $FML: File.pm,v 1.42 2002/09/22 14:56:59 fukachan Exp $
 #
 
 package IO::Adapter::File;
@@ -323,7 +323,7 @@ sub _get_value
 
 	$fh->close();
 
-	if ($style eq 'value_as_str') { 
+	if ($style eq 'value_as_str') {
 	    return $buf
 	}
 
diff --git a/fml/lib/Mail/Message/Encode.pm b/fml/lib/Mail/Message/Encode.pm
index 06a090dc..5fb0fc09 100644
--- a/fml/lib/Mail/Message/Encode.pm
+++ b/fml/lib/Mail/Message/Encode.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: Encode.pm,v 1.6 2002/09/11 23:18:25 fukachan Exp $
+# $FML: Encode.pm,v 1.7 2002/09/22 14:57:04 fukachan Exp $
 #
 
 package Mail::Message::Encode;
@@ -130,7 +130,7 @@ sub convert_str_ref
 	# 2. try conversion ! (converted to 'euc' by default).
 	if ($in_code) {
 	    return $self->_jp_str_ref($str_ref, $out_code, $in_code);
-	}	
+	}
     }
     else {
 	croak("Mail::Message::Encode: unknown language");
@@ -157,13 +157,13 @@ sub _jp_str_ref
 	&Jcode::convert( $str_ref, $code, $in_code);
 
 	return 1;
-    }	
+    }
     elsif ($out_code =~ /^(iso2022jp|iso-2022-jp)$/i) {
 	use Jcode;
 	&Jcode::convert( $str_ref, 'jis', $in_code);
 
 	return 1;
-    }	
+    }
 
     return 0;
 }
@@ -171,7 +171,7 @@ sub _jp_str_ref
 
 # Descriptions: run $proc($s) after $s is converted to $out_code code
 #    Arguments: OBJ($self) CODE_REF($proc) STR($s) HASH_REF($args)
-#               STR($out_code) STR($in_code) 
+#               STR($out_code) STR($in_code)
 # Side Effects: none
 # Return Value: none
 sub run_in_code
@@ -401,7 +401,7 @@ sub decode_mime_string
 
 
 if ($0 eq __FILE__) {
-    $| = 1; 
+    $| = 1;
 
     my $obj = new Mail::Message::Encode;
     my $str = "ほえ といえばカードキャプターさくら KERO   ＫＥＲＯちゃん";