diff options
| author | fukachan <fukachan> | 2002-07-02 12:08:52 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-02 12:08:52 +0000 |
| commit | 00536c421a4f9feb4984df93b7c9eb3645a15e4c (patch) | |
| tree | 9beead6d46f9a2d18ae5e0c307ac1df23b048acb | |
| parent | 4852ab177a1cfc3f97b166ad8f8ef1bca5c797e3 (diff) | |
| download | fml8-00536c421a4f9feb4984df93b7c9eb3645a15e4c.tar.gz fml8-00536c421a4f9feb4984df93b7c9eb3645a15e4c.tar.bz2 fml8-00536c421a4f9feb4984df93b7c9eb3645a15e4c.zip | |
fix comments, fix error message
| -rw-r--r-- | fml/lib/FML/Command/Admin/file.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fml/lib/FML/Command/Admin/file.pm b/fml/lib/FML/Command/Admin/file.pm index 2850dad1..078be952 100644 --- a/fml/lib/FML/Command/Admin/file.pm +++ b/fml/lib/FML/Command/Admin/file.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: file.pm,v 1.1 2002/03/30 10:18:34 fukachan Exp $ +# $FML: file.pm,v 1.2 2002/04/03 11:32:59 fukachan Exp $ # package FML::Command::Admin::file; @@ -72,7 +72,7 @@ sub process my $du_args = {}; my @argv = (); - # analyze ... + # argv = command subcommand args ... my ($subcommand, @args)= @$options; if ($subcommand eq 'remove' || @@ -90,7 +90,7 @@ sub process $obj->remove($curproc, $command_args, $du_args); } else { - croak("unknown subcommand"); + croak("Admin::file: unknown subcommand"); } } |