diff options
| author | fukachan <fukachan> | 2004-06-27 06:08:55 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-06-27 06:08:55 +0000 |
| commit | 5725b6efc4a7de57c630e44b083f032ad5afe898 (patch) | |
| tree | 1718dbe909297e3ab3976045d9ba3c42361a7f78 | |
| parent | 66675a64702a9128dd111e6de97234dfb0b67ce3 (diff) | |
| download | fml8-5725b6efc4a7de57c630e44b083f032ad5afe898.tar.gz fml8-5725b6efc4a7de57c630e44b083f032ad5afe898.tar.bz2 fml8-5725b6efc4a7de57c630e44b083f032ad5afe898.zip | |
reverse command_mode check code.
| -rw-r--r-- | fml/lib/FML/Command.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/FML/Command.pm b/fml/lib/FML/Command.pm index 6a0ac4a6..f7acec5d 100644 --- a/fml/lib/FML/Command.pm +++ b/fml/lib/FML/Command.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: Command.pm,v 1.46 2004/04/23 04:10:27 fukachan Exp $ +# $FML: Command.pm,v 1.47 2004/06/26 11:24:03 fukachan Exp $ # # XXX @@ -110,7 +110,7 @@ sub get_mode if (defined $command_args->{ command_mode }) { # XXX use capital letter for module name used latter (module loading). - if ($command_args->{'command_mode'} eq 'Admin') { + if ($command_args->{'command_mode'} =~ /^(Admin)$/i) { return 'Admin'; } else { |