remove \s*$

8 files changed, 25 insertions, 25 deletions

diff --git a/fml/lib/Calendar/Lite.pm b/fml/lib/Calendar/Lite.pm
index 3880379c..116ed6fb 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: Lite.pm,v 1.2 2002/02/17 03:13:47 fukachan Exp $
+# $FML: Lite.pm,v 1.3 2002/04/03 03:39:32 fukachan Exp $
 #
 
 package Calender::Lite;
@@ -93,7 +93,7 @@ sub new
 
     # XXX-AUDIT (we should use FML::Restriction ?)
     # simple check (not enough mature).
-    # This code is not for security but to avoid -T (taint mode) error ;) 
+    # This code is not for security but to avoid -T (taint mode) error ;)
     if ($home_dir =~ /^([\w\d\.\/]+)$/) {
 	$home_dir = $1;
     }
diff --git a/fml/lib/Calender/Lite.pm b/fml/lib/Calender/Lite.pm
index 3880379c..116ed6fb 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: Lite.pm,v 1.2 2002/02/17 03:13:47 fukachan Exp $
+# $FML: Lite.pm,v 1.3 2002/04/03 03:39:32 fukachan Exp $
 #
 
 package Calender::Lite;
@@ -93,7 +93,7 @@ sub new
 
     # XXX-AUDIT (we should use FML::Restriction ?)
     # simple check (not enough mature).
-    # This code is not for security but to avoid -T (taint mode) error ;) 
+    # This code is not for security but to avoid -T (taint mode) error ;)
     if ($home_dir =~ /^([\w\d\.\/]+)$/) {
 	$home_dir = $1;
     }
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 };
     }
 }
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm
index 643c8b00..bfa96ff5 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.4 2002/03/31 12:11:04 fukachan Exp $
+# $FML: ToHTML.pm,v 1.5 2002/04/06 02:02:19 fukachan Exp $
 #
 
 package Mail::Message::ToHTML;
@@ -16,10 +16,10 @@ use Carp;
 
 my $is_strict_warn = 0;
 my $debug = 0;
-my $URL   = 
+my $URL   =
     "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>";
 
-my $version = q$FML: ToHTML.pm,v 1.4 2002/03/31 12:11:04 fukachan Exp $;
+my $version = q$FML: ToHTML.pm,v 1.5 2002/04/06 02:02:19 fukachan Exp $;
 if ($version =~ /,v\s+([\d\.]+)\s+/) {
     $version = "$URL $1";
 }
@@ -1255,7 +1255,7 @@ sub _update_relation
 	    }
 	}
 	else {
-	    unless (defined $file) { 
+	    unless (defined $file) {
 		$new = $old = '(null string)';
 	    }
 	    warn("cannot open   $old (id=$id)\n") unless defined $rh;
@@ -1372,12 +1372,12 @@ sub evaluate_safe_preamble
     }
 
     if (defined $link_prev_thread_id) {
-	$preamble .= 
+	$preamble .=
 	    "<A HREF=\"${prefix}$link_prev_thread_id\">[Prev by Thread]</A>\n";
     }
     else {
 	if (defined $link_prev_id) {
-	    $preamble .= 
+	    $preamble .=
 		"<A HREF=\"${prefix}$link_prev_id\">[Prev by Thread]</A>\n";
 	}
 	else {
@@ -1386,12 +1386,12 @@ sub evaluate_safe_preamble
     }
 
     if (defined $link_next_thread_id) {
-	$preamble .= 
+	$preamble .=
 	    "<A HREF=\"${prefix}$link_next_thread_id\">[Next by Thread]</A>\n";
     }
     else {
 	if (defined $link_next_id) {
-	    $preamble .= 
+	    $preamble .=
 		"<A HREF=\"${prefix}$link_next_id\">[Next by Thread]</A>\n";
 	}
 	else {
@@ -1443,7 +1443,7 @@ sub evaluate_safe_footer
 
     if (defined $link_prev_thread_id) {
 	$footer .= "<BR>\n";
-	$footer .= 
+	$footer .=
 	    "<A HREF=\"${prefix}$link_prev_thread_id\">Prev by Thread: ";
 	if (defined $subject->{ prev_thread_id }) {
 	    $footer .= _sprintf_safe_str($subject->{ prev_thread_id });
@@ -1453,7 +1453,7 @@ sub evaluate_safe_footer
 
     if (defined $link_next_thread_id) {
 	$footer .= "<BR>\n";
-	$footer .= 
+	$footer .=
 	    "<A HREF=\"${prefix}$link_next_thread_id\">Next by Thread: ";
 	if (defined $subject->{ next_thread_id }) {
 	    $footer .= _sprintf_safe_str($subject->{ next_thread_id });