clean up comments

3 files changed, 11 insertions, 33 deletions

diff --git a/fml/bin/fmldoc b/fml/bin/fmldoc
deleted file mode 100755
index 48552a86..00000000
--- a/fml/bin/fmldoc
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/local/bin/perl
-#-*- perl -*-
-#
-# Copyright (C) 2000 Ken'ichi Fukamachi
-#          All rights reserved. 
-#
-# $FML$
-#
-
-=head1 NAME
-
-fmldoc -- wrapper for pod2man
-
-=head1 SYNOPSIS
-
-fmldoc filename
-
-=head1 DESCRIPTION
-
-=cut
-
-for $file (@ARGV) {
-    $file =~ s@::@/@g;
-    system "pod2man $file | nroff -man |less";
-}
-
-1;
diff --git a/fml/bin/show_hierarchy.pl b/fml/bin/show_hierarchy.pl
index ce6cd775..7f819cb0 100755
--- a/fml/bin/show_hierarchy.pl
+++ b/fml/bin/show_hierarchy.pl
@@ -99,15 +99,15 @@ sub load
 	    if (/(use|require)\s+([A-Z]\S+[a-zA-Z0-9])/) {
 		unless ( $function_hach{ $current_function } ) {
 		    if ($verbose) {
-			&P();
-			&P( "${name}::". $current_function );
+			&Print();
+			&Print( "${name}::". $current_function );
 		    }
 		    $function_hach{ $current_function } = 1;
 		}
 
-		&P() if $Count == 1;
-		&P() if $Count == 2;
-		$verbose ? &P( $_ , $. ) : &P( $_ );
+		&Print() if $Count == 1;
+		&Print() if $Count == 2;
+		$verbose ? &Print( $_ , $. ) : &Print( $_ );
 		$file = $2;
 		$file =~ s/\"//g;
 		$file =~ s/\'//g;
@@ -128,7 +128,7 @@ sub load
 }
 
 
-sub P
+sub Print
 {
     my ($s, $lc) = @_;
 
diff --git a/fml/bin/show_modules.sh b/fml/bin/show_modules.sh
index c95c6532..b9d036e7 100755
--- a/fml/bin/show_modules.sh
+++ b/fml/bin/show_modules.sh
@@ -1,6 +1,11 @@
 #!/bin/sh
+#
+# $Id$
+#
 
 for x in libexec/[a-z]* FML/*pm
 do
 	sed '/=head1/,/=cut/d' $x |less
 done
+
+exit 0