white space cosmetics

2 files changed, 10 insertions, 10 deletions

diff --git a/fml/lib/FML/Process/Digest.pm b/fml/lib/FML/Process/Digest.pm
index b0b8b629..35ccc853 100644
--- a/fml/lib/FML/Process/Digest.pm
+++ b/fml/lib/FML/Process/Digest.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Digest.pm,v 1.3 2002/11/17 14:07:33 fukachan Exp $
+# $FML: Digest.pm,v 1.4 2002/11/18 13:52:22 fukachan Exp $
 #
 
 package FML::Process::Digest;
@@ -223,9 +223,9 @@ sub finish
 }
 
 
-# Descriptions: 
+# Descriptions:
 #    Arguments: OBJ($curproc) HASH_REF($args)
-# Side Effects: 
+# Side Effects:
 # Return Value: none
 sub _digest
 {
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index 895c8ad9..a98a1616 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.143 2002/11/26 10:27:20 fukachan Exp $
+# $FML: Kernel.pm,v 1.144 2002/11/26 10:43:41 fukachan Exp $
 #
 
 package FML::Process::Kernel;
@@ -572,8 +572,8 @@ sub resolve_ml_specific_variables
 
     # 1. virtual domain or not ?
     # 1.1 search ml@domain syntax arg in @ARGV
-    if ($myname eq 'makefml' || 
-	$myname eq 'fmlthread' || 
+    if ($myname eq 'makefml' ||
+	$myname eq 'fmlthread' ||
 	$myname eq 'fmlsummary') {
 	my $default_domain = $curproc->default_domain();
 	($command, $ml_name, @options) = @ARGV;
@@ -1169,7 +1169,7 @@ sub reply_message
 	$msg .= "\n" unless $msg =~ /\n$/;
     }
 
-    $curproc->_append_message_into_queue($msg, $args, 
+    $curproc->_append_message_into_queue($msg, $args,
 					 $recipient, $recipient_maps,
 					 $hdr);
 
@@ -1188,7 +1188,7 @@ sub reply_message
 
 	if (_array_is_different($sent, $recipient)) {
 	    Log("cc: [ @$recipient ]");
-	    $curproc->_append_message_into_queue($msg, $args, 
+	    $curproc->_append_message_into_queue($msg, $args,
 						 $recipient, $recipient_maps,
 						 $hdr);
 	}
@@ -1562,7 +1562,7 @@ sub queue_in
 	for my $m ( @$mesg_queue ) {
 	    my $q = $m->{ message };
 	    my $t = $m->{ type };
-	    my $r = _gen_recipient_key($m->{ recipient }, 
+	    my $r = _gen_recipient_key($m->{ recipient },
 				       $m->{ recipient_maps } );
 
 	    # pick up only messages returned to specified $rcptkey
@@ -1586,7 +1586,7 @@ sub queue_in
 	for my $m ( @$mesg_queue ) {
 	    my $q = $m->{ message };
 	    my $t = $m->{ type };
-	    my $r = _gen_recipient_key($m->{ recipient }, 
+	    my $r = _gen_recipient_key($m->{ recipient },
 				       $m->{ recipient_maps } );
 
 	    next QUEUE unless $r eq $rcptkey;