white spaces

20 files changed, 67 insertions, 67 deletions

diff --git a/fml/lib/FML/CGI/Admin/User.pm b/fml/lib/FML/CGI/Admin/User.pm
index 297a9a8f..2572dfdb 100644
--- a/fml/lib/FML/CGI/Admin/User.pm
+++ b/fml/lib/FML/CGI/Admin/User.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: User.pm,v 1.10 2002/07/02 03:55:21 fukachan Exp $
+# $FML: User.pm,v 1.11 2002/07/13 13:09:02 fukachan Exp $
 #
 
 package FML::CGI::Admin::User;
@@ -49,7 +49,7 @@ sub cgi_menu
     my $address_list = [];
 
     # which address list to show at the scrolling list
-    if ($comname eq 'subscribe'   || 
+    if ($comname eq 'subscribe'   ||
 	$comname eq 'adduser'     ||
 	$comname eq 'useradd'     ||
 	$comname eq 'unsubscribe' ||
diff --git a/fml/lib/FML/Command.pm b/fml/lib/FML/Command.pm
index 1432203c..937e73ac 100644
--- a/fml/lib/FML/Command.pm
+++ b/fml/lib/FML/Command.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: Command.pm,v 1.29 2002/07/14 22:46:59 fukachan Exp $
+# $FML: Command.pm,v 1.30 2002/07/18 23:16:06 fukachan Exp $
 #
 
 package FML::Command;
@@ -72,7 +72,7 @@ buffer.
 
 
 # Descriptions: rewrite prompt buffer
-#    Arguments: OBJ($self) 
+#    Arguments: OBJ($self)
 #               OBJ($curproc) HASH_REF($command_args) STR_REF($rbuf)
 # Side Effects: none
 # Return Value: none
diff --git a/fml/lib/FML/Command/Admin/on.pm b/fml/lib/FML/Command/Admin/on.pm
index c36c9c53..303904a8 100644
--- a/fml/lib/FML/Command/Admin/on.pm
+++ b/fml/lib/FML/Command/Admin/on.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2002 MURASHITA Takuya 
+#  Copyright (C) 2002 MURASHITA Takuya
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML$
+# $FML: on.pm,v 1.1 2002/07/22 15:39:54 tmu Exp $
 #
 
 package FML::Command::Admin::on;
diff --git a/fml/lib/FML/Command/DirUtils.pm b/fml/lib/FML/Command/DirUtils.pm
index 1344e8d1..7a58bcbd 100644
--- a/fml/lib/FML/Command/DirUtils.pm
+++ b/fml/lib/FML/Command/DirUtils.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: DirUtils.pm,v 1.5 2002/04/07 12:13:03 fukachan Exp $
+# $FML: DirUtils.pm,v 1.6 2002/07/02 12:03:41 fukachan Exp $
 #
 
 package FML::Command::DirUtils;
@@ -46,7 +46,7 @@ sub new
 
 
 # Descriptions: show the result by executing "ls"
-#    Arguments: OBJ($self) 
+#    Arguments: OBJ($self)
 #               OBJ($curproc) HASH_REF($command_args) HASH_REF($du_args)
 # Side Effects: none
 # Return Value: none
diff --git a/fml/lib/FML/Command/User/confirm.pm b/fml/lib/FML/Command/User/confirm.pm
index f0eaa0f9..522008d3 100644
--- a/fml/lib/FML/Command/User/confirm.pm
+++ b/fml/lib/FML/Command/User/confirm.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: confirm.pm,v 1.12 2002/07/17 09:28:33 fukachan Exp $
+# $FML: confirm.pm,v 1.13 2002/07/22 15:39:55 tmu Exp $
 #
 
 package FML::Command::User::confirm;
@@ -113,7 +113,7 @@ sub process
 	}
     }
     else {
-	$curproc->reply_message_nl('error.no_such_confirmation', 
+	$curproc->reply_message_nl('error.no_such_confirmation',
 				   "no such confirmatoin request id=$id",
 				   { _arg_id => $id });
 	LogError("no such confirmation request id=$id");
diff --git a/fml/lib/FML/Command/UserControl.pm b/fml/lib/FML/Command/UserControl.pm
index b535c968..0b6a72d7 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.14 2002/07/23 13:03:12 fukachan Exp $
+# $FML: UserControl.pm,v 1.15 2002/07/24 09:27:16 fukachan Exp $
 #
 
 package FML::Command::UserControl;
@@ -116,7 +116,7 @@ sub userdel
 	    $msg_args->{ _arg_map } = $curproc->which_map_nl($map);
 
 	    $trycount++;
-	    
+
 	    my $obj = new IO::Adapter $map, $config;
 	    $obj->delete( $address );
 	    unless ($obj->error()) {
diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm
index 277cb375..c2bf10ea 100644
--- a/fml/lib/FML/Config.pm
+++ b/fml/lib/FML/Config.pm
@@ -3,7 +3,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: Config.pm,v 1.67 2002/07/23 13:37:47 fukachan Exp $
+# $FML: Config.pm,v 1.68 2002/07/25 11:34:01 fukachan Exp $
 #
 
 package FML::Config;
@@ -316,7 +316,7 @@ sub _read_file
 	#
 	# [mysql:fml]
 	#    var = key1 ...
-	# 
+	#
 	while (<$fh>) {
 	    # Example: [mysql:fml]
 	    #   switched to the new name space.
@@ -391,7 +391,7 @@ sub __update_config
 
     if ($mode) {
 	if ($name_space) {
-	    $config->{ $name_space }->{ $key } = 
+	    $config->{ $name_space }->{ $key } =
 		_evaluate($config, $key, $mode, $value, $name_space);
 	}
 	else {
@@ -557,7 +557,7 @@ sub write
 	croak "cannot backup $file";
     }
 
-    # 3. write config 
+    # 3. write config
     if (defined $fh) {
 	$fh->autoflush(1);
 
@@ -641,7 +641,7 @@ sub __hash_copy
 	    $dst->{ $key } = $newhash;
 	}
 	else {
-	    $dst->{ $key } = $src->{ $key }; 
+	    $dst->{ $key } = $src->{ $key };
 	}
     }
 }
@@ -661,7 +661,7 @@ sub _expand_nextlevel
 	    # XXX variable expansion within the next level.
 	    my $hash = $config->{ $ns };
 	    _expand_variables( $hash, $config );
-	} 
+	}
     }
 }
 
@@ -1053,7 +1053,7 @@ sub FETCH
     if (defined($_fml_config_result{$key})) {
 	my $x = $_fml_config_result{$key};
 
-	# HASH_REF such as [mysql:fml] => { ... } 
+	# HASH_REF such as [mysql:fml] => { ... }
 	if (ref($x)) {
 	    return $x;
 	}
@@ -1083,7 +1083,7 @@ sub STORE
 	$need_expansion_variables = 1;
     }
 
-    if (defined $key && defined $value) { 
+    if (defined $key && defined $value) {
 	$_fml_config{$key} = $value;
     }
 }
diff --git a/fml/lib/FML/ErrorAnalyze.pm b/fml/lib/FML/ErrorAnalyze.pm
index f79a290e..5471d894 100644
--- a/fml/lib/FML/ErrorAnalyze.pm
+++ b/fml/lib/FML/ErrorAnalyze.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.5 2002/01/18 15:37:38 fukachan Exp $
+# $FML: ErrorAnalyze.pm,v 1.1 2002/07/30 04:03:27 fukachan Exp $
 #
 
 package FML::ErrorAnalyze;
@@ -30,7 +30,7 @@ where C<$bounce_info) follows:
 		       reason  => '... reason ... ',
 		   }
     ];
-    
+
 =head1 DESCRIPTION
 
 =head1 METHODS
@@ -40,9 +40,9 @@ where C<$bounce_info) follows:
 =cut
 
 
-# Descriptions: 
+# Descriptions:
 #    Arguments: OBJ($self) HASH_REF($curproc)
-# Side Effects: 
+# Side Effects:
 # Return Value: none
 sub new
 {
@@ -67,9 +67,9 @@ sub cache_on
 	my $time = time;
 
 	for my $hint (@$info) {
-	    $address = $hint->{ address }; 
-	    $reason  = $hint->{ reason }; 
-	    $status  = $hint->{ status }; 
+	    $address = $hint->{ address };
+	    $reason  = $hint->{ reason };
+	    $status  = $hint->{ status };
 
 	    $io->set($address, "$time status=$status");
 	}
@@ -147,7 +147,7 @@ sub deluser
     my ($self, $address) = @_;
     my $curproc = $self->{ _curproc };
     my $config  = $curproc->{ config };
-    my $ml_name = $config->{ ml_name }; 
+    my $ml_name = $config->{ ml_name };
 
     use FML::Restriction::Base;
     my $safe    = new FML::Restriction::Base;
diff --git a/fml/lib/FML/MTAControl.pm b/fml/lib/FML/MTAControl.pm
index 41b3f606..f418fd92 100644
--- a/fml/lib/FML/MTAControl.pm
+++ b/fml/lib/FML/MTAControl.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: MTAControl.pm,v 1.9 2002/06/27 08:24:08 fukachan Exp $
+# $FML: MTAControl.pm,v 1.10 2002/07/12 15:06:33 fukachan Exp $
 #
 
 package FML::MTAControl;
@@ -76,7 +76,7 @@ sub setup
 	defined $optargs->{ mta_type } ? $optargs->{ mta_type } :
 	    $self->{ mta_type };
 
-    if ($mta_type eq 'postfix' || 
+    if ($mta_type eq 'postfix' ||
 	$mta_type eq 'qmail'   ||
 	$mta_type eq 'procmail') {
 	my $method = "${mta_type}_setup";
@@ -123,7 +123,7 @@ sub find_key_in_alias_maps
 	    $self->{ mta_type };
     my $key      = $optargs->{ key };
 
-    if ($mta_type eq 'postfix' || 
+    if ($mta_type eq 'postfix' ||
 	$mta_type eq 'qmail'   ||
 	$mta_type eq 'procmail') {
 	my $method = "${mta_type}_find_key_in_alias_maps";
@@ -146,7 +146,7 @@ sub get_aliases_as_hash_ref
 	defined $optargs->{ mta_type } ? $optargs->{ mta_type } :
 	    $self->{ mta_type };
 
-    if ($mta_type eq 'postfix' || 
+    if ($mta_type eq 'postfix' ||
 	$mta_type eq 'qmail'   ||
 	$mta_type eq 'procmail') {
 	my $method = "${mta_type}_get_aliases_as_hash_ref";
@@ -170,7 +170,7 @@ sub install_alias
 	defined $optargs->{ mta_type } ? $optargs->{ mta_type } :
 	    $self->{ mta_type };
 
-    if ($mta_type eq 'postfix' || 
+    if ($mta_type eq 'postfix' ||
 	$mta_type eq 'qmail'   ||
 	$mta_type eq 'procmail') {
 	my $method = "${mta_type}_install_alias";
@@ -194,7 +194,7 @@ sub remove_alias
 	defined $optargs->{ mta_type } ? $optargs->{ mta_type } :
 	    $self->{ mta_type };
 
-    if ($mta_type eq 'postfix' || 
+    if ($mta_type eq 'postfix' ||
 	$mta_type eq 'qmail'   ||
 	$mta_type eq 'procmail') {
 	my $method = "${mta_type}_remove_alias";
@@ -218,7 +218,7 @@ sub install_virtual_map
 	defined $optargs->{ mta_type } ? $optargs->{ mta_type } :
 	    $self->{ mta_type };
 
-    if ($mta_type eq 'postfix' || 
+    if ($mta_type eq 'postfix' ||
 	$mta_type eq 'qmail'   ||
 	$mta_type eq 'procmail') {
 	my $method = "${mta_type}_install_virtual_map";
@@ -242,7 +242,7 @@ sub remove_virtual_map
 	defined $optargs->{ mta_type } ? $optargs->{ mta_type } :
 	    $self->{ mta_type };
 
-    if ($mta_type eq 'postfix' || 
+    if ($mta_type eq 'postfix' ||
 	$mta_type eq 'qmail'   ||
 	$mta_type eq 'procmail') {
 	my $method = "${mta_type}_remove_virtual_map";
@@ -265,7 +265,7 @@ sub update_virtual_map
 	defined $optargs->{ mta_type } ? $optargs->{ mta_type } :
 	    $self->{ mta_type };
 
-    if ($mta_type eq 'postfix' || 
+    if ($mta_type eq 'postfix' ||
 	$mta_type eq 'qmail'   ||
 	$mta_type eq 'procmail') {
 	my $method = "${mta_type}_update_virtual_map";
diff --git a/fml/lib/FML/Mailer.pm b/fml/lib/FML/Mailer.pm
index cf39682d..2bb2bf86 100644
--- a/fml/lib/FML/Mailer.pm
+++ b/fml/lib/FML/Mailer.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: Mailer.pm,v 1.11 2002/07/02 11:56:12 fukachan Exp $
+# $FML: Mailer.pm,v 1.12 2002/07/23 13:03:11 fukachan Exp $
 #
 
 package FML::Mailer;
@@ -126,7 +126,7 @@ sub send
     unless ($sender) {
 	LogError("FML::Mailer: no sender");
 	return 0;
-    }    
+    }
 
     # 2. recipient(s)
     my $recipients = [];
diff --git a/fml/lib/FML/Process/Calender.pm b/fml/lib/FML/Process/Calender.pm
index c15035b8..15401260 100644
--- a/fml/lib/FML/Process/Calender.pm
+++ b/fml/lib/FML/Process/Calender.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Calender.pm,v 1.5 2002/06/01 02:22:06 fukachan Exp $
+# $FML: Calender.pm,v 1.6 2002/07/02 03:58:06 fukachan Exp $
 #
 
 package FML::Process::Calender;
@@ -62,7 +62,7 @@ sub new
 #    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
-sub prepare { 1;}        
+sub prepare { 1;}
 
 
 # Descriptions: dummy
diff --git a/fml/lib/FML/Process/Command.pm b/fml/lib/FML/Process/Command.pm
index 6b97f17a..59688fe4 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.68 2002/07/25 00:10:11 fukachan Exp $
+# $FML: Command.pm,v 1.69 2002/08/03 10:35:08 fukachan Exp $
 #
 
 package FML::Process::Command;
@@ -476,7 +476,7 @@ sub _get_command_mode
 	    }
 	}
 	else {
-	    # Exapmle: incorrect password 
+	    # Exapmle: incorrect password
 	    if ($is_admin && (! $is_auth)) {
 		$status->{ _stop_reason_key } = 'command.auth_fail';
 		$status->{ _stop_reason_str } = "not authenticated.";
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm
index 9bbd4ee3..11ac0e9b 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.87 2002/07/31 13:22:03 fukachan Exp $
+# $FML: Distribute.pm,v 1.88 2002/08/03 10:35:08 fukachan Exp $
 #
 
 package FML::Process::Distribute;
@@ -62,13 +62,13 @@ sub new
 =head2 C<prepare($args)>
 
 forward the request to the base class.
-adjust ml_* and load configuration files. 
+adjust ml_* and load configuration files.
 
 =cut
 
 
 # Descriptions: prepare miscellaneous work before the main routine starts.
-#               adjust ml_* and load configuration files. 
+#               adjust ml_* and load configuration files.
 #    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
@@ -213,7 +213,7 @@ sub run
 	    $curproc->reply_message( $msg );
 
 	    # inform maintainer too.
-	    my $msg_args = { 
+	    my $msg_args = {
 		_arg_address => $sender,
 		recipient    => $maintainer,
 	    };
@@ -436,7 +436,7 @@ sub _deliver_article
 
 			  'message'         => $message,
 
-			  map_params        => $config, 
+			  map_params        => $config,
 		      });
     if ($service->error) { Log($service->error); return;}
 }
diff --git a/fml/lib/FML/Process/Scheduler.pm b/fml/lib/FML/Process/Scheduler.pm
index 5beae97e..1a3930cf 100644
--- a/fml/lib/FML/Process/Scheduler.pm
+++ b/fml/lib/FML/Process/Scheduler.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Scheduler.pm,v 1.13 2002/07/30 04:03:26 fukachan Exp $
+# $FML: Scheduler.pm,v 1.14 2002/08/03 10:35:09 fukachan Exp $
 #
 
 package FML::Process::Scheduler;
@@ -51,9 +51,9 @@ sub new
 }
 
 
-# Descriptions: 
+# Descriptions:
 #    Arguments: OBJ($self) STR($key)
-# Side Effects: 
+# Side Effects:
 # Return Value: none
 sub queue_in
 {
@@ -61,9 +61,9 @@ sub queue_in
 }
 
 
-# Descriptions: 
+# Descriptions:
 #    Arguments: OBJ($self) HASH_REF($args)
-# Side Effects: 
+# Side Effects:
 # Return Value: none
 sub exits
 {
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index c8bb4280..59d25e3b 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.36 2002/07/23 13:03:13 fukachan Exp $
+# $FML: Utils.pm,v 1.37 2002/07/23 13:16:44 fukachan Exp $
 #
 
 package FML::Process::Utils;
@@ -802,7 +802,7 @@ sub which_map_nl
     for my $mode (qw(member recipient admin_member)) {
 	my $maps = $config->get_as_array_ref("${mode}_maps");
 	for my $m (@$maps) {
-	    if ($map eq $m) { 
+	    if ($map eq $m) {
 		$found = $mode;
 		last SEARCH_MAPS;
 	    }
diff --git a/fml/lib/File/CacheDir.pm b/fml/lib/File/CacheDir.pm
index a1014aa6..2e0452dc 100644
--- a/fml/lib/File/CacheDir.pm
+++ b/fml/lib/File/CacheDir.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: CacheDir.pm,v 1.15 2002/05/17 09:50:56 fukachan Exp $
+# $FML: CacheDir.pm,v 1.16 2002/07/02 12:50:16 fukachan Exp $
 #
 
 package File::CacheDir;
@@ -360,7 +360,7 @@ sub set
     my ($self, $key, $value) = @_;
     my $fh = $self->open;
 
-    if (defined $fh) { 
+    if (defined $fh) {
 	print $fh $key, "\t", $value, "\n";
 	$self->close;
     }
diff --git a/fml/lib/File/Utils.pm b/fml/lib/File/Utils.pm
index d7bba21b..ec02df72 100644
--- a/fml/lib/File/Utils.pm
+++ b/fml/lib/File/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.14 2002/07/02 12:52:10 fukachan Exp $
+# $FML: Utils.pm,v 1.15 2002/07/25 11:34:02 fukachan Exp $
 #
 
 package File::Utils;
@@ -55,7 +55,7 @@ clear error message.
 # Side Effects: none
 # Return Value: STR(error message)
 sub error
-{ 
+{
     if (defined $ErrorString) {
 	return $ErrorString;
     }
diff --git a/fml/lib/IO/Adapter/DBI.pm b/fml/lib/IO/Adapter/DBI.pm
index d29a73c3..1b94e298 100644
--- a/fml/lib/IO/Adapter/DBI.pm
+++ b/fml/lib/IO/Adapter/DBI.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: DBI.pm,v 1.17 2002/07/24 11:05:50 fukachan Exp $
+# $FML: DBI.pm,v 1.18 2002/07/24 13:01:40 fukachan Exp $
 #
 
 package IO::Adapter::DBI;
@@ -199,7 +199,7 @@ sub get_next_key
 
 
 # Descriptions: return value(s) to the primary key in the table
-#               as ARRAY_REF 
+#               as ARRAY_REF
 #               XXX definition is o.k.?
 #    Arguments: OBJ($self) HASH_REF($args) STR($mode)
 # Side Effects: none
@@ -321,7 +321,7 @@ sub delete
 
 =head2 md_find()
 
-map specific find(). 
+map specific find().
 
 =cut
 
diff --git a/fml/lib/Tie/JournaledDir.pm b/fml/lib/Tie/JournaledDir.pm
index 23d4b8b7..cceb0a45 100644
--- a/fml/lib/Tie/JournaledDir.pm
+++ b/fml/lib/Tie/JournaledDir.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: JournaledDir.pm,v 1.10 2002/08/03 04:21:30 fukachan Exp $
+# $FML: JournaledDir.pm,v 1.11 2002/08/03 10:30:44 fukachan Exp $
 #
 
 package Tie::JournaledDir;
@@ -304,7 +304,7 @@ sub CLEAR
 
 =head2 get_all_values_as_hash_ref()
 
-return { key => values } for all keys. 
+return { key => values } for all keys.
 The returned value is HASH REFERECE for the KEY as follows:
 
    KEY => [
diff --git a/fml/lib/Tie/JournaledFile.pm b/fml/lib/Tie/JournaledFile.pm
index 4c790ff8..1d9bda27 100644
--- a/fml/lib/Tie/JournaledFile.pm
+++ b/fml/lib/Tie/JournaledFile.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: JournaledFile.pm,v 1.18 2002/08/03 06:42:33 fukachan Exp $
+# $FML: JournaledFile.pm,v 1.19 2002/08/03 10:30:44 fukachan Exp $
 #
 
 package Tie::JournaledFile;
@@ -189,7 +189,7 @@ sub NEXTKEY
 
 =head2 get_all_values_as_hash_ref()
 
-return { key => values } for all keys. 
+return { key => values } for all keys.
 The returned value is HASH REFERECE for the KEY as follows:
 
    KEY => [
@@ -215,7 +215,7 @@ which is by default.
 sub get_all_values_as_hash_ref
 {
     my ($self) = @_;
-    my $hash   = {}; 
+    my $hash   = {};
 
     use IO::File;
     my $fh = new IO::File;