diff options
| author | fukachan <fukachan> | 2001-03-16 04:31:39 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-03-16 04:31:39 +0000 |
| commit | 77e4127b08ba83ac3c8db5d57fa2c3eeb345665d (patch) | |
| tree | 95ab998e80144e95970a74e5aceb8a9fd18210b6 | |
| parent | 038969e30b0ab1c26657d24734a71c534d8167f1 (diff) | |
| download | fml8-77e4127b08ba83ac3c8db5d57fa2c3eeb345665d.tar.gz fml8-77e4127b08ba83ac3c8db5d57fa2c3eeb345665d.tar.bz2 fml8-77e4127b08ba83ac3c8db5d57fa2c3eeb345665d.zip | |
fmldoc supports perldoc [-vtuml]
| -rw-r--r-- | fml/lib/FML/Process/Configure.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Configure.pm b/fml/lib/FML/Process/Configure.pm index d3f233ea..b7f4296c 100644 --- a/fml/lib/FML/Process/Configure.pm +++ b/fml/lib/FML/Process/Configure.pm @@ -65,7 +65,13 @@ sub run $curproc->_show_conf($args); } elsif ($myname eq 'fmldoc') { - exec 'perldoc', @$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; } elsif ($myname eq 'makefml') { $curproc->_makefml($args); |