clean up (nuke \s*$)

3 files changed, 10 insertions, 10 deletions

diff --git a/fml/lib/FML/Process/Debug.pm b/fml/lib/FML/Process/Debug.pm
index a1504079..23d4b70b 100644
--- a/fml/lib/FML/Process/Debug.pm
+++ b/fml/lib/FML/Process/Debug.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.7 2003/01/01 02:06:22 fukachan Exp $
+# $FML: Debug.pm,v 1.1 2003/03/14 03:49:44 fukachan Exp $
 #
 
 package FML::Process::Debug;
@@ -47,13 +47,13 @@ sub new
 
 
 # Descriptions: dump the curproc structure.
-#    Arguments: OBJ($self) OBJ($curproc) 
+#    Arguments: OBJ($self) OBJ($curproc)
 # Side Effects: non
 # Return Value: none
 sub dump_curproc
 {
     my ($self, $curproc) = @_;
- 
+
     print "CURPROC_BEGIN\n";
     my (@c) = sort keys %$curproc;
     for my $k (@c) {
@@ -90,7 +90,7 @@ See C<http://www.fml.org/software/FNF/> on fml coding style guide.
 
 =head1 AUTHOR
 
-Ken'ichi Fukamachi 
+Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index 13bd6cfd..f2e4217b 100644
--- a/fml/lib/FML/Process/Kernel.pm
+++ b/fml/lib/FML/Process/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.165 2003/03/17 08:58:50 fukachan Exp $
+# $FML: Kernel.pm,v 1.166 2003/03/18 10:39:40 fukachan Exp $
 #
 
 package FML::Process::Kernel;
@@ -1010,7 +1010,7 @@ sub _check_restrictions
     for my $rule (@$rules) {
 	if ($acl->can($rule)) {
 	    # match  = matched. return as soon as possible from here.
-	    #          ASAP or RETRY the next rule, depends on the rule. 
+	    #          ASAP or RETRY the next rule, depends on the rule.
 	    # result = action determined by matched rule.
 	    ($match, $result) = $acl->$rule($rule, $sender);
 	}
@@ -2122,7 +2122,7 @@ sub reset_umask
 
 
 # Descriptions: finalize curproc.
-#    Arguments: OBJ($curproc) 
+#    Arguments: OBJ($curproc)
 # Side Effects: non
 # Return Value: none
 sub finalize
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm
index 383d1202..87da9ec1 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.89 2003/03/09 03:52:13 fukachan Exp $
+# $FML: Switch.pm,v 1.90 2003/03/11 06:17:10 fukachan Exp $
 #
 
 package FML::Process::Switch;
@@ -377,13 +377,13 @@ sub _ml_name_is_required
 sub _module_we_use
 {
     my ($args)  = @_;
-    my $main_cf = $args->{ main_cf }; 
+    my $main_cf = $args->{ main_cf };
     my $name    = $args->{ myname };
     my $modules = $main_cf->{ default_module_config };
     my $pkg     = undef;
     my $pkgopts = undef;
 
-    if (defined $args->{ options }->{ ctladdr } && 
+    if (defined $args->{ options }->{ ctladdr } &&
 	$args->{ options }->{ ctladdr }) {
 	$name .= "__--ctladdr";
     }