white space cosmetics: nuke \s*$

4 files changed, 21 insertions, 21 deletions

diff --git a/fml/lib/FML/Process/CGI/Kernel.pm b/fml/lib/FML/Process/CGI/Kernel.pm
index 98170046..69742c8a 100644
--- a/fml/lib/FML/Process/CGI/Kernel.pm
+++ b/fml/lib/FML/Process/CGI/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.19 2002/03/20 07:31:09 fukachan Exp $
+# $FML: Kernel.pm,v 1.20 2002/03/20 08:00:29 fukachan Exp $
 #
 
 package FML::Process::CGI::Kernel;
@@ -147,7 +147,7 @@ C<run_cgi()> prepares tables by the following granularity.
 
 C<run_cgi_main()> shows at the center and
 C<run_cgi_navigation_bar()> at the west by default.
-You can specify the location by configure() access method. 
+You can specify the location by configure() access method.
 
 =cut
 
@@ -171,7 +171,7 @@ sub run
 
 sub _error_string
 {
-    my ($r) = @_; 
+    my ($r) = @_;
 
     if ($r =~ /ERROR\.INSECURE/) {
 	print "<B>Error! insecure input.</B>\n";
@@ -194,11 +194,11 @@ sub _drive_cgi_by_table
     my ($curproc, $args) = @_;
     my $r = '';
 
-    # 
+    #
     #   nw   north  ne
     #   west center east
     #   sw   south  se
-    # 
+    #
     # table starts.
     print "<table border=0 cellspacing=\"0\" cellpadding=\"5\">\n";
 
@@ -428,7 +428,7 @@ sub run_cgi_options
 
     print "Language:\n";
     my $langlist = [ 'Japanese', 'English' ];
-    print scrolling_list(-name    => 'language', 
+    print scrolling_list(-name    => 'language',
 			 -values  => $langlist,
 			 -size    => 1);
 
@@ -456,8 +456,8 @@ sub run_cgi_menu
     my $cmd = "FML::Command::Admin::$comname";
     my $obj = undef;
 
-    eval qq{ 
-	use $cmd; 
+    eval qq{
+	use $cmd;
 	\$obj = new $cmd;
     };
 
diff --git a/fml/lib/FML/Process/Command.pm b/fml/lib/FML/Process/Command.pm
index 52f630e6..6f97a3e0 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.39 2002/03/22 15:30:44 fukachan Exp $
+# $FML: Command.pm,v 1.40 2002/03/23 12:22:03 fukachan Exp $
 #
 
 package FML::Process::Command;
@@ -311,12 +311,12 @@ sub _auth_admin
 	my $config = $curproc->{ config };
 	my $rules  = $config->get_as_array_ref('admin_command_restrictions');
 	for my $rule (@$rules) {
-	    if ($rule eq 'reject') { 
+	    if ($rule eq 'reject') {
 		return 0;
 	    }
 
 	    $is_auth = $obj->$rule($curproc, $args, $optargs);
-	    if ($is_auth) { 
+	    if ($is_auth) {
 		return $is_auth;
 	    }
 	    else {
@@ -363,9 +363,9 @@ sub _evaluate_command
     my $eval = $config->get_hook( 'command_run_start_hook' );
     if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; }
 
-    # 
+    #
     # credential
-    # 
+    #
     my $cred      = $curproc->{ credential };
     my $is_member = $cred->is_member($curproc, $args);
 
@@ -374,9 +374,9 @@ sub _evaluate_command
     my $is_admin  = $cred->is_privileged_member($curproc, $args);
     my $is_auth   = 0;
 
-    # 
+    #
     # main loop
-    # 
+    #
     my ($command, $comname, $comsubname, $opts);
 
     # firstly, prompt (for politeness :) to show processing ...
@@ -425,7 +425,7 @@ sub _evaluate_command
 
 		$data =~ s/.*(password|pass)\s+//;
 		my $optargs = { address => $sender, password => $data };
-		
+
 		# try auth by FML::Command::Auth;
 		$is_auth = $curproc->_auth_admin($args, $optargs);
 		Log("authenticated as an ML administrator") if $is_auth;
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm
index 6145c8d1..aa4049ae 100644
--- a/fml/lib/FML/Process/Switch.pm
+++ b/fml/lib/FML/Process/Switch.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: Switch.pm,v 1.56 2002/03/07 14:19:51 fukachan Exp $
+# $FML: Switch.pm,v 1.57 2002/03/20 03:19:59 fukachan Exp $
 #
 
 package FML::Process::Switch;
@@ -438,7 +438,7 @@ sub _ml_name_is_required
     elsif ($myname eq 'makefml') {
 	return 0;
     }
-    elsif ($myname eq 'menu.cgi'   || 
+    elsif ($myname eq 'menu.cgi'   ||
 	   $myname eq 'config.cgi' ||
 	   $myname eq 'thread.cgi') {
 	return 0;
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index b21ef74d..b29a8707 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.15 2002/03/18 15:22:36 fukachan Exp $
+# $FML: Utils.pm,v 1.16 2002/03/20 03:20:45 fukachan Exp $
 #
 
 package FML::Process::Utils;
@@ -178,7 +178,7 @@ sub command_line_options
 
 =head2 ml_domain()
 
-not yet implemenetd properly. 
+not yet implemenetd properly.
 Anyway, return the default domain defined in /etc/fml/main.cf.
 
 =cut
@@ -446,7 +446,7 @@ sub article_id_max
 
 return hints as HASH_REF.
 It is useful to switch process behabiour based on this hints.
-This function is used in CGI processes typically to verify 
+This function is used in CGI processes typically to verify
 whether the current process runs in admin mode or user mode ? et.al.
 
 =cut