diff options
| author | fukachan <fukachan> | 2003-03-14 14:17:59 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-03-14 14:17:59 +0000 |
| commit | 3efc6f099d09988e97e7305d7e4306763d1a919f (patch) | |
| tree | 77bce548a014257d179e4e8e04a4f5e405e96a64 /fml/lib/FML/Command/Admin/error.pm | |
| parent | 079d63b7b63138a396e2a1179de7855d23138d60 (diff) | |
| download | fml8-3efc6f099d09988e97e7305d7e4306763d1a919f.tar.gz fml8-3efc6f099d09988e97e7305d7e4306763d1a919f.tar.bz2 fml8-3efc6f099d09988e97e7305d7e4306763d1a919f.zip | |
add todo.
FNF: fix comments.
Diffstat (limited to 'fml/lib/FML/Command/Admin/error.pm')
| -rw-r--r-- | fml/lib/FML/Command/Admin/error.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/fml/lib/FML/Command/Admin/error.pm b/fml/lib/FML/Command/Admin/error.pm index ed4cd679..39184c12 100644 --- a/fml/lib/FML/Command/Admin/error.pm +++ b/fml/lib/FML/Command/Admin/error.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: error.pm,v 1.2 2003/03/14 06:53:22 fukachan Exp $ +# $FML: error.pm,v 1.1 2003/03/14 12:49:47 fukachan Exp $ # package FML::Command::Admin::error; @@ -60,12 +60,13 @@ sub process { my ($self, $curproc, $command_args) = @_; + # XXX-TODO: fml $ml error --algorithm $algorithm ? $self->_fmlerror($curproc); } # Descriptions: show error messages -# Arguments: OBJ($curproc) +# Arguments: OBJ($self) OBJ($curproc) # Side Effects: none # Return Value: none sub _fmlerror @@ -78,6 +79,7 @@ sub _fmlerror my $data = $obj->analyze(); my $info = $obj->get_data_detail(); + # XXX-TODO: move to FML::Error more. my ($k, $v); while (($k, $v) = each %$info) { if (defined($v) && ref($v) eq 'ARRAY') { |