diff options
| author | fukachan <fukachan> | 2001-04-05 08:30:27 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-05 08:30:27 +0000 |
| commit | 13bb3574c30f74c523cc44c74eaca56cf0a38cb1 (patch) | |
| tree | 212d0bb9b9543223f0e1488d3d164c296923347a | |
| parent | 5ea4871b9b8ce4a94ff86af120b18266f1db0459 (diff) | |
| download | fml8-13bb3574c30f74c523cc44c74eaca56cf0a38cb1.tar.gz fml8-13bb3574c30f74c523cc44c74eaca56cf0a38cb1.tar.bz2 fml8-13bb3574c30f74c523cc44c74eaca56cf0a38cb1.zip | |
fmlsch -D data_dir -F data_file -m mode
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm index cc2f087a..8e2f4a0c 100644 --- a/fml/lib/FML/Process/Switch.pm +++ b/fml/lib/FML/Process/Switch.pm @@ -5,7 +5,7 @@ # redistribute it and/or modify it under the same terms as Perl itself. # # $Id$ -# $FML$ +# $FML: Switch.pm,v 1.16 2001/04/03 09:45:43 fukachan Exp $ # package FML::Process::Switch; @@ -323,9 +323,12 @@ sub _module_specific_options elsif ($myname eq 'makefml.cgi') { return qw(debug!); } - elsif ($myname eq 'fmlsch.cgi' || $myname eq 'fmlsch') { + elsif ($myname eq 'fmlsch.cgi') { return qw(debug!); } + elsif ($myname eq 'fmlsch') { + return qw(debug! -D=s -F=s -m=s); + } else { croak "options for $myname are not defined.\n"; } |