diff options
| author | fukachan <fukachan> | 2002-12-20 03:40:11 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-12-20 03:40:11 +0000 |
| commit | eebea87256b7cc29db4ff30166e1b465f7b554aa (patch) | |
| tree | 70cd10fa56b5eff2ef501bc7a686b21739046359 /fml/lib/FML/Command/Admin/file.pm | |
| parent | 33cc3216e24c18b345adb828c8e3b3ba7e5ca920 (diff) | |
| download | fml8-eebea87256b7cc29db4ff30166e1b465f7b554aa.tar.gz fml8-eebea87256b7cc29db4ff30166e1b465f7b554aa.tar.bz2 fml8-eebea87256b7cc29db4ff30166e1b465f7b554aa.zip | |
fix comments and error messages.
add defined() more.
Diffstat (limited to 'fml/lib/FML/Command/Admin/file.pm')
| -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 9851e33f..ba653d8b 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.6 2002/09/22 14:56:45 fukachan Exp $ +# $FML: file.pm,v 1.7 2002/11/23 15:20:00 fukachan Exp $ # package FML::Command::Admin::file; @@ -32,7 +32,7 @@ file a new address. =cut -# Descriptions: standard constructor +# Descriptions: constructor. # Arguments: OBJ($self) # Side Effects: none # Return Value: OBJ @@ -77,7 +77,7 @@ sub process my $regexp = $safe->basic_variable(); my $filereg = $regexp->{ file }; - # argv = command subcommand args ... + # argv = command subcommand args ... = command options my ($subcommand, @args)= @$options; if ($subcommand eq 'remove' || |