cosmetics: white space

8 files changed, 21 insertions, 21 deletions

diff --git a/fml/lib/FML/Cache/Journal.pm b/fml/lib/FML/Cache/Journal.pm
index 70e44b72..f4eab9d6 100644
--- a/fml/lib/FML/Cache/Journal.pm
+++ b/fml/lib/FML/Cache/Journal.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: Journal.pm,v 1.1 2003/11/22 05:41:51 fukachan Exp $
 #
 
 package FML::Cache::Journal;
@@ -26,7 +26,7 @@ FML::Cache::Journal - inteface into Tie::JournaledDir
 
 =head2 open_db()
 
-=head2 close_db() 
+=head2 close_db()
 
 =cut
 
diff --git a/fml/lib/FML/Filter/TextPlain.pm b/fml/lib/FML/Filter/TextPlain.pm
index ead5fe23..11cb0167 100644
--- a/fml/lib/FML/Filter/TextPlain.pm
+++ b/fml/lib/FML/Filter/TextPlain.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: TextPlain.pm,v 1.4 2003/08/23 15:33:15 fukachan Exp $
+# $FML: TextPlain.pm,v 1.5 2003/10/18 06:53:57 fukachan Exp $
 #
 
 package FML::Filter::TextPlain;
@@ -456,7 +456,7 @@ sub is_signature
 	return 1;
     }
 
-    # XXX Japanese specific condition	
+    # XXX Japanese specific condition
     use Mail::Message::Encode;
     my $obj = new Mail::Message::Encode;
     $data   = $obj->convert( $data, 'euc-jp' );
diff --git a/fml/lib/FML/IPC/Message.pm b/fml/lib/FML/IPC/Message.pm
index 72351f7f..8cf5dd10 100644
--- a/fml/lib/FML/IPC/Message.pm
+++ b/fml/lib/FML/IPC/Message.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: Message.pm,v 1.1 2003/08/30 00:14:44 fukachan Exp $
+# $FML: Message.pm,v 1.1 2003/11/22 06:12:05 fukachan Exp $
 #
 
 package FML::IPC::Message;
@@ -34,7 +34,7 @@ operations.
 
 # Descriptions: constructor.
 #    Arguments: OBJ($self) HASH_REF($args)
-# Side Effects: create an object 
+# Side Effects: create an object
 # Return Value: OBJ
 sub new
 {
diff --git a/fml/lib/FML/Process/CGI/Kernel.pm b/fml/lib/FML/Process/CGI/Kernel.pm
index a8c5bb3f..0fd6bd5a 100644
--- a/fml/lib/FML/Process/CGI/Kernel.pm
+++ b/fml/lib/FML/Process/CGI/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.65 2003/10/18 04:43:51 fukachan Exp $
+# $FML: Kernel.pm,v 1.66 2003/11/02 05:12:37 fukachan Exp $
 #
 
 package FML::Process::CGI::Kernel;
@@ -100,7 +100,7 @@ sub prepare
 	$curproc->_cgi_fix_log_file();
     }
 
-    # fix charset 
+    # fix charset
     $curproc->_set_charset();
 
     my $charset = $curproc->get_charset("cgi"); # updated charset.
@@ -117,7 +117,7 @@ sub prepare
 sub _set_charset
 {
     my ($curproc) = @_;
-    my $lang = 
+    my $lang =
 	$curproc->cgi_var_language() || $curproc->_http_accept_language();
 
     use Mail::Message::Charset;
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index 31d01590..4008549d 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.195 2003/11/29 11:08:04 fukachan Exp $
+# $FML: Kernel.pm,v 1.196 2003/11/29 14:32:03 fukachan Exp $
 #
 
 package FML::Process::Kernel;
@@ -107,7 +107,7 @@ sub new
 			    ml_home_prefix_maps
 			    default_config_cf
 			    site_default_config_cf
-			
+
 			)) {
 	if (defined $args->{ main_cf }->{ $main_cf_var }) {
 	    my $key = sprintf("fml_%s", $main_cf_var);
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index c956b574..98b70607 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.93 2003/11/16 11:53:19 fukachan Exp $
+# $FML: Utils.pm,v 1.94 2003/11/23 03:54:46 fukachan Exp $
 #
 
 package FML::Process::Utils;
@@ -383,7 +383,7 @@ sub mkfile
 	my $obj = new IO::Adapter $file;
 	$obj->touch();
 
-	# verify 
+	# verify
 	unless (-f $file) {
 	    $curproc->logerror("fail to create file: $file");
 	}
@@ -1070,7 +1070,7 @@ sub is_config_cf_exist
 
 =head2 get_ml_home_prefix_maps()
 
-return ml_home_prefix maps. 
+return ml_home_prefix maps.
 By default, ml_home_prefix and virtual under $fml_config_dir.
 
 =cut
@@ -1096,7 +1096,7 @@ sub __get_ml_home_prefix_maps
 {
     my ($main_cf) = @_;
 
-    if (defined $main_cf->{ ml_home_prefix_maps } && 
+    if (defined $main_cf->{ ml_home_prefix_maps } &&
 	$main_cf->{ ml_home_prefix_maps }) {
 	my (@r) = ();
 	my (@maps) = split(/\s+/, $main_cf->{ ml_home_prefix_maps });
@@ -1446,7 +1446,7 @@ sub get_charset
 		    last ACCEPT_LANGUAGE;
 		}
 		elsif ($a eq '*') { # any charset is o.k.
-		    last ACCEPT_LANGUAGE;		
+		    last ACCEPT_LANGUAGE;
 		}
 	    }
 	}
diff --git a/fml/lib/FML/User/Control.pm b/fml/lib/FML/User/Control.pm
index 1145f674..d4977859 100644
--- a/fml/lib/FML/User/Control.pm
+++ b/fml/lib/FML/User/Control.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: Control.pm,v 1.5 2003/11/26 11:02:05 fukachan Exp $
+# $FML: Control.pm,v 1.6 2003/11/27 04:25:07 fukachan Exp $
 #
 
 package FML::User::Control;
@@ -146,7 +146,7 @@ sub useradd
 	    my $info = new FML::User::Info $curproc;
 	    $info->import_from_mail_header($curproc, $info_args);
 	};
-	$curproc->logerror($@) if $@;	
+	$curproc->logerror($@) if $@;
     }
 }
 
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm
index ebac8a52..c6e145bb 100644
--- a/fml/lib/Mail/Message/ToHTML.pm
+++ b/fml/lib/Mail/Message/ToHTML.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: ToHTML.pm,v 1.58 2003/11/07 15:15:26 tmu Exp $
+# $FML: ToHTML.pm,v 1.59 2003/11/23 14:15:45 fukachan Exp $
 #
 
 package Mail::Message::ToHTML;
@@ -17,7 +17,7 @@ my $debug = 0;
 my $URL   =
     "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>";
 
-my $version = q$FML: ToHTML.pm,v 1.58 2003/11/07 15:15:26 tmu Exp $;
+my $version = q$FML: ToHTML.pm,v 1.59 2003/11/23 14:15:45 fukachan Exp $;
 my $versionid = 0;
 if ($version =~ /,v\s+([\d\.]+)\s+/) {
     $versionid = "$1";
@@ -809,7 +809,7 @@ sub _text_plain_part_safe_print
     for ($i = 1; $i <= $n ; $i++) {
 	my $buf = $m->nth_paragraph($i);
 
-	# try to hide domain since the last paragraph must be signature. 
+	# try to hide domain since the last paragraph must be signature.
 	if ($self->{ _use_address_mask } eq 'yes') {
 	    if ($i == $n) {
 		$buf =~ s/(\w+\@[\w\.]+)/$self->_address_to_gecos($1)/ge;