move fmldoc to Process::DocView

1 files changed, 4 insertions, 30 deletions

diff --git a/fml/lib/FML/Process/Configure.pm b/fml/lib/FML/Process/Configure.pm
index f3a91914..613517c5 100644
--- a/fml/lib/FML/Process/Configure.pm
+++ b/fml/lib/FML/Process/Configure.pm
@@ -22,7 +22,7 @@ use FML::Config;
 
 =head1 NAME
 
-FML::Process::Configure -- fmlconf, fmldoc and makefml wrapper
+FML::Process::Configure -- fmlconf and makefml wrapper
 
 =head1 SYNOPSIS
 
@@ -32,14 +32,13 @@ FML::Process::Configure -- fmlconf, fmldoc and makefml wrapper
 
 =head1 DESCRIPTION
 
-FML::Process::Configure is the wrapper for fmlconf, fmldoc and
-makefml.
+FML::Process::Configure is the wrapper for fmlconf and makefml.
 See C<FML::Process::Flow> for each method definition.
 
 =head2 MODULES
 
 These programs, 
-C<fmlconf>, C<fmldoc> and C<makefml>,
+C<fmlconf> and C<makefml>,
 bootstrap by using these modules in this order.
 
    libexec/loader -> FML::Process::Switch -> FML::Process::Configure
@@ -78,7 +77,7 @@ sub prepare { ; }
 
 =head2 C<run($args)>
 
-the main top level dispatcher for C<fmlconf>, C<fmldoc> and C<makefml>. 
+the main top level dispatcher for C<fmlconf> and C<makefml>. 
 For example, it kicks off internal function C<_fmlconf($args)> for
 C<fmlconf($args)>.
 
@@ -98,9 +97,6 @@ sub run
     if ($myname eq 'fmlconf') {
 	$curproc->_fmlconf($args);
     }
-    elsif ($myname eq 'fmldoc') {
-	$curproc->_fmldoc($args);
-    }
     elsif ($myname eq 'makefml') {
 	$curproc->_makefml($args);
     }
@@ -125,28 +121,6 @@ sub _fmlconf
 }
 
 
-# Descriptions: fmldoc wrapper / top level dispacher
-#    Arguments: $self $args
-# Side Effects: none
-# Return Value: none
-sub _fmldoc
-{
-    my ($curproc, $args) = @_;    
-    my $config  = $curproc->{ config };
-    my $myname  = $args->{ myname };
-    my $argv    = $args->{ ARGV };
-
-    my (@opts);
-    push(@opts, '-v') if $args->{ options }->{ v };
-    push(@opts, '-t') if $args->{ options }->{ t };
-    push(@opts, '-u') if $args->{ options }->{ u };
-    push(@opts, '-m') if $args->{ options }->{ m };
-    push(@opts, '-l') if $args->{ options }->{ l };
-
-    exec 'perldoc', @opts, @$argv;
-}
-
-
 # Descriptions: makefml top level dispacher
 #    Arguments: $self $args
 # Side Effects: