cosmetics: white spaces

8 files changed, 31 insertions, 31 deletions

diff --git a/fml/utils/bin/dir2url.pl b/fml/utils/bin/dir2url.pl
index ebabb3f7..49f3aef1 100755
--- a/fml/utils/bin/dir2url.pl
+++ b/fml/utils/bin/dir2url.pl
@@ -3,9 +3,9 @@
 #
 #  Copyright (C) 2001 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
+#   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: dir2url.pl,v 1.1 2001/04/30 11:43:33 fukachan Exp $
+# $FML: dir2url.pl,v 1.2 2001/08/19 16:11:27 fukachan Exp $
 #
 
 use strict;
@@ -53,7 +53,7 @@ sub update_cvs_ignore
 	my $fh = new FileHandle "> .cvsignore";
 	print $fh '@@doc', "\n";
 	close($fh);
-    } 
+    }
 }
 
 
@@ -104,7 +104,7 @@ sub Prepend
 
 	/ja.txt/ && $japanese++;
 
-	my $name = $_; 
+	my $name = $_;
 	$name =~ s/^00_//;
 	$name =~ s/.txt$//;
 	$name =~ s/.ja$//;
@@ -143,7 +143,7 @@ sub Show
 	next if $pathname eq 'Makefile';
 
 	my $module = $pathname;
-	if ($module =~ /\.pm$/ || $module eq 'loader') { 
+	if ($module =~ /\.pm$/ || $module eq 'loader') {
 	   generate_manual($pathname);
 	}
 
@@ -154,7 +154,7 @@ sub Show
 	if (-d $pathname) {
 	    print ($TableMode ? "<TR>\n" : "<LI>\n");
 	    print "<TD>\n" if $TableMode;
-	    
+
 	    if (-f "$pathname/index.ja.html") {
 		print " <A HREF=$pathname/index.ja.html>";
 
@@ -206,7 +206,7 @@ sub Show
 }
 
 
-sub HEADER 
+sub HEADER
 {
 
 print <<"_EOF";
diff --git a/fml/utils/bin/distdir2url.pl b/fml/utils/bin/distdir2url.pl
index 34256f62..0947a70d 100755
--- a/fml/utils/bin/distdir2url.pl
+++ b/fml/utils/bin/distdir2url.pl
@@ -3,9 +3,9 @@
 #
 #  Copyright (C) 2001 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
+#   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: distdir2url.pl,v 1.1 2001/04/30 11:43:34 fukachan Exp $
+# $FML: distdir2url.pl,v 1.2 2001/07/15 12:17:19 fukachan Exp $
 #
 
 use strict;
@@ -54,7 +54,7 @@ sub Show
 }
 
 
-sub HEADER 
+sub HEADER
 {
 
 print <<"_EOF";
diff --git a/fml/utils/bin/gen_table.pl b/fml/utils/bin/gen_table.pl
index 3161ff0a..52aabb3b 100644
--- a/fml/utils/bin/gen_table.pl
+++ b/fml/utils/bin/gen_table.pl
@@ -3,9 +3,9 @@
 #
 #  Copyright (C) 2001 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
+#   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML$
+# $FML: gen_table.pl,v 1.1 2001/04/30 10:47:47 fukachan Exp $
 #
 
 use strict;
@@ -31,10 +31,10 @@ for my $f (@ARGV) {
   IN:
     while (<$fh>) {
 	$p++ if /^\s*$/;
-	
+
 	print $_ if $p == 2;
 	last IN if $p > 2;
-    } 
+    }
 
     print "\n";
 }
diff --git a/fml/utils/bin/html2sgml.pl b/fml/utils/bin/html2sgml.pl
index 08b5b05b..94c06494 100755
--- a/fml/utils/bin/html2sgml.pl
+++ b/fml/utils/bin/html2sgml.pl
@@ -3,9 +3,9 @@
 #
 #  Copyright (C) 2001 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
+#   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: html2sgml.pl,v 1.1 2001/04/30 11:43:34 fukachan Exp $
+# $FML: html2sgml.pl,v 1.2 2001/05/01 13:45:53 fukachan Exp $
 #
 
 use strict;
@@ -43,7 +43,7 @@ sub convert
 
     while (<$fh>) {
 	# <P>
-	if (m@<P>@i) { 
+	if (m@<P>@i) {
 	    print $wh  "<para>\n";
 	    $para = 1;
 	    next;
diff --git a/fml/utils/bin/pm2txt.pl b/fml/utils/bin/pm2txt.pl
index 7a2a7822..32f4a8c7 100755
--- a/fml/utils/bin/pm2txt.pl
+++ b/fml/utils/bin/pm2txt.pl
@@ -3,9 +3,9 @@
 #
 #  Copyright (C) 2001 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
+#   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: pm2txt.pl,v 1.1 2001/04/27 04:42:13 fukachan Exp $
+# $FML: pm2txt.pl,v 1.2 2001/04/28 10:55:06 fukachan Exp $
 #
 
 use strict;
@@ -74,7 +74,7 @@ sub _convert
 	$dst =~ s@//@/@g;
 	$dst =~ s/.pm/.txt/;
 
-	# saved for 
+	# saved for
 	$PMList{ $src }  = $src;
 	$TxtList{ $src } = $dst;
 
diff --git a/fml/utils/bin/show_hierarchy.pl b/fml/utils/bin/show_hierarchy.pl
index b6c817e9..95ec9301 100755
--- a/fml/utils/bin/show_hierarchy.pl
+++ b/fml/utils/bin/show_hierarchy.pl
@@ -1,6 +1,6 @@
 #!/usr/local/bin/perl
 #
-# $FML$
+# $FML: show_hierarchy.pl,v 1.2 2001/08/19 16:11:28 fukachan Exp $
 #
 
 use lib qw(./lib/3RDPARTY ./lib/fml5 ./lib/CPAN ./lib);
@@ -40,7 +40,7 @@ sub load
 	}
     }
 
-    unless (-f $f) { 
+    unless (-f $f) {
 	P( "not found: $f" ) if $debug;;
 	$Count--;
 	return;
@@ -87,7 +87,7 @@ sub load
 
 	    chop;
 
-	    if (/^sub (\S+)/) { 
+	    if (/^sub (\S+)/) {
 		$current_function = $1;
 	    }
 
diff --git a/fml/utils/bin/text2html.pl b/fml/utils/bin/text2html.pl
index 63722e41..135b89cb 100755
--- a/fml/utils/bin/text2html.pl
+++ b/fml/utils/bin/text2html.pl
@@ -3,9 +3,9 @@
 #
 #  Copyright (C) 2001 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
+#   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: text2html.pl,v 1.1 2001/04/30 11:43:34 fukachan Exp $
+# $FML: text2html.pl,v 1.2 2001/08/19 16:11:28 fukachan Exp $
 #
 
 use strict;
@@ -21,7 +21,7 @@ print "</PRE>\n";
 1;
 
 
-sub HEADER 
+sub HEADER
 {
 
 print <<"_EOF";
diff --git a/fml/utils/bin/varlist.pl b/fml/utils/bin/varlist.pl
index bd4006e8..3d4ae762 100755
--- a/fml/utils/bin/varlist.pl
+++ b/fml/utils/bin/varlist.pl
@@ -3,9 +3,9 @@
 #
 #  Copyright (C) 2001 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
+#   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: dir2url.pl,v 1.2 2001/08/19 16:11:27 fukachan Exp $
+# $FML: varlist.pl,v 1.1 2001/11/24 06:55:23 fukachan Exp $
 #
 
 use strict;
@@ -95,9 +95,9 @@ sub _customize_tag
 	$table_begin       = "<para>\n<table>\n";
 	$table_end         = "</tgroup>\n</table>\n</para>\n";
 
-	$table_title       = 
+	$table_title       =
 	    "<title> table description </title>\n<tgroup cols=3>";
-    
+
 	$table_entry_begin = "<entry>\n";
 	$table_entry_end   = "</entry>\n";
 
@@ -114,7 +114,7 @@ sub _customize_tag
 
 
 sub print_varlist
-{ 
+{
     _customize_tag();
 
     print $table_begin;