diff options
| author | fukachan <fukachan> | 2002-07-02 12:07:51 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-02 12:07:51 +0000 |
| commit | 4852ab177a1cfc3f97b166ad8f8ef1bca5c797e3 (patch) | |
| tree | afe633421bf945a7de0d9873cc5ec3ad05f685d6 | |
| parent | a8a04d072eb15fe9c26b983a6295fb38d1c75a11 (diff) | |
| download | fml8-4852ab177a1cfc3f97b166ad8f8ef1bca5c797e3.tar.gz fml8-4852ab177a1cfc3f97b166ad8f8ef1bca5c797e3.tar.bz2 fml8-4852ab177a1cfc3f97b166ad8f8ef1bca5c797e3.zip | |
fix comments
| -rw-r--r-- | fml/lib/FML/Command/Admin/dir.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fml/lib/FML/Command/Admin/dir.pm b/fml/lib/FML/Command/Admin/dir.pm index 0a6d5a81..f6fe2043 100644 --- a/fml/lib/FML/Command/Admin/dir.pm +++ b/fml/lib/FML/Command/Admin/dir.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: dir.pm,v 1.1 2002/03/24 11:26:46 fukachan Exp $ +# $FML: dir.pm,v 1.2 2002/04/03 11:32:59 fukachan Exp $ # package FML::Command::Admin::dir; @@ -52,7 +52,7 @@ sub new sub need_lock { 0;} -# Descriptions: show result by "ls -l" +# Descriptions: show the result by "ls -l" # Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args) # Side Effects: update $member_map $recipient_map # Return Value: none @@ -67,6 +67,7 @@ sub process # analyze ... for my $x (@$options) { + # restrict the file name if ($x =~ /^(\-[A-Za-z]+)$/) { $du_args->{ opt_ls } = $1; } |