remove \s*$

11 files changed, 34 insertions, 34 deletions

diff --git a/fml/lib/Calendar/Lite.pm b/fml/lib/Calendar/Lite.pm
index 12717c94..058f352f 100644
--- a/fml/lib/Calendar/Lite.pm
+++ b/fml/lib/Calendar/Lite.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: Calender::Lite.pm,v 1.16 2002/02/02 07:55:45 fukachan Exp $
+# $FML: Lite.pm,v 1.1.1.1 2002/02/13 12:51:48 fukachan Exp $
 #
 
 package Calender::Lite;
@@ -392,7 +392,7 @@ Calender::Lite appeared in fml5 mailing list driver package.
 See C<http://www.fml.org/> for more details.
 
 Firstly this module name is C<TinyScheduler.pm> and renamed to
-Calender::Lite later. 
+Calender::Lite later.
 
 =cut
 
diff --git a/fml/lib/Calender/Lite.pm b/fml/lib/Calender/Lite.pm
index 12717c94..058f352f 100644
--- a/fml/lib/Calender/Lite.pm
+++ b/fml/lib/Calender/Lite.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: Calender::Lite.pm,v 1.16 2002/02/02 07:55:45 fukachan Exp $
+# $FML: Lite.pm,v 1.1.1.1 2002/02/13 12:51:48 fukachan Exp $
 #
 
 package Calender::Lite;
@@ -392,7 +392,7 @@ Calender::Lite appeared in fml5 mailing list driver package.
 See C<http://www.fml.org/> for more details.
 
 Firstly this module name is C<TinyScheduler.pm> and renamed to
-Calender::Lite later. 
+Calender::Lite later.
 
 =cut
 
diff --git a/fml/lib/FML/Command.pm b/fml/lib/FML/Command.pm
index 6b4c68ee..95bdbc92 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.17 2002/01/30 14:51:14 fukachan Exp $
+# $FML: Command.pm,v 1.18 2002/02/13 10:41:16 fukachan Exp $
 #
 
 package FML::Command;
@@ -93,7 +93,7 @@ sub AUTOLOAD
 	}
 
 	# this command needs lock (currently giant lock) ?
-	if ($command->can('need_lock')) { 
+	if ($command->can('need_lock')) {
 	    $need_lock = $command->need_lock($mode);
 	}
 
diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm
index ecc29565..84c4e717 100644
--- a/fml/lib/FML/Command/Admin/newml.pm
+++ b/fml/lib/FML/Command/Admin/newml.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: newml.pm,v 1.12 2002/02/03 12:30:29 fukachan Exp $
+# $FML: newml.pm,v 1.13 2002/02/13 10:41:16 fukachan Exp $
 #
 
 package FML::Command::Admin::newml;
@@ -58,12 +58,12 @@ sub process
 {
     my ($self, $curproc, $command_args) = @_;
     my $config         = $curproc->{ 'config' };
-    my ($ml_name, $ml_domain, $ml_home_prefix, $ml_home_dir) = 
+    my ($ml_name, $ml_domain, $ml_home_prefix, $ml_home_dir) =
 	$self->_get_domain_info($curproc, $command_args);
     my $params         = {
 	executable_prefix => $curproc->executable_prefix(),
 	ml_name           => $ml_name,
-	ml_domain         => $ml_domain, 
+	ml_domain         => $ml_domain,
 	ml_home_prefix    => $ml_home_prefix,
 	ml_home_dir       => $ml_home_dir,
     };
@@ -96,7 +96,7 @@ sub process
 }
 
 
-# Descriptions: check argument and prepare virtual domain information 
+# Descriptions: check argument and prepare virtual domain information
 #               if needed.
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: none
diff --git a/fml/lib/FML/Command/SendFile.pm b/fml/lib/FML/Command/SendFile.pm
index 9edb6fe4..8bed8524 100644
--- a/fml/lib/FML/Command/SendFile.pm
+++ b/fml/lib/FML/Command/SendFile.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: SendFile.pm,v 1.10 2002/02/11 10:59:36 fukachan Exp $
+# $FML: SendFile.pm,v 1.11 2002/02/13 11:13:14 fukachan Exp $
 #
 
 package FML::Command::SendFile;
@@ -144,7 +144,7 @@ sub _is_valid_argument
 
 
 # Descriptions: make an array from $fist to $last number.
-#               This array is composed of article numbers.              
+#               This array is composed of article numbers.
 #    Arguments: NUM($first_number) NUM($last_number)
 # Side Effects: none
 # Return Value: HASH_ARRAY as [ $first .. $last ]
diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm
index 3456f1f1..bee20b31 100644
--- a/fml/lib/FML/Config.pm
+++ b/fml/lib/FML/Config.pm
@@ -1,7 +1,7 @@
 #-*- perl -*-
 # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi
 #
-# $FML: Config.pm,v 1.51 2002/02/01 12:03:55 fukachan Exp $
+# $FML: Config.pm,v 1.52 2002/02/17 01:11:11 fukachan Exp $
 #
 
 package FML::Config;
@@ -717,7 +717,7 @@ sub is_hook_defined
     print STDERR $@ if $@;
 
     my $is_defined = 0;
-    my $hook = sprintf("%s::%s", '$FML::Config::Hook',  $hook_name);
+    my $hook = sprintf("%s::%s", '$FML: Config.pm,v 1.52 2002/02/17 01:11:11 fukachan Exp $hook_name);
 
     eval qq{
 	if (defined( $hook )) {
@@ -753,14 +753,14 @@ sub get_hook
     my $r    = ''; # return value;
     my $namel = $hook_name; $namel =~ tr/A-Z/a-z/; # lowercase
     my $nameu = $hook_name; $nameu =~ tr/a-z/A-Z/; # uppercase
-    my $hookl = sprintf("%s::%s", '$FML::Config::Hook',  $namel);
-    my $hooku = sprintf("%s::%s", '$FML::Config::Hook',  $nameu);
+    my $hookl = sprintf("%s::%s", '$FML: Config.pm,v 1.52 2002/02/17 01:11:11 fukachan Exp $namel);
+    my $hooku = sprintf("%s::%s", '$FML: Config.pm,v 1.52 2002/02/17 01:11:11 fukachan Exp $nameu);
     # check both lower and upper case e.g. start_hook and START_HOOK.
     eval qq{
-	if (defined( $hookl )) { 
+	if (defined( $hookl )) {
 	    \$r = $hookl;
 	}
-	elsif (defined( $hooku )) { 
+	elsif (defined( $hooku )) {
 	    \$r = $hooku;
 	}
     };
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index 1689e203..5d98a5ee 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.10 2002/02/03 12:11:55 fukachan Exp $
+# $FML: Utils.pm,v 1.11 2002/02/03 12:30:30 fukachan Exp $
 #
 
 package FML::Process::Utils;
@@ -187,7 +187,7 @@ sub executable_prefix
 =cut
 
 
-# Descriptions: return the path where template files used in "newml" method exist 
+# Descriptions: return the path where template files used in "newml" method exist
 #    Arguments: OBJ($curproc)
 # Side Effects: none
 # Return Value: STR
@@ -296,7 +296,7 @@ sub __ml_home_prefix_search_in_virtual_maps
 #
 # XXX
 #    __ml_home_prefix_from_main_cf() is not needed.
-#    since FML::Process::Switch calculate this variable and set it to 
+#    since FML::Process::Switch calculate this variable and set it to
 #    $curproc->{ main_cf }.
 #
 
@@ -325,7 +325,7 @@ sub __get_virtual_maps
     my ($main_cf) = @_;
 
     if (defined $main_cf->{ virtual_maps } && $main_cf->{ virtual_maps }) {
-	my (@r) = ();   
+	my (@r) = ();
 	my (@maps) = split(/\s+/, $main_cf->{ virtual_maps });
 	for (@maps) {
 	    if (-f $_) { push(@r, $_);}
diff --git a/fml/lib/File/Sequence.pm b/fml/lib/File/Sequence.pm
index 703bc7d9..92d1ce20 100644
--- a/fml/lib/File/Sequence.pm
+++ b/fml/lib/File/Sequence.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: Sequence.pm,v 1.17 2002/01/27 08:28:11 fukachan Exp $
+# $FML: Sequence.pm,v 1.18 2002/02/01 12:03:58 fukachan Exp $
 #
 
 package File::Sequence;
@@ -198,7 +198,7 @@ To search max_id in hash key,
 
 to search max_id among all keys,
 
-    $self->search_max_id( { 
+    $self->search_max_id( {
 	hash => \%hash_table,
 	full_search => 1,
     });
diff --git a/fml/lib/IO/Adapter.pm b/fml/lib/IO/Adapter.pm
index 03b03444..92602c5e 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.14 2002/01/27 13:11:57 fukachan Exp $
+# $FML: Adapter.pm,v 1.15 2002/02/01 12:03:58 fukachan Exp $
 #
 
 package IO::Adapter;
@@ -72,7 +72,7 @@ is described like this:
 	file content = {
 		key1 => undef,
 		key2 => [ value2 ],
-		key3 => [ value3a, value3b ], 
+		key3 => [ value3a, value3b ],
 	};
 
 IO::Adapter converts data in arbitrary map e.g. file, /etc/group,
@@ -82,7 +82,7 @@ IO::Adapter provides unified access methods to this structure.
 
 
 Instead of unification, IO::Adapter may provide amibugous IO.
-For example, IO into array is not described as above. 
+For example, IO into array is not described as above.
 /etc/group must be described as
 
 	wheel group = {
@@ -277,11 +277,11 @@ sub touch
 getXXX() should be classified into:
 
    getline()        raw data
-                    which may consist of "key" and "value" pair. 
+                    which may consist of "key" and "value" pair.
    get_next_key()   next primary key
    get_next_value() next value for (the next) key
 
-For a file map, following usage is intuitive such that 
+For a file map, following usage is intuitive such that
 getline() returns "key value1 value2 ...",
 get_next_key() returns "key" and
 get_next_value() returns "value1 value2 ...", isn't it ?
@@ -399,7 +399,7 @@ find() returns the result as STRING or ARRAY REFERENCE.
 You get only the first entry as string by default.
 If you specify C<all>, you get the result(s) as ARRAY REFERENCE.
 
-For example, to search mail addresses in recipient list, 
+For example, to search mail addresses in recipient list,
 
     my $a = $self->find($regexp, { want => 'key', all => 1});
     for my $addr (@$a) {
diff --git a/fml/lib/IO/Adapter/Array.pm b/fml/lib/IO/Adapter/Array.pm
index 52718957..52df80d9 100644
--- a/fml/lib/IO/Adapter/Array.pm
+++ b/fml/lib/IO/Adapter/Array.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: Array.pm,v 1.21 2001/12/24 07:40:56 fukachan Exp $
+# $FML: Array.pm,v 1.22 2002/01/27 13:11:58 fukachan Exp $
 #
 
 package IO::Adapter::Array;
@@ -123,7 +123,7 @@ undef. ambigous in array case.
 
 # Descriptions: forwarded to get_next_key()
 #               XXX getline() == get_next_key() is valid in this case.
-#               XXX since this map has only key and no value. 
+#               XXX since this map has only key and no value.
 #    Arguments: OBJ($self) HASH_REF($args)
 # Side Effects: increment the counter in the object
 # Return Value: STR(the next element)
diff --git a/fml/lib/Mail/ThreadTrack/DB.pm b/fml/lib/Mail/ThreadTrack/DB.pm
index 08c9fbe5..3efb9567 100644
--- a/fml/lib/Mail/ThreadTrack/DB.pm
+++ b/fml/lib/Mail/ThreadTrack/DB.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: DB.pm,v 1.22 2002/02/02 07:55:46 fukachan Exp $
+# $FML: DB.pm,v 1.23 2002/02/04 00:07:17 fukachan Exp $
 #
 
 package Mail::ThreadTrack::DB;
@@ -259,7 +259,7 @@ sub db_hash
 
 =head2 db_last_modified()
 
-return the last modified time of our dateabase as unix time.  
+return the last modified time of our dateabase as unix time.
 This time is the latest modified time among all database files.
 
 =cut