diff options
| author | fukachan <fukachan> | 2003-01-05 02:26:23 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-01-05 02:26:23 +0000 |
| commit | 5ac1b0b024548a191af3f8ffc297e11ee044b92b (patch) | |
| tree | 44526a81f1f11e36431ccff198fb530324ac6e88 /fml/lib/FML/Process | |
| parent | 16eba2434cf2a085592d8417148daaf89bad7a21 (diff) | |
| download | fml8-5ac1b0b024548a191af3f8ffc297e11ee044b92b.tar.gz fml8-5ac1b0b024548a191af3f8ffc297e11ee044b92b.tar.bz2 fml8-5ac1b0b024548a191af3f8ffc297e11ee044b92b.zip | |
add fmlerror, fix fmlsuper getopt
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm index 73fe15c1..442bba8a 100644 --- a/fml/lib/FML/Process/Switch.pm +++ b/fml/lib/FML/Process/Switch.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Switch.pm,v 1.79 2002/12/21 12:15:54 fukachan Exp $ +# $FML: Switch.pm,v 1.80 2003/01/02 15:51:01 fukachan Exp $ # package FML::Process::Switch; @@ -354,7 +354,10 @@ sub _module_specific_options return qw(debug! help! -I=s convert! style=s srcdir=s); } elsif ($myname eq 'fmlsuper') { - return qw(debug! help! s! p! v!); + return qw(debug! help!); + } + elsif ($myname eq 'fmlerror') { + return qw(debug! help!); } else { croak "no such program $myname.\n"; @@ -476,6 +479,9 @@ sub _module_we_use elsif ($name eq 'fmlsuper') { $pkg = 'FML::Process::Super'; } + elsif ($name eq 'fmlerror') { + $pkg = 'FML::Process::ErrorViewer'; + } else { return ''; } |