remove \s*$

5 files changed, 11 insertions, 11 deletions

diff --git a/fml/lib/FML/Command.pm b/fml/lib/FML/Command.pm
index 9758e2e6..c35a4922 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.23 2002/03/23 12:20:25 fukachan Exp $
+# $FML: Command.pm,v 1.24 2002/04/07 05:08:23 fukachan Exp $
 #
 
 package FML::Command;
@@ -112,7 +112,7 @@ sub AUTOLOAD
     # mode
     my $mode = 'User';
     if (defined $command_args->{ command_mode }) {
-	$mode = 
+	$mode =
 	    $command_args->{ command_mode } =~ /admin/i ? 'Admin' : 'User';
     }
 
diff --git a/fml/lib/FML/Command/Admin/htmlify.pm b/fml/lib/FML/Command/Admin/htmlify.pm
index 866c3477..5ae4cefd 100644
--- a/fml/lib/FML/Command/Admin/htmlify.pm
+++ b/fml/lib/FML/Command/Admin/htmlify.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: htmlify.pm,v 1.10 2002/03/31 03:39:13 fukachan Exp $
+# $FML: htmlify.pm,v 1.11 2002/04/07 05:01:06 fukachan Exp $
 #
 
 package FML::Command::Admin::htmlify;
@@ -75,7 +75,7 @@ sub process
 	}
 
 	use Mail::Message::ToHTML;
-	&Mail::Message::ToHTML::htmlify_dir($src_dir, { 
+	&Mail::Message::ToHTML::htmlify_dir($src_dir, {
 	    directory => $dst_dir,
 	});
     }
diff --git a/fml/lib/FML/Command/Admin/log.pm b/fml/lib/FML/Command/Admin/log.pm
index e6f2519b..82ffb63e 100644
--- a/fml/lib/FML/Command/Admin/log.pm
+++ b/fml/lib/FML/Command/Admin/log.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: log.pm,v 1.2 2002/03/30 11:08:35 fukachan Exp $
+# $FML: log.pm,v 1.3 2002/04/07 05:02:23 fukachan Exp $
 #
 
 package FML::Command::Admin::log;
@@ -138,7 +138,7 @@ sub _html_to_text
 {
     my ($str) = @_;
 
-    eval q{ 
+    eval q{
 	use HTML::FromText;
     };
     unless ($@) {
diff --git a/fml/lib/FML/Command/User/unsubscribe.pm b/fml/lib/FML/Command/User/unsubscribe.pm
index 839afb00..bc1f4130 100644
--- a/fml/lib/FML/Command/User/unsubscribe.pm
+++ b/fml/lib/FML/Command/User/unsubscribe.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: unsubscribe.pm,v 1.9 2002/02/18 14:14:53 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.10 2002/04/06 14:46:13 fukachan Exp $
 #
 
 package FML::Command::User::unsubscribe;
@@ -86,7 +86,7 @@ sub process
     # try confirmation before unsubscribe
     else {
 	Log("unsubscriber request, try confirmation");
-	eval q{ 
+	eval q{
 	    use FML::Confirm;
 	};
 	if ($@) {
diff --git a/fml/lib/FML/Restriction/Base.pm b/fml/lib/FML/Restriction/Base.pm
index c5fd2f49..3976aa8e 100644
--- a/fml/lib/FML/Restriction/Base.pm
+++ b/fml/lib/FML/Restriction/Base.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2001,2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Base.pm,v 1.7 2002/03/26 03:59:44 fukachan Exp $
+# $FML: Base.pm,v 1.8 2002/04/06 02:42:39 fukachan Exp $
 #
 
 package FML::Restriction::Base;
@@ -56,7 +56,7 @@ definitions for conveninece and security.
 
 =head2 domain name
 
-A domain name is case insensitive (see RFC). For example, 
+A domain name is case insensitive (see RFC). For example,
    fml.org
    FML.org
    123.f-m-l.org
@@ -112,7 +112,7 @@ sub basic_variable
 # debug
 #
 if ($0 eq __FILE__) {
-    for my $k (keys %basic_variable) { 
+    for my $k (keys %basic_variable) {
 	printf "%-20s => %s\n", $k, $basic_variable{ $k };
     }
 }