cosmetics: white spaces

5 files changed, 18 insertions, 18 deletions

diff --git a/fml/lib/FML/Process/HTMLify.pm b/fml/lib/FML/Process/HTMLify.pm
index ade51ccb..0b97afb9 100644
--- a/fml/lib/FML/Process/HTMLify.pm
+++ b/fml/lib/FML/Process/HTMLify.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2001,2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: HTMLify.pm,v 1.14 2002/04/08 12:44:25 fukachan Exp $
+# $FML: HTMLify.pm,v 1.15 2002/04/15 04:01:47 fukachan Exp $
 #
 
 package FML::Process::HTMLify;
@@ -177,7 +177,7 @@ sub  _check_subdir_exists
     use DirHandle;
     my $dh = new DirHandle $src_dir;
     if (defined $dh) {
-	while (defined($_ = $dh->read)) { 
+	while (defined($_ = $dh->read)) {
 	    next if /^\./;
 	    $subdir = File::Spec->catfile($src_dir, $_);
 
diff --git a/fml/lib/FML/Process/Spool.pm b/fml/lib/FML/Process/Spool.pm
index 73ec2009..105a48b4 100644
--- a/fml/lib/FML/Process/Spool.pm
+++ b/fml/lib/FML/Process/Spool.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Spool.pm,v 1.1 2002/04/15 10:34:10 fukachan Exp $
+# $FML: Spool.pm,v 1.2 2002/04/16 04:05:10 fukachan Exp $
 #
 
 package FML::Process::Spool;
@@ -119,8 +119,8 @@ sub run
     my $src_dir = defined $options->{srcdir} ? $options->{srcdir} : $dst_dir;
     my $optargs = {
 	article => $article,
-	src_dir => $src_dir, 
-	dst_dir => $dst_dir, 
+	src_dir => $src_dir,
+	dst_dir => $dst_dir,
     };
 
     # XXX you can specify the spool type by --style=subdir but only
@@ -132,7 +132,7 @@ sub run
     else {
 	# show status by default for "Principle of Least Surprise".
 	$curproc->_check($args, $optargs);
-    } 
+    }
 
     $eval = $config->get_hook( 'fmlspool_run_end_hook' );
     if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; }
@@ -162,7 +162,7 @@ sub _convert
     if (defined $dh) {
 	my $source = '';
 
-	while (defined($_ = $dh->read)) { 
+	while (defined($_ = $dh->read)) {
 	    next if /^\./;
 
 	    $source = File::Spec->catfile($src_dir, $_);
@@ -181,7 +181,7 @@ sub _convert
 		if (-f $subdirpath) {
 		    croak("$subdirpath file/dir conflict");
 		}
-		else { 
+		else {
 		    unless (-d $subdirpath) {
 			mkdir($subdirpath, 0700);
 		    }
@@ -243,7 +243,7 @@ sub _scan_dir
     use DirHandle;
     my $dh = new DirHandle $dir;
     if (defined $dh) {
-	while (defined($_ = $dh->read)) { 
+	while (defined($_ = $dh->read)) {
 	    next if /^\./;
 
 	    $f = File::Spec->catfile($dir, $_);
@@ -251,7 +251,7 @@ sub _scan_dir
 		$num_file++;
 	    }
 	    elsif (-d $f) {
-		$num_dir++; 
+		$num_dir++;
 		my ($x_num_file, $x_num_dir) = _scan_dir( $f );
 		$num_file += $x_num_file;
 		$num_dir  += $x_num_dir;
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm
index b2af05c2..2a97b605 100644
--- a/fml/lib/Mail/Message.pm
+++ b/fml/lib/Mail/Message.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: Message.pm,v 1.50 2002/04/08 12:44:27 fukachan Exp $
+# $FML: Message.pm,v 1.51 2002/04/13 14:43:09 fukachan Exp $
 #
 
 package Mail::Message;
@@ -663,7 +663,7 @@ sub whole_message_body
 # Return Value: STR_REF
 sub whole_message_as_string_ref
 {
-    my ($self) = @_;    
+    my ($self) = @_;
 
     return $InComingMessage;
 }
diff --git a/fml/lib/Mail/Message/Spool.pm b/fml/lib/Mail/Message/Spool.pm
index 9696c09e..f8050dd4 100644
--- a/fml/lib/Mail/Message/Spool.pm
+++ b/fml/lib/Mail/Message/Spool.pm
@@ -2,7 +2,7 @@
 #
 # Copyright (C) 2002 Ken'ichi Fukamachi
 #
-# $FML: Spool.pm,v 1.5 2002/04/06 01:30:37 fukachan Exp $
+# $FML: Spool.pm,v 1.6 2002/04/18 22:24:54 fukachan Exp $
 #
 
 package Mail::Message::Spool;
@@ -77,7 +77,7 @@ sub filepath
 	my $id       = $args->{ id };
 	my $is_hash  = 0;
 	my $file     = '';
-	my $unit     = 
+	my $unit     =
 	    defined($args->{ subdir_unit }) ?  $args->{ subdir_unit } : 1000;
 	my $subdir   = int($id/$unit);
 
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm
index 566bc191..383cc3d1 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.11 2002/04/15 03:47:49 fukachan Exp $
+# $FML: ToHTML.pm,v 1.12 2002/04/18 15:27:04 fukachan Exp $
 #
 
 package Mail::Message::ToHTML;
@@ -19,7 +19,7 @@ my $debug = 0;
 my $URL   =
     "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>";
 
-my $version = q$FML: ToHTML.pm,v 1.11 2002/04/15 03:47:49 fukachan Exp $;
+my $version = q$FML: ToHTML.pm,v 1.12 2002/04/18 15:27:04 fukachan Exp $;
 if ($version =~ /,v\s+([\d\.]+)\s+/) {
     $version = "$URL $1";
 }
@@ -333,7 +333,7 @@ sub html_filename
     if (defined($id) && ($id > 0)) {
 	if ($use_subdir eq 'yes') {
 	    my $r = $self->_html_file_subdir_name($id);
-	    # print STDERR "xdebug: $id => $r\n"; 
+	    # print STDERR "xdebug: $id => $r\n";
 	    return $r;
 	}
 	else {
@@ -372,7 +372,7 @@ sub _html_file_subdir_name
 		$subdir_db->{ $id } = $subdir; # cache subdir info into DB.
 		# print STDERR "xdebug: \$subdir_db->{ $id } = $subdir\n";
 	    }
-	    
+
 	    use File::Spec;
 	    my $xsubdir = File::Spec->catfile($html_base_dir, $subdir);
 	    unless (-d $xsubdir) {